Scripting – Sample Users/Group creation in AD
Set oDomain = GetObject(“LDAP://” & oRoot.Get(“defaultNamingContext”))
oOU.SetInfo
oUser.Put “sAMAccountName”, “director1″
oUser.SetInfo
oUser.displayName=”Director One”
oUser.title=”Managing Director”
oUser.department=”Director Dept”
oUser.mail=”director1@mycompany.com.vn”
oUser.employeeID=789
oUser.Put “sAMAccountName”, “manager1″
oUser.SetInfo
oUser.displayName=”Manager One”
oUser.title=”Sales Manager”
oUser.department=”Sales & Marketing Dept”
oUser.mail=”manager1@mycompany.com.vn”
oUser.employeeID=678
oUser.manager=”CN=Director One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn”
oUser.Put “sAMAccountName”, “staff1″
oUser.SetInfo
oUser.displayName=”Staff One”
oUser.title=”Sales Executive”
oUser.department=”Sales & Marketing Dept”
oUser.mail=”staff1@mycompany.com.vn”
oUser.employeeID=123
oUser.manager=”CN=Manager One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn”
oUser.Put “sAMAccountName”, “staff2″
oUser.SetInfo
oUser.displayName=”Staff Two”
oUser.title=”Cashier”
oUser.department=”Sales & Marketing Dept”
oUser.mail=”staff2@mycompany.com.vn”
oUser.employeeID=234
oUser.manager=”CN=Manager One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn”
oUser.givenName=”Administrator”
oUser.displayName=”Administrator”
oUser.title=”System Admin”
oUser.department=”Director Dept”
oUser.mail=”administrator@mycompany.com.vn”
oUser.employeeID=012
oUser.manager=”CN=Director One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn”
oUser.SetInfo
oGroup.Put “sAMAccountName”, “Directors”
oGroup.SetInfo
oGroup.SetInfo
oGroup.Put “sAMAccountName”, “ChiefAccountants”
oGroup.SetInfo
oGroup.SetInfo
oGroup.Put “sAMAccountName”, “Accountants”
oGroup.SetInfo
oGroup.member=”CN=Staff One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn”
oGroup.SetInfo
oUser.SetPassword “P@ssw0rd”
oUser.AccountDisabled = False
oUser.company=”My Company”
oUser.streetAddress=”123 XYZ Street”
oUser.l=”Hanoi”
oUser.c=”VN”
oUser.telephoneNumber=”+84-4-123-45678″
oUser.mobile=”+84-9-1234-5678″
oUser.userAccountControl=66080 ’0×10220=PASSWD_NOTREQD|NORMAL_ACCOUNT|DONT_EXPIRE_PASSWD)
oUser.SetInfo
end sub
Tags: Scripting