acd2
Goto Top

tool um hunderte benutzer anzulegen

hi, wir haben hier 700 user, jedes jahr gehen 100 und kommen 100 neue dazu, jetzt soll ich als abschlussprojekt den server neu aufziehen, mein chef will aber das die user neu angelegt werden und nciht kopiert, aber mal erhlich, ich leg doch nicht 700 user mit der hand an, gibts da nicht irgendwie ein programm der mir aus einer excel tabelle mit den benutzer daten die user anlegt oder sowas?

es gibt doch firmen mit weit mehr usern, kann mir also nciht vorstellen das es da keine automatisierte lösung gibt

hoffe ihr könnt mir hier helfen

mfg

Content-ID: 16347

Url: https://administrator.de/contentid/16347

Ausgedruckt am: 14.11.2024 um 11:11 Uhr

16640
16640 20.09.2005, aktualisiert am 17.10.2012 um 15:56:14 Uhr
Goto Top
guckst Du hier:
[content:14737]
hilft vielleicht schon mal weiter face-wink
dr.zeto
dr.zeto 20.09.2005 um 10:31:54 Uhr
Goto Top
Wir haben mal im MCSA-Kurs ein Beispiels besprochen.
Dort wurden 500 User aus einer einfache Text-Datei per LDIF in ADS eingebunden.
Bin mir sicher, daß so etwas geht. Da ich aber noch kein "Voll-Profi" bin, bin ich mir sicher, es gibt besseres als LDIF, da hier die ganzen User-Daten, OU´s etc. in eine Text-File eingetragen werden müssen. Das ist auch nicht wirklich komfortabel.
Umgekehrt habe ich aber schon gesehen, daß ADS-Einträge auch in eine CSV-konforme Datei exportiert werden können. Dazu gab es eine Übung in einem originalen MS-Press-Buch zum Kurs 70-270 (Managing and Mantaining Windows Server 2003)...
Vielleicht findest Du unterlagen hierzu im Netz.

Ich hoffe, ich konnte wenigstens etwas helfen...
FaBMiN
FaBMiN 20.09.2005 um 10:54:25 Uhr
Goto Top
1000UserAccount.vbs
Set objRootDSE = GetObject("LDAP://rootDSE")  

Set objContainer = GetObject("LDAP://cn=Users," & objRootDSE.Get("defaultNamingContext"))  
 
For i = 1 To 1000
    Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)  
    objLeaf.Put "sAMAccountName", "UserNo" & i  
    objLeaf.SetInfo
Next
 
WScript.Echo "1000 Users created."  

CreateUser&Add2OU.vbs
Set objDomain = GetObject("LDAP://dc=fabrikam,dc=com")  
Set objOU = objDomain.Create("organizationalUnit", "ou=Management")  
objOU.SetInfo
 
Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com")  
Set objUser = objOU.Create("User", "cn= AckermanPilar")  
objUser.Put "sAMAccountName", "AckermanPila"  
objUser.SetInfo
 
Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com")  
Set objGroup = objOU.Create("Group", "cn=atl-users")  
objGroup.Put "sAMAccountName", "atl-users"  
objGroup.SetInfo
 
objGroup.Add objUser.ADSPath

MoveUser.vbs
Set objOU = GetObject("LDAP://ou=sales,dc=na,dc=fabrikam,dc=com")  

objOU.MoveHere "LDAP://cn=BarrAdam,OU=hr,dc=na,dc=fabrikam,dc=com", vbNullString  

MoveUser2NewDomain.vbs
Set objOU = GetObject("LDAP://ou=management,dc=na,dc=fabrikam,dc=com")  

objOU.MoveHere "LDAP://cn=AckermanPilar,OU=management,dc=fabrikam,dc=com", vbNullString