Fråga : Hur kan jag få denna, vbs skrivar för att hoppa till den nästa användaren, om exsisten för användaren redan i aktivarkiv

Hi har Everyone.

I gjort denna att skriva, och jag behöver någon hjälp, vad mig behöver är, om exsisten för användaren i aktivarkiv från xlsna sparar redan, att den ska för att inte skapa användaren, därför att för användaren exsisten redan i aktivarkiv, kan någon hjälpa mig??? för felmeritförteckning för

On objRootDSE för
Dim nästa: Fastställd objRootDSE = GetObject (”LDAP: //RootDSE
)/>strDNSDomain = byter ut (byt ut (objRootDSE.Get (”defaultNamingContext”),”, DC= ", ”. ”), ”DC=”, objRootDSE för
Set för "") = objOU för Nothing

Dim: Fastställd objOU = GetObject (”LDAP: /” & för
för TARGET_OU) objExcel för
Dim: Fastställd objExcel = objWorkbook för CreateObject (”Excel.Application”)
Dim: Fastställd objWorkbook = starten för
' för
för objExcel.Workbooks.Open (EXCEL_FILE) på ror 2, efter intRowen för header.
Dim: intRow =
Do för 2
till objExcel.Cells (intRow, 1). Värdera = strUserName för
för ""
dunkel: strUserName = objExcel.Cells (intRow, 1). Value
dunkel strDisplayName: strDisplayName = objExcel.Cells (intRow, 2). Value
dunkel strFirstName: strFirstName = objExcel.Cells (intRow, 3). Value
dunkel strLastName: strLastName = objExcel.Cells (intRow, 4). Value
dunkel strDS: strDS = objExcel.Cells (intRow, 5). Värdera den dunkla strOfficen för
': strOffice = objExcel.Cells (intRow, 6). Value
dunkel strPWD: strPWD = objExcel.Cells (intRow, 7). Dunkel objUser för Value


: Fastställd objUser = physicalDeliveryOfficeName” för strDS
”objUser.Put för strFirstName
objUser.Put ”för strLastName
objUser.Put ”för strDisplayName
objUser.Put ”för strDNSDomain
objUser.Put ”för strUserName
objUser.Put ”för
objUser.Put ”för objOU.Create (”användaren”, ”CN=” & strDisplayName) sAMAccountName”, userPrincipalName”, strUserName & ”@” & displayName”, sn”, givenName”, beskrivning”, ”, ”homeDrive” strOffice
objUser.Put, ”X: ””homeDirectory”
objUser.Put,” \ \ shadowcom.local \ system \ profiles \ ” & sektion för strUsername
objUser.SetInfo
” Separat til importaf-lösenord til brugerne
objUser.userAccountControl = för 512
objUser.SetPassword strPWD
objUser.AccountDisabled = intRow för False
objUser.SetInfo

= intRow +
för
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit för 1
Loop
" klar "

Svar : Hur kan jag få denna, vbs skrivar för att hoppa till den nästa användaren, om exsisten för användaren redan i aktivarkiv

Hade en typo.  Försök som detta behar.

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:
På felmeritförteckning därefter

Const ADS_SCOPE_SUBTREE = 'sökande 2 uppsätta som mål anmärker, och all suben jämnar


Dunkel objRootDSE: Fastställd objRootDSE = GetObject (”LDAP: //RootDSE”)
strDNSDomain = byter ut (byt ut (objRootDSE.Get (”defaultNamingContext”),”, DC= ", ”. ”), ”DC=”, "")

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

'Förbind till aktivarkivet
Fastställd objConnection = CreateObject (”ADODB.Connection”)
Fastställd objCommand = CreateObject (”ADODB.Command”)
objConnection.Provider = ”ADsDSOObject”,
objConnection.Open ”aktivarkivfamiljeförsörjare”,
Uppsättning objCommand.ActiveConnection = objConnection
objCommand.Properties (”sidan storleksanpassar”), = 1000
objCommand.Properties (”Searchscope”) = ADS_SCOPE_SUBTREE

 
Dunkel objOU: Fastställd objOU = GetObject (”LDAP: /” & TARGET_OU)
 
Dunkel objExcel: Fastställd objExcel = CreateObject (”Excel.Application”)
Dunkel objWorkbook: Fastställd objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Starten på ror 2, efter titelraden.
Dunkel intRow: intRow = 2
 
Gör till objExcel.Cells (intRow, 1). Värdera = "",
		  
	Dunkel strUserName: strUserName = objExcel.Cells (intRow, 1). Värdera
	Dunkel strDisplayName: strDisplayName = objExcel.Cells (intRow, 2). Värdera
	Dunkel strFirstName: strFirstName = objExcel.Cells (intRow, 3). Värdera
	Dunkel strLastName: strLastName = objExcel.Cells (intRow, 4). Värdera
	Dunkel strDS: strDS = objExcel.Cells (intRow, 5). Värdera  
	'Dunkel strOffice: strOffice = objExcel.Cells (intRow, 6). Värdera
	Dunkel strPWD: strPWD = objExcel.Cells (intRow, 7). Värdera
			
	'SökandeANNONSområdet som verifierar den vanligt kända användaren, inte finns redan
	objCommand.CommandText = ”VALD distinguishedName FRÅN '” & strADsPath & _,
	””VAR objectCategory='user” OCH cn='" & strDisplayName & ”'”,
	Fastställd objRecordSet = objCommand.Execute
	Om objRecordSet.EOF därefter
					 
		Dunkel objUser: Fastställd objUser = objOU.Create (”användare”, ”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 ”beskrivning”, strDS
		'objUser.Put ”physicalDeliveryOfficeName”, strOffice
		”homeDrive” objUser.Put, ”X: ”,
		”homeDirectory” objUser.Put,” \ \ shadowcom.local \ system \ profilerar \ ”& strUsername
		objUser.SetInfo
		'Separat sektion til importaf-lösenord til brugerne
		objUser.userAccountControl = 512
		objUser.SetPassword-strPWD
		objUser.AccountDisabled = falskt
		objUser.SetInfo
	Avsluta om
		
	intRow = intRow + 1
Kretsa
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Andra lösningar  
 
programming4us programming4us