Frage : Wie ich diesen vbs Index erhalten kann, um zum folgenden Benutzer zu springen, wenn das Benutzer bereits exsiste im aktiven Verzeichnis

Hallo gebildet Everyone.

I diesen Index und ich benötige etwas Hilfe, was ich brauche bin, wenn das Benutzer bereits exsiste im aktiven Verzeichnis von den xls archivieren, dass es nicht den Benutzer herstellt, weil das Benutzer bereits exsiste im aktiven Verzeichnis, jedermann mir helfen kann???

On Störungs-Zusammenfassung folgendes
Dim objRootDSE: objRootDSE = GetObject einstellen („LDAP: //RootDSE " ) ersetzen/>strDNSDomain = (ersetzen (objRootDSE.Get
ultNamingContext“),“, DC= ", „."), „DC=“, "")
Set objRootDSE = Nothing

Dim objOU: objOU = GetObject einstellen („LDAP: /“ u. TARGET_OU)

Dim objExcel: objExcel = CreateObject („Excel.Application“)
Dim objWorkbook einstellen: objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)

' Anfang an Reihe 2, nach dem header.
Dim intRow einstellen: intRow = 2

Do bis objExcel.Cells (intRow, 1).Value = ""

verdunkeln strUserName: strUserName = objExcel.Cells (intRow, 1).Value
verdunkeln strDisplayName: strDisplayName = objExcel.Cells (intRow, 2).Value
verdunkeln strFirstName: strFirstName = objExcel.Cells (intRow, 3).Value
verdunkeln strLastName: strLastName = objExcel.Cells (intRow, 4).Value
verdunkeln strDS: strDS = objExcel.Cells (intRow, 5).Value
'schwaches strOffice: strOffice = objExcel.Cells (intRow, 6).Value
verdunkeln strPWD: strPWD = objExcel.Cells (intRow, 7).Value


verdunkeln objUser: objUser = objOU.Create („Benutzer“, „CN=“ u. strDisplayName)
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“ einstellen, das strOffice
objUser.Put „homeDrive“, „X: „
objUser.Put „homeDirectory“,“ \ \ shadowcom.local \ System \ profiles \ „ u. strUsername
objUser.SetInfo
“ Separat sektion bis Import af-Kennwort bis brugerne
objUser.userAccountControl = 512
objUser.SetPassword strPWD
objUser.AccountDisabled = False
objUser.SetInfo

intRow = intRow + 1
Loop

objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit

Antwort : Wie ich diesen vbs Index erhalten kann, um zum folgenden Benutzer zu springen, wenn das Benutzer bereits exsiste im aktiven Verzeichnis

Hatte einen Typo.  Dieses versuchen gefallen.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

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
Weitere Lösungen  
 
programming4us programming4us