Manchmal erhält man eine Liste mit Benutzern, die so schnell wie möglich in ein Active Directory hinzugefügt werden soll. Dieses kann man unter anderem mit dieser VBS-Datei sehr komfortabel durchführen
Dim objExcel, objOpenDialog, objOU, objContact, objRecip Dim strVorname, strNachname, strEmail, strDesc, Datei Dim strLogin, strDepartment, strPassword, strUser, strOU Datei = Inputbox ("Dateinamen inkl. Pfad eingeben:") strOU = Inputbox ("LDAP://-Pfad eingeben:") Set objExcel = WScript.CreateObject("Excel.Application") objExcel.Workbooks.Open Datei 'Erste Zeile enthält die Überschriften i = 2 Do While objExcel.Worksheets(1).Cells(i,3).Value <> "" strVorname = objExcel.Worksheets(1).Cells(i,1).Value strNachname = objExcel.Worksheets(1).Cells(i,2).Value strEmail = objExcel.Worksheets(1).Cells(i,3).Value strDepartment = objExcel.Worksheets(1).Cells(i,4).Value strUser = objExcel.Worksheets(1).Cells(i,5).Value strPassword = objExcel.Worksheets(1).Cells(i,6).Value strLogin = objExcel.Worksheets(1).Cells(i,7).Value Set objOu = GetObject("LDAP://" & strOU) Set objUser = objOu.Create("User", "cn=" & strUser) objUser.Put "samaccountname", strUser objUser.Put "userprincipalname", strUser & "@testing.local" objUser.Put "sn", strNachname objUser.Put "displayName", strNachname & ", " & strVorname objUser.Put "department", strDepartment objUser.Put "mail", strEMail objUser.SetInfo objUser.SetPassword strPassword objUser.Put "pwdLastSet", 0 objUser.AccountDisabled = False objUser.Put "scriptpath", strLogin objUser.SetInfo i = i + 1 Loop objExcel.ActiveWorkbook.Saved = True objExcel.Application.Quit WScript.Echo "User erfolgreich angelegt!" WScript.Quit
Beim Start des Programms wird der Dateiname inkl. Pfad der zu importierenden Excel-Datei abgefragt, der zum Beispiel so eingegeben werden muss:
E:\Import\Mappe1.xls
Als nächstes wird nach dem LDAP-Pfad gefragt in dem die Benutzer angelegt werden sollen. Dieser kann wie folgt deklariert werden:
ou=import,dc=testing,dc=local
Den folgenden Definitionen muss die Excel-Datei unterliegen:
- Import wird ab der zweiten Zeile durchgeführt, so dass in der Ersten Überschriften definiert sein können.
- Spalte 1: Vorname
- Spalte 2: Nachname
- Spalte 3: E-Mail-Adresse (diese wird nicht automatisch im Exchange angelegt, sondern nur hinterlegt)
- Spalte 4: Abteilung
- Spalte 5: Benutzername
- Spalte 6: Passwort
- Spalte 7: Loginskript
Bei dem Passwort muss darauf geachtet werden, dass für den Import ein Passwort definiert ist, welches den Sicherheitsbedingungen der Domäne entspricht. Ansonsten wird zwar der Benutzer angelegt, aber der Import bleibt beim Setzen des nicht konformen Kennworts stehen.