VBScript:Добавление пользователя в AD + создание почтового ящика в Exchange
Filed Under Без рубрики
Sub CreateUser(user,surename,lastname,password)
Dim DCServer, DomainName, oOU, oUser, oMailbox
DCServer = "localhost"
'Create AD user
DomainName = "DC=TESTSERVER,DC=DEV"
Set oOU = GetObject("LDAP://localhost/OU=TESTUsers," & DomainName)
Set oUser = oOU.Create("user", "CN=" &surename & " " & lastname)
oUser.Put "sAMAccountName", user
oUser.Put "displayName", surename & " " & lastname
oUser.Put "name", surename & " " & lastname
oUser.Put "givenName", surename
oUser.Put "sn", lastname
oUser.Put "userPrincipalName", user & "@testserver.dev"
oUser.SetInfo
oUser.SetPassword password
oUser.AccountDisabled = False
oUser.SetInfo
Set objMailbox = oUser
'Create a mailbox
objMailbox.CreateMailbox "LDAP://CN=Mailbox Store (TEST1),CN=First Storage Group,CN=InformationStore,CN=TEST1,CN=Servers, CN=First Administrative Group,CN=Administrative Groups,CN=testbdev,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=testserver,DC=dev"
oUser.SetInfo
End Sub
Для задания пути контейнера с мыльными ящика использовал утилиту AdFind - Command line Active Directory query tool
