hi,  
vielleicht kann dir der Auszug aus meinem Scrip helfen. 
  
  
Sub oCreateoUser(ByVal Vorname, ByVal Nachname, ByVal Anmeldename, ByVal oAblaufdatum, byVal CnName, byVal LdapPath) 
  
    set SrcOu = GetObject("LDAP://<AD-SERVER>/" & LdapPath) 
    dim oUserAN 
    set oUserAN = SrcOu.Create("User", CStr(CnName)) 
    oUserAN.Put "samAccountName", CStr(Anmeldename) 
    if oAblaufdatum <> "" then 
        oUserAN.AccountExpirationDate = oAblaufDatum 
    end if 
    oUserAN.SetInfo 
    oUserAN.AccountDisabled = TRUE 
    oUserAN.SetInfo 
    oUserAN.Put "givenName", Vorname 
    oUserAN.Put "sn", Nachname 
    oUserAN.SetPassword("hallo1") 
    oUserAN.SetInfo 
    oUserAN.Put "mail", ChangeUmlaut(oNachname) & "." & ChangeUmlaut(oVorname) & "@<DomainName>" 
    oUserAN.Put "profilePath", "\\<ServerName>\profil$\" & Anmeldename 
    oUserAN.Put "homeDirectory", "\\<ServerName>\" & Anmeldename 
    oUserAN.Put "homeDrive", "L:" 
    oUserAN.Put "userPrincipalName", oAnmeldename & "@<DomainName>" 
    oUserAn.Put "scriptPath", "<LoginScript>" 
    oUserAN.SetInfo 
    oUserAN.Put "displayName", Nachname & ", " & Vorname 
    oUserAN.SetInfo  
End Sub