big-timmy 10 Geschrieben 30. Januar 2007 Melden Teilen Geschrieben 30. Januar 2007 Hallo, kennt jemand ein Template, zum User Erstellen in einer AD? Hintergrund ist dieser, dass ich einen Co-Admin zwingen will, über eine evtl. Freeware benutzer anzulegen und ihm vorgeben will, was er an Attributen ausfüllen MUSS, bevor der User in die AD geschrieben wird. Kennt hier jemand eine geeignete Vorgehensweise? Gruss, Tim Zitieren Link zu diesem Kommentar
CoolAce 17 Geschrieben 30. Januar 2007 Melden Teilen Geschrieben 30. Januar 2007 Jo ,das einfachste ist du legst im AD eine User an mit entsprechenden Berechtigungen und er muss den halt kopieren nicht vergessen den Template User aus sicherheitsgründen zu deaktivieren Zitieren Link zu diesem Kommentar
big-timmy 10 Geschrieben 30. Januar 2007 Autor Melden Teilen Geschrieben 30. Januar 2007 Das ist zwar ne Lösung, aber nicht die angestrebte. Wir haben mehrere Standorte und außerdem andere Grruppenzugehörigkeiten, so macht das zuviel Arbeit. Aber trotzdem danke. Gruss, Tim Zitieren Link zu diesem Kommentar
Vanhon 10 Geschrieben 30. Januar 2007 Melden Teilen Geschrieben 30. Januar 2007 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 Zitieren Link zu diesem Kommentar
big-timmy 10 Geschrieben 30. Januar 2007 Autor Melden Teilen Geschrieben 30. Januar 2007 Der Auszug aus dem Script ist schon mal ein guter Ansatz!! Danke!! Aber: Gibt es evtl. auch ein Script oder eine freeware, die meinen Admin mithilfe eines Wizards durch die Anlage des neuen User führt, womit der Admin dann nicht vergisst, ein Attribut mit Werten zu füllen? Erst ganz am Ende, wenn auch wirklich alles ausgefüllt ist, sollte der OKAY-Button aktiviert sein und der neue Benutzer ins AD geschrieben werden. Tipps? Zitieren Link zu diesem Kommentar
Empfohlene Beiträge
Schreibe einen Kommentar
Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.