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"