Pergunta : Como posso eu conseguir este certificado dos vbs saltar ao usuário seguinte, se do usuário o exsiste já no diretório ativo

Olá! Everyone.

I fizeram este certificado e eu preciso alguma ajuda, que mim preciso sou, se o exsiste do usuário já no diretório ativo dos xls arquiva, que não criará o usuário, porque do usuário o exsiste já no diretório ativo, pode qualquer um me ajudar??? objRootDSE seguinte do
Dim do resumo do erro do

On: Ajustar o objRootDSE = o GetObject (“LDAP: de //RootDSE do " )/>strDNSDomain = substituem (substituir (objRootDSE.Get
ultNamingContext”),”, DC= ", “."), de “DC=”, "") o objOU do objRootDSE do
Set = do
Dim de Nothing
: Ajustar o objOU = o GetObject (“LDAP: /” & do
de TARGET_OU) objExcel do
Dim: Ajustar o objWorkbook do objExcel = do
Dim de CreateObject (“Excel.Application”): Ajustar o objWorkbook = o começo do
' do
de objExcel.Workbooks.Open (EXCEL_FILE) na fileira 2, após o intRow de header.
Dim: intRow =
Do de 2
até objExcel.Cells (intRow, 1). O
do
do valor = do "" escurece o strUserName: strUserName = objExcel.Cells (intRow, 1). Value
escurece o strDisplayName: strDisplayName = objExcel.Cells (intRow, 2). Value
escurece o strFirstName: strFirstName = objExcel.Cells (intRow, 3). Value
escurece o strLastName: strLastName = objExcel.Cells (intRow, 4). Value
escurece o strDS: strDS = objExcel.Cells (intRow, 5). Valor strOffice não ofuscante do
': strOffice = objExcel.Cells (intRow, 6). Value
escurece o strPWD: strPWD = objExcel.Cells (intRow, 7). O
de Value

escurece o objUser: Ajustar o objUser = physicalDeliveryOfficeName” do strDS
“objUser.Put do strFirstName
objUser.Put “do strLastName
objUser.Put “do strDisplayName
objUser.Put “do strDNSDomain
objUser.Put “do strUserName
objUser.Put “do
objUser.Put “de objOU.Create (“usuário”, “CN=” & strDisplayName) sAMAccountName”, userPrincipalName”, o strUserName & “@” & displayName”, sn”, givenName”, descrição”, “, o strOffice
objUser.Put “homeDrive”, “X: “
objUser.Put “homeDirectory”,” \ \ shadowcom.local \ sistema \ profiles \ “ & sektion do strUsername
objUser.SetInfo
” Separat até a senha do af da importação até o brugerne
objUser.userAccountControl de/> = de 512
objUser.SetPassword objUser.AccountDisabled = de
de False
objUser.SetInfo
intRow = intRow +
do
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit de 1
Loop
class= do

Resposta : Como posso eu conseguir este certificado dos vbs saltar ao usuário seguinte, se do usuário o exsiste já no diretório ativo

Teve um erro tipográfico.  Tentar isto satisfazem.

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:

No erro recomeçar em seguida

Const ADS_SCOPE_SUBTREE = 2 'procurara objeto do alvo e todos os níveis do submarino


objRootDSE não ofuscante: Ajustar o objRootDSE = o GetObject (“LDAP: //RootDSE”)
o strDNSDomain = substitui (substituir (objRootDSE.Get (“defaultNamingContext”),”, DC= ", “."), “DC=”, o "")

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

'Conetar ao diretório ativo
Ajustar o objConnection = o CreateObject (“ADODB.Connection”)
Ajustar o objCommand = o CreateObject (“ADODB.Command”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “fornecedor ativo do diretório”
Ajustar objCommand.ActiveConnection = objConnection
objCommand.Properties (de “tamanho página”) = 1000
objCommand.Properties (“Searchscope”) = ADS_SCOPE_SUBTREE

 
objOU não ofuscante: Ajustar o objOU = o GetObject (“LDAP: /” & TARGET_OU)
 
objExcel não ofuscante: Ajustar o objExcel = o CreateObject (“Excel.Application”)
Escurecer o objWorkbook: Ajustar o objWorkbook = o objExcel.Workbooks.Open (EXCEL_FILE)
 
'Começar na fileira 2, após o encabeçamento.
Escurecer o intRow: intRow = 2
 
Fazer até objExcel.Cells (intRow, 1). Valor = ""
		  
	strUserName não ofuscante: strUserName = objExcel.Cells (intRow, 1). Valor
	strDisplayName não ofuscante: strDisplayName = objExcel.Cells (intRow, 2). Valor
	strFirstName não ofuscante: strFirstName = objExcel.Cells (intRow, 3). Valor
	strLastName não ofuscante: strLastName = objExcel.Cells (intRow, 4). Valor
	strDS não ofuscante: strDS = objExcel.Cells (intRow, 5). Valor  
	'strOffice não ofuscante: strOffice = objExcel.Cells (intRow, 6). Valor
	strPWD não ofuscante: strPWD = objExcel.Cells (intRow, 7). Valor
			
	'O domínio do ANÚNCIO da busca para verific o nome comum do usuário já não existe
	objCommand.CommandText = “distinguishedName SELETO DE '” & strADsPath & _
	““ONDE objectCategory='user” E cn='" & strDisplayName & “'”
	Ajustar o objRecordSet = o objCommand.Execute
	Se objRecordSet.EOF então
					 
		objUser não ofuscante: Ajustar o objUser = o objOU.Create (“usuário”, o “CN=” & o strDisplayName)
		objUser.Put “sAMAccountName”, strUserName
		objUser.Put “userPrincipalName”, strUserName & “@” & strDNSDomain
		objUser.Put “displayName”, strDisplayName
		objUser.Put “sn”, strLastName
		objUser.Put “givenName”, strFirstName
		objUser.Put “descrição”, strDS
		'objUser.Put “physicalDeliveryOfficeName”, strOffice
		objUser.Put “homeDrive”, “X: ”
		objUser.Put “homeDirectory”,” \ \ shadowcom.local \ sistema \ perfis \ “& strUsername
		objUser.SetInfo
		'Sektion de Separat até a senha do af da importação até o brugerne
		objUser.userAccountControl = 512
		strPWD de objUser.SetPassword
		objUser.AccountDisabled = falso
		objUser.SetInfo
	Terminar se
		
	intRow = intRow + 1
Laço
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Outras soluções  
 
programming4us programming4us