不依靠CMD添加用户的VBS代码

qsw199

厉害，这也是个方法哦，试试先

l304312770

不依靠CMD添加用户的VBS代码
VBS在活动目录(ADSI)部分有一个winnt对象，用来管理本地资源，利用它可以不依靠CMD等命令就能添加一个管理员，具体代码如下：

set wsnetwork=CreateObject(\"WSCRIPT.NETWORK\")
os=\"WinNT://\"&wsnetwork.ComputerName
Set ob=GetObject(os) '得到adsi接口,绑定
Set oe=GetObject(os&\"/Administrators,group\") '属性,admin组
Set od=ob.Create(\"user\",\"test\") '建立用户
od.SetPassword \"1234\" '设置密码
od.SetInfo '保存
Set of=GetObject(os&\"/test\",user) '得到用户
oe.add os&\"/test\"