Op Fout hervat daarna
Const ADS_SCOPE_SUBTREE = 'het doelvoorwerp van Onderzoek 2 en alle subniveaus
Schemerige objRootDSE: Reeks objRootDSE = GetObject („LDAP: //RootDSE“)
strDNSDomain = vervang (vervang (objRootDSE.Get („defaultNamingContext“),“, DC= ", „. “), „DC=“, "")
strADsPath = „LDAP: /“ & objRootDSE.Get („defaultNamingContext“)
'Verbind met Actieve Folder
Plaats objConnection = CreateObject („ADODB.Connection“)
Plaats objCommand = CreateObject („ADODB.Command“)
objConnection.Provider = „ADsDSOObject“
objConnection.Open de „Actieve Leverancier van de Folder“
Vastgesteld objCommand.ActiveConnection = objConnection
objCommand.Properties (de „Grootte van de Pagina“) = 1000
objCommand.Properties („Searchscope“) = ADS_SCOPE_SUBTREE
Schemerige objOU: Reeks objOU = GetObject („LDAP: /“ & TARGET_OU)
Schemerige objExcel: Reeks objExcel = CreateObject („Excel.Application“)
Schemerige objWorkbook: Reeks objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
'Begin bij Rij 2, na de kopbal.
Schemerige intRow: intRow = 2
Doe tot objExcel.Cells (intRow, 1). Waarde = ""
Schemerige strUserName: strUserName = objExcel.Cells (intRow, 1). Waarde
Schemerige strDisplayName: strDisplayName = objExcel.Cells (intRow, 2). Waarde
Schemerige strFirstName: strFirstName = objExcel.Cells (intRow, 3). Waarde
Schemerige strLastName: strLastName = objExcel.Cells (intRow, 4). Waarde
Schemerige strDS: strDS = objExcel.Cells (intRow, 5). Waarde
'Schemerige strOffice: strOffice = objExcel.Cells (intRow, 6). Waarde
Schemerige strPWD: strPWD = objExcel.Cells (intRow, 7). Waarde
'Het Domein van de ADVERTENTIE van het onderzoek om gebruikers Gemeenschappelijke Naam te verifiëren bestaat niet reeds
objCommand.CommandText = „SELECTEER distinguishedName VAN '“ & strADsPath & _
„„WAAR objectCategory='user“ EN cn='" & strDisplayName & „'“
Reeks objRecordSet = objCommand.Execute
Als objRecordSet.EOF toen
Schemerige objUser: Reeks objUser = objOU.Create („gebruiker“, „CN=“ & strDisplayName)
objUser.Put „sAMAccountName“, strUserName
objUser.Put „userPrincipalName“, strUserName & „@“ & strDNSDomain
objUser.Put „displayName“, strDisplayName
objUser.Put „Sn“, strLastName
objUser.Put „givenName“, strFirstName
objUser.Put „beschrijving“, strDS
'objUser.Put „physicalDeliveryOfficeName“, strOffice
objUser.Put „homeDrive“, „X: “
objUser.Put „homeDirectory“,“ \ \ shadowcom.local \ systeem\ profielen \ „& strUsername
objUser.SetInfo
'Separat af van de sektion til invoer wachtwoord til brugerne
objUser.userAccountControl = 512
objUser.SetPassword strPWD
objUser.AccountDisabled = Vals
objUser.SetInfo
Eind als
intRow = intRow + 1
Lijn
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
|