Jump to content

User Template zum Erstellen von Benutzern


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Recommended Posts

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

Link to comment

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

Link to comment

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?

Link to comment
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...