Cuestión : Cómo puedo conseguir esta escritura de los vbs para saltar al usuario siguiente, si del usuario el exsiste ya en directorio activo

¿Hola Everyone.

I han hecho esta escritura y necesito una cierta ayuda, qué yo necesito soy, si el exsiste del usuario en directorio activo de los xls archiva ya, que no creará a usuario, porque del usuario el exsiste ya en directorio activo, puede cualquier persona ayudarme??? objRootDSE siguiente del
Dim del curriculum vitae del error del

On: Fijar el objRootDSE = GetObject (“LDAP: de //RootDSE " del )/>strDNSDomain = substituyen (substituir (el objRootDSE.Get
ultNamingContext”),”, DC= ", “."), “de DC=”, "") el objOU del objRootDSE del
Set = del
Dim de Nothing
: Fijar el objOU = GetObject (“LDAP: /” y objExcel del
Dim del
de TARGET_OU): Fijar el objWorkbook del objExcel = del
Dim de CreateObject (“Excel.Application”): Fijar el objWorkbook = el comienzo del
' del
de objExcel.Workbooks.Open (EXCEL_FILE) en la fila 2, después del intRow de header.
Dim: intRow =
Do de 2
hasta objExcel.Cells (el intRow, 1).Value =
del
del "" amortigua el strUserName: strUserName = objExcel.Cells (el intRow, 1).Value
amortigua el strDisplayName: strDisplayName = objExcel.Cells (el intRow, 2).Value
amortigua el strFirstName: strFirstName = objExcel.Cells (el intRow, 3).Value
amortigua el strLastName: strLastName = objExcel.Cells (el intRow, 4).Value
amortigua el strDS: strDS = objExcel.Cells (intRow, 5).Value strOffice dévil del
': strOffice = objExcel.Cells (el intRow, 6).Value
amortigua el strPWD: strPWD = objExcel.Cells (el intRow,
de 7).Value

amortigua el objUser: Fijar el objUser = physicalDeliveryOfficeName” del strDS
“objUser.Put del strFirstName
objUser.Put “del strLastName
objUser.Put “del strDisplayName
objUser.Put “del strDNSDomain
objUser.Put “del strUserName
objUser.Put “del
objUser.Put “de objOU.Create (“usuario”, “CN=” y strDisplayName) sAMAccountName”, userPrincipalName”, el strUserName y “@” y displayName”, sn”, givenName”, descripción”, “, el strOffice
objUser.Put “homeDrive”, “X: “
objUser.Put “homeDirectory”,” \ \ shadowcom.local \ sistema \ profiles \ “ y sektion del strUsername
objUser.SetInfo
” Separat hasta contraseña del af de la importación hasta el brugerne
objUser.userAccountControl de/> = de 512
objUser.SetPassword objUser.AccountDisabled = intRow del
de False
objUser.SetInfo
= intRow +
del
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit de 1
Loop
class= del

Respuesta : Cómo puedo conseguir esta escritura de los vbs para saltar al usuario siguiente, si del usuario el exsiste ya en directorio activo

Tenía un error tipográfico.  Intentar esto satisfacen.

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:

En error reasumir después

Const ADS_SCOPE_SUBTREE = 2 'busca el objeto de la blanco y todos los niveles del submarino


objRootDSE dévil: Fijar el objRootDSE = GetObject (“LDAP: //RootDSE”)
el strDNSDomain = substituye (substituir (objRootDSE.Get (“defaultNamingContext”),”, DC= ", “."), “DC=”, el "")

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

'Conectar con el directorio activo
Fijar el objConnection = CreateObject (“ADODB.Connection”)
Fijar el objCommand = CreateObject (“ADODB.Command”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “abastecedor activo del directorio”
Fijar objCommand.ActiveConnection = objConnection
objCommand.Properties (“tamaño de página”) = 1000
objCommand.Properties (“Searchscope”) = ADS_SCOPE_SUBTREE

 
objOU dévil: Fijar el objOU = GetObject (“LDAP: /” y TARGET_OU)
 
objExcel dévil: Fijar el objExcel = CreateObject (“Excel.Application”)
Amortiguar el objWorkbook: Fijar el objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Comenzar en la fila 2, después del jefe.
Amortiguar el intRow: intRow = 2
 
Hacer hasta objExcel.Cells (intRow, 1).Value = el ""
		  
	Amortiguar el strUserName: strUserName = objExcel.Cells (intRow, 1).Value
	strDisplayName dévil: strDisplayName = objExcel.Cells (intRow, 2).Value
	strFirstName dévil: strFirstName = objExcel.Cells (intRow, 3).Value
	strLastName dévil: strLastName = objExcel.Cells (intRow, 4).Value
	strDS dévil: strDS = objExcel.Cells (intRow, 5).Value  
	'strOffice dévil: strOffice = objExcel.Cells (intRow, 6).Value
	strPWD dévil: strPWD = objExcel.Cells (intRow, 7).Value
			
	'El dominio del ANUNCIO de la búsqueda para verificar nombre común del usuario no existe ya
	objCommand.CommandText = “distinguishedName SELECTO DE '” y strADsPath y _
	““DONDE objectCategory='user” Y cn='" y strDisplayName y “'”
	Fijar el objRecordSet = objCommand.Execute
	Si objRecordSet.EOF entonces
					 
		objUser dévil: Fijar el objUser = objOU.Create (“usuario”, “CN=” y el strDisplayName)
		objUser.Put “sAMAccountName”, strUserName
		objUser.Put “userPrincipalName”, strUserName y “@” y strDNSDomain
		objUser.Put “displayName”, strDisplayName
		objUser.Put “sn”, strLastName
		objUser.Put “givenName”, strFirstName
		objUser.Put “descripción”, strDS
		'objUser.Put “physicalDeliveryOfficeName”, strOffice
		objUser.Put “homeDrive”, “X: ”
		objUser.Put “homeDirectory”,” \ \ shadowcom.local \ sistema \ perfiles \ “y strUsername
		objUser.SetInfo
		'Sektion de Separat hasta contraseña del af de la importación hasta brugerne
		objUser.userAccountControl = 512
		strPWD de objUser.SetPassword
		objUser.AccountDisabled = falso
		objUser.SetInfo
	Terminar si
		
	intRow = intRow + 1
Lazo
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Otras soluciones  
 
programming4us programming4us