vbs实现windows通过文本导入批量增加用户

adduser.vbs

——————————————————————————---

dim os,cmd,myfile,myarray

Set WshShell = CreateObject("Wscript.Shell")
set fso=createobject("scripting.filesystemobject")
set userFile=fso.opentextfile("用户帐号及密码.txt",1)

do while Not userfile.atendofstream
   readlinetextfile=userfile.readline
   wscript.echo readlinetextfile
   myarray=split(readlinetextfile,",",-1,1)
   user=myarray(0)
   password=myarray(1)
cmd="cmd /c net user "&user&" "&password&" /add /active:yes /expires:never /passwordchg:no" 
wscript.echo cmd
WshShell.run cmd,0,false
loop

 

用户账号及密码.txt   (注：必须与上面的vbs文件放在一个文件夹内)

--------------------------------------------------------------------------

test1,password
test2,password