Fråga : Behovshjälp, skriftligen som ett orakel fungerar…,

Jag behöver någon hjälp, skriftligen som ett recursive fungerar för vilket jag kan borra kassalådaRM specificerar för en Product.

Attached fungerar är någon hur jag önskar att skriva fäst för it.
In fungerar den 1st ska markören får alla ingrediens för OBJEKTLEGITIMATION allra för en särskild produkt
then alla objekt passeras till den 2nd markören, som ska får alla specificerar för SG12- och för SG 16 lager av inventariumtypRMEN och INT.
If som vi får RM då mellanlägget in i ett, bordlägger, om appellen för INT därefter ett 1st sådan det för markör igen in det bör borrar långt besegrar kassalåda, den får RM….," för
filename " för class= för >

 NEW-RM-REPORT.sql " fileSize " > (5 KB) " javascript för href= " för <-/span>
Functionen
<-/div>
" " för >
<-/div> " klar "

Svar : Behovshjälp, skriftligen som ett orakel fungerar…,

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