Questione : Come posso convincere questo scritto dei vbs per saltare all'utente seguente, se dell'utente il exsiste già nell'indice attivo

Ciao Everyone.

I hanno fatto questo scritto ed ho bisogno di un certo aiuto, che cosa io ho bisogno di sono, se il exsiste dell'utente già nell'indice attivo dai xls archiva, che non genererà l'utente, perché dell'utente il exsiste già nell'indice attivo, può chiunque aiutarlo??? objRootDSE seguente del
Dim del riassunto di errore del

On: Regolare il objRootDSE = GetObject (“LDAP: di //RootDSE " del )/>strDNSDomain = sostituiscono (sostituire (objRootDSE.Get
ultNamingContext„),„, DC= ", “."), “di DC=„, "") il objOU del objRootDSE del
Set = del
Dim di Nothing
: Regolare il objOU = GetObject (“LDAP: /„ & objExcel del
Dim del
di TARGET_OU): Regolare il objWorkbook del ation Excel.ApplicDim: Fissare il objWorkbook = l'inizio del
'del
di objExcel.Workbooks.Open (EXCEL_FILE) alla fila 2, dopo il intRow di header.
Dim: intRow =
Do di 2
fino a objExcel.Cells (intRow, 1).Value = il
del
del "" oscura lo strUserName: strUserName = objExcel.Cells (intRow, 1).Value
oscura lo strDisplayName: strDisplayName = objExcel.Cells (intRow, 2).Value
oscura lo strFirstName: strFirstName = objExcel.Cells (intRow, 3).Value
oscura lo strLastName: strLastName = objExcel.Cells (intRow, 4).Value
oscura lo strDS: strDS = objExcel.Cells (intRow, 5).Value strOffice fioco del
': strOffice = objExcel.Cells (intRow, 6).Value
oscura lo strPWD: strPWD = objExcel.Cells (intRow, il
di 7).Value

oscura il objUser: Regolare il objUser = il physicalDeliveryOfficeName„ dello strDS
“objUser.Put dello strFirstName
objUser.Put “dello strLastName
objUser.Put “dello strDisplayName
objUser.Put “dello strDNSDomain
objUser.Put “dello strUserName
objUser.Put “del
objUser.Put “di objOU.Create (“utente„, “CN=„ & strDisplayName) sAMAccountName„, userPrincipalName„, lo strUserName & “@„ & displayName„, Sn„, givenName„, descrizione„, “, strOffice
objUser.Put “homeDrive„, “X: “
objUser.Put “homeDirectory„,„ \ \ shadowcom.local \ sistema \ profiles \ “ & sektion dello strUsername
objUser.SetInfo
„ Separat lavorare alla parola d'accesso di af dell'importazione lavorare a brugerne
objUser.userAccountControl di 512
/> objUser.SetPassword objUser.AccountDisabled = intRow del
di False
objUser.SetInfo
= intRow +
del
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit di 1
Loop
class= del

Risposta : Come posso convincere questo scritto dei vbs per saltare all'utente seguente, se dell'utente il exsiste già nell'indice attivo

Ha avuto un typo.  Provare questo per favore.

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:
36:
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:

Sull'errore riprendere dopo

Const ADS_SCOPE_SUBTREE = 2 'cerca l'oggetto dell'obiettivo e tutti i livelli del sommergibile


objRootDSE fioco: Regolare il objRootDSE = GetObject (“LDAP: //RootDSE„)
lo strDNSDomain = sostituisce (sostituire (objRootDSE.Get (“defaultNamingContext„),„, DC= ", “."), “DC=„, "")

strADsPath = “LDAP: /„ & objRootDSE.Get (“defaultNamingContext„)

'Collegar all'indice attivo
Regolare il objConnection = CreateObject (“ADODB.Connection„)
Regolare il objCommand = CreateObject (“ADODB.Command„)
objConnection.Provider = “ADsDSOObject„
objConnection.Open “fornitore attivo dell'indice„
Regolar objCommand.ActiveConnection = objConnection
objCommand.Properties (“formato di pagina„) = 1000
objCommand.Properties (“Searchscope„) = ADS_SCOPE_SUBTREE

 
objOU fioco: Regolare il objOU = GetObject (“LDAP: /„ & TARGET_OU)
 
objExcel fioco: Regolare il objExcel = CreateObject (“Excel.Application„)
Oscurare il objWorkbook: Regolare il objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Iniziare alla fila 2, dopo l'intestazione.
Oscurare il intRow: intRow = 2
 
Fare fino a objExcel.Cells (intRow, 1).Value = ""
		  
	Oscurare lo strUserName: strUserName = objExcel.Cells (intRow, 1).Value
	strDisplayName fioco: strDisplayName = objExcel.Cells (intRow, 2).Value
	strFirstName fioco: strFirstName = objExcel.Cells (intRow, 3).Value
	strLastName fioco: strLastName = objExcel.Cells (intRow, 4).Value
	strDS fioco: strDS = objExcel.Cells (intRow, 5).Value  
	'strOffice fioco: strOffice = objExcel.Cells (intRow, 6).Value
	strPWD fioco: strPWD = objExcel.Cells (intRow, 7).Value
			
	'Il dominio dell'ANNUNCIO di ricerca per verificare il nome comune dell'utente già non esiste
	objCommand.CommandText = “distinguishedName PRESCELTO DA '„ & strADsPath & _
	““DOVE objectCategory='user„ E cn='" & strDisplayName & “'„
	Regolare il objRecordSet = objCommand.Execute
	Se objRecordSet.EOF allora
					 
		objUser fioco: Regolare il objUser = objOU.Create (“utente„, “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 “descrizione„, strDS
		'objUser.Put “physicalDeliveryOfficeName„, strOffice
		objUser.Put “homeDrive„, “X: „
		objUser.Put “homeDirectory„,„ \ \ shadowcom.local \ sistema \ profili \ “& strUsername
		objUser.SetInfo
		'Sektion di Separat lavorare alla parola d'accesso di af dell'importazione lavorare a brugerne
		objUser.userAccountControl = 512
		strPWD di objUser.SetPassword
		objUser.AccountDisabled = falso
		objUser.SetInfo
	Concluder se
		
	intRow = intRow + 1
Ciclo
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Altre soluzioni  
 
programming4us programming4us