Код:
Dim sFirstName1, sFirstName2, sLastName, sFullName, sLogin
sFirstName1 = "Alexandr"
sLastName = "Elizarov"
sFullName = sLastName & "." & sFirstName1
sLogin = sLastName & " " & sFirstName1
Set objOU = GetObject("LDAP://OU=Users,OU=ViaMonstra,DC=corp,DC=viamonstra,DC=com")
Set objUser = objOU.Create _
("User", "cn=" & sFullName)
objUser.displayName = sFullName
objUser.sAMAccountName = sLogin
objUser.GivenName = sFirstName1
objUser.SN = sLastName
objUser.SetInfo
objUser.userPrincipalName = sLogin & "@corp.viamonstra.com"
objUser.AccountDisabled = FALSE
objUser.SetPassword "123456Qw"
objUser.Put "PwdLastSet", 0
objUser.SetInfo
Set objGroup = GetObject _
("LDAP://cn=test1,OU=Groups,OU=ViaMonstra,DC=corp,DC=viamonstra,DC=com")
objGroup.Put sLogin, test1
objGroup.SetInfo
objGroup.Add objUser.ADSPath
