Auf Störung zunächst wieder.aufnehmen
Const ADS_SCOPE_SUBTREE = 2 'suchen Zielgegenstand und alle Unterseebootniveaus
Schwaches objRootDSE: objRootDSE = GetObject einstellen („LDAP: //RootDSE“)
strDNSDomain = ersetzen (ersetzen (objRootDSE.Get („defaultNamingContext“),“, DC= ", „."), „DC=“, "")
strADsPath = „LDAP: /“ u. objRootDSE.Get („defaultNamingContext“)
'An aktives Verzeichnis anschließen
objConnection = CreateObject („ADODB.Connection“) einstellen
objCommand = CreateObject („ADODB.Command“) einstellen
objConnection.Provider = „ADsDSOObject“
objConnection.Open „aktiver Verzeichnis-Versorger“
Einstellen objCommand.ActiveConnection = objConnection
objCommand.Properties („Seiten-Größe“) = 1000
objCommand.Properties („Searchscope“) = ADS_SCOPE_SUBTREE
Schwaches objOU: objOU = GetObject einstellen („LDAP: /“ u. TARGET_OU)
Schwaches objExcel: objExcel = CreateObject („Excel.Application“) einstellen
objWorkbook verdunkeln: objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE) einstellen
'An Reihe 2, nach der Überschrift beginnen.
intRow verdunkeln: intRow = 2
Bis objExcel.Cells (intRow, 1).Value = "" tun
strUserName verdunkeln: strUserName = objExcel.Cells (intRow, 1).Value
Schwaches strDisplayName: strDisplayName = objExcel.Cells (intRow, 2).Value
Schwaches strFirstName: strFirstName = objExcel.Cells (intRow, 3).Value
Schwaches strLastName: strLastName = objExcel.Cells (intRow, 4).Value
Schwaches strDS: strDS = objExcel.Cells (intRow, 5).Value
'Schwaches strOffice: strOffice = objExcel.Cells (intRow, 6).Value
Schwaches strPWD: strPWD = objExcel.Cells (intRow, 7).Value
'Das Suche-ANZEIGE Gebiet, zum Benutzer des allgemeinen Namens zu überprüfen nicht bereits existiert
objCommand.CommandText = „AUSERWÄHLTES distinguishedName VON '“ u. strADsPath u. _
„„, WO objectCategory='user“ UND cn='" u. strDisplayName u. „'“
objRecordSet = objCommand.Execute einstellen
Wenn objRecordSet.EOF dann
Schwaches objUser: objUser = objOU.Create („Benutzer“, „CN=“ u. strDisplayName) einstellen
objUser.Put „sAMAccountName“, strUserName
objUser.Put „userPrincipalName“, strUserName u. „@“ u. strDNSDomain
objUser.Put „displayName“, strDisplayName
objUser.Put „Sn“, strLastName
objUser.Put „givenName“, strFirstName
objUser.Put „Beschreibung“, strDS
'objUser.Put „physicalDeliveryOfficeName“, strOffice
objUser.Put „homeDrive“, „X: “
objUser.Put „homeDirectory“,“ \ \ shadowcom.local \ System \ Profile \ „u. strUsername
objUser.SetInfo
'Separat sektion bis Import af-Kennwort bis brugerne
objUser.userAccountControl = 512
objUser.SetPassword strPWD
objUser.AccountDisabled = falsch
objUser.SetInfo
Beenden wenn
intRow = intRow + 1
Schleife
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
|