Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set Domain = GetObject("LDAP://CN=Users, DC=bsit, DC=com")
- Uname = CStr(InputBox("Enter name:","Add account",""))
- Password = CStr(InputBox("Enter password:","",""))
- Set User = Domain.Create("User", "cn=" & Uname)
- User.Put "sAMAccountName", Uname
- User.SetInfo
- User.SetPassword Password
- User.SetInfo
- Set Group = GetObject("LDAP://CN=AutoCreate,CN=Users,DC=bsit,DC=com")
- Group.Add("LDAP://" & User.distinguishedName)
- WScript.Echo(Uname & " added!")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement