用vbs加用户的绝妙方法

用vbs加用户的绝妙方法

作者：网上收集点击：读取中... 次

方法一：直接添加

引用代码：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"

方法二：带用户名、密码参数

用法: 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

方法三：批量创建用户
在名为 WS 的Win2000计算机上创建用户帐号 A01,A02,...,A50

引用代码：
Dim i,xh

''定义创建一个用户帐号的子过程
Sub MdUser(Dn,UsrName)
Set obj=GetObject("WinNT://" & Dn ) ''绑定到计算机/域对象，将作为新帐号的容器
set usr=obj.Create("user",UsrName)  ''创建新的用户帐号, "user"表明创建的是用户帐号
usr.SetPassword(UsrName)       ''设置新用户的初始密码
  usr.SetInfo
Set usr=Nothing
Set obj=Nothing
End sub

For i=1 to 50
  If i<10 then
     xh="A" & "0" & cstr(i)
  Else
     xh="A" & Cstr(i)
  End if

  call MdUser("ws",xh)

Next

MsgBox "创建用户帐号成功..."

收藏此文章　　　　　打印更新　　　　　编辑此文章　　　　『关闭窗口』


	家园个人文集		http://www.5x54.com