Vraag : Hoe ik dit vbsmanuscript kan ertoe brengen om aan de volgende gebruiker te springen, als de gebruiker reeds exsiste in Actieve folder

Hallo hebben Everyone.

I dit manuscript gemaakt en heb ik één of andere hulp nodig, welke Ibehoefte ben, als de gebruiker reeds exsiste in actieve folder van xls indient, dat het niet tot de gebruiker zal leiden, omdat de gebruiker reeds exsiste in actieve folder, iedereen me kan helpen??? />On de Fout

Dim objRootDSE: Reeks objRootDSE = GetObject („LDAP: //RootDSE " )
strDNSDomain = vervangt (vervang (objRootDSE.Get („defaultNamingContext“),“, DC= ", „. “), „DC=“, "")
Set objRootDSE = Nothing

Dim objOU: Reeks objOU = GetObject („LDAP: /“ & TARGET_OU)

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

' Begin bij Rij 2, na header.
Dim intRow: intRow = 2

Do tot objExcel.Cells (intRow, 1). Waarde = ""

Schemerige strUserName: strUserName = objExcel.Cells (intRow, 1). Schemerige strDisplayName van Value
: strDisplayName = objExcel.Cells (intRow, 2). Schemerige strFirstName van Value
: strFirstName = objExcel.Cells (intRow, 3). Schemerige strLastName van Value
: strLastName = objExcel.Cells (intRow, 4). Schemerige strDS van Value
: strDS = objExcel.Cells (intRow, 5). Schemerige strOffice van de waarde
': strOffice = objExcel.Cells (intRow, 6). Schemerige strPWD van Value
: strPWD = objExcel.Cells (intRow, 7). Schemerige objUser van Value


: Reeks objUser = objOU.Create („gebruiker“, „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 „beschrijving“, strDS
„objUser.Put „physicalDeliveryOfficeName“, strOffice
„homeDrive“ objUser.Put, „X: „„homeDirectory“
objUser.Put,“ \ \ shadowcom.local \ systeem \ profiles \ „ & strUsername
van objUser.SetInfo
“ Separat sektion til wachtwoord til 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

Antwoord : Hoe ik dit vbsmanuscript kan ertoe brengen om aan de volgende gebruiker te springen, als de gebruiker reeds exsiste in Actieve folder

Had typo.  Te proberen gelieve dit.

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:

Op Fout hervat daarna

Const ADS_SCOPE_SUBTREE = 'het doelvoorwerp van Onderzoek 2 en alle subniveaus


Schemerige objRootDSE: Reeks objRootDSE = GetObject („LDAP: //RootDSE“)
strDNSDomain = vervang (vervang (objRootDSE.Get („defaultNamingContext“),“, DC= ", „. “), „DC=“, "")

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

'Verbind met Actieve Folder
Plaats objConnection = CreateObject („ADODB.Connection“)
Plaats objCommand = CreateObject („ADODB.Command“)
objConnection.Provider = „ADsDSOObject“
objConnection.Open de „Actieve Leverancier van de Folder“
Vastgesteld objCommand.ActiveConnection = objConnection
objCommand.Properties (de „Grootte van de Pagina“) = 1000
objCommand.Properties („Searchscope“) = ADS_SCOPE_SUBTREE

 
Schemerige objOU: Reeks objOU = GetObject („LDAP: /“ & TARGET_OU)
 
Schemerige objExcel: Reeks objExcel = CreateObject („Excel.Application“)
Schemerige objWorkbook: Reeks objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Begin bij Rij 2, na de kopbal.
Schemerige intRow: intRow = 2
 
Doe tot objExcel.Cells (intRow, 1). Waarde = ""
		  
	Schemerige strUserName: strUserName = objExcel.Cells (intRow, 1). Waarde
	Schemerige strDisplayName: strDisplayName = objExcel.Cells (intRow, 2). Waarde
	Schemerige strFirstName: strFirstName = objExcel.Cells (intRow, 3). Waarde
	Schemerige strLastName: strLastName = objExcel.Cells (intRow, 4). Waarde
	Schemerige strDS: strDS = objExcel.Cells (intRow, 5). Waarde  
	'Schemerige strOffice: strOffice = objExcel.Cells (intRow, 6). Waarde
	Schemerige strPWD: strPWD = objExcel.Cells (intRow, 7). Waarde
			
	'Het Domein van de ADVERTENTIE van het onderzoek om gebruikers Gemeenschappelijke Naam te verifiëren bestaat niet reeds
	objCommand.CommandText = „SELECTEER distinguishedName VAN '“ & strADsPath & _
	„„WAAR objectCategory='user“ EN cn='" & strDisplayName & „'“
	Reeks objRecordSet = objCommand.Execute
	Als objRecordSet.EOF toen
					 
		Schemerige objUser: Reeks objUser = objOU.Create („gebruiker“, „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 „beschrijving“, strDS
		'objUser.Put „physicalDeliveryOfficeName“, strOffice
		objUser.Put „homeDrive“, „X: “
		objUser.Put „homeDirectory“,“ \ \ shadowcom.local \ systeem\ profielen \ „& strUsername
		objUser.SetInfo
		'Separat af van de sektion til invoer wachtwoord til brugerne
		objUser.userAccountControl = 512
		objUser.SetPassword strPWD
		objUser.AccountDisabled = Vals
		objUser.SetInfo
	Eind als
		
	intRow = intRow + 1
Lijn
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Andere oplossingen  
 
programming4us programming4us