Sub main()
Dim cn As IADsContainer    'LDAP - Objekte
Dim usr As IADsUser
Dim LDAP As IADsOpenDSObject
Set LDAP = GetObject("LDAP:")
 
'If (LDAP = nil) Then
'  MsgBox "leer"
'End If
 
'Set cn = LDAP.OpenDSObject("http://Schulung.bux.bi-consulting.de:27895", 
' "admin", "bicbic", 0)
Set cn = LDAP.OpenDSObject("localhost", "admin", "bicbic", 0)
MsgBox "Verbunden"
 
 
'Aufruf der den Benutzer anlegt und dessen Eigenschaften konfiguriert
    Set usr = cn.Create("user", "CN=" & strUserName)
        usr.Put "sAMAccountName", CStr(strUserName)             'NT-Anmeldename
        usr.Put "userPrincipalName", CStr(strUserName)          'UPN-Name ( 
        ' Name@Organisation)
 
        usr.SetInfo                                             'Alles speichern
        usr.GetInfo                                             'und neu 
        ' einlesen
 
        usr.Put "DisplayName", CStr(strUserName)
        usr.FullName = strUserName
        usr.LastName = strLastName
        usr.Description = strDescription
        usr.HomePage = strHomePagePath
 
        usr.Profile = strProfil
        usr.HomeDirectory = strHomedir
        usr.Put "homeDrive", CStr(strLaufwerk)
 
        usr.Put "msNpAllowDialin", True                         'geht nur in 
        ' nicht reiner Win2000 Domain
 
        usr.SetPassword CStr(strPasswd)
        usr.PasswordRequired = True
 
        If bolPasswdChangeAfterNextLogon <= True Then
            usr.Put "pwdLastSet", CLng(0)                       'aktivierung 
            ' des Passwort „ndern H„kchens
        End If
 
        usr.AccountDisabled = bolAccountIsDisabled
 
        If strFirstName <> "" Then usr.FirstName = strFirstName
        If strFirstName <> "" Then usr.NamePrefix = strDescription
 
        usr.SetInfo                                             'Alles speichern
 
 
End Sub