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