Aiuto di bisogno nella scrittura della funzione di oracolo… - Problemi e soluzioni alle problematiche legate a Software

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:

Sull'errore riprendere dopo

Const ADS_SCOPE_SUBTREE = 2 'cerca l'oggetto dell'obiettivo e tutti i livelli del sommergibile


objRootDSE fioco: Regolare il objRootDSE = GetObject (“LDAP: //RootDSE„)
lo strDNSDomain = sostituisce (sostituire (objRootDSE.Get (“defaultNamingContext„),„, DC= ", “."), “DC=„, "")

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

'Collegar all'indice attivo
Regolare il objConnection = CreateObject (“ADODB.Connection„)
Regolare il objCommand = CreateObject (“ADODB.Command„)
objConnection.Provider = “ADsDSOObject„
objConnection.Open “fornitore attivo dell'indice„
Regolar objCommand.ActiveConnection = objConnection
objCommand.Properties (“formato di pagina„) = 1000
objCommand.Properties (“Searchscope„) = ADS_SCOPE_SUBTREE

 
objOU fioco: Regolare il objOU = GetObject (“LDAP: /„ & TARGET_OU)
 
objExcel fioco: Regolare il objExcel = CreateObject (“Excel.Application„)
Oscurare il objWorkbook: Regolare il objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Iniziare alla fila 2, dopo l'intestazione.
Oscurare il intRow: intRow = 2
 
Fare fino a objExcel.Cells (intRow, 1).Value = ""
		  
	Oscurare lo strUserName: strUserName = objExcel.Cells (intRow, 1).Value
	strDisplayName fioco: strDisplayName = objExcel.Cells (intRow, 2).Value
	strFirstName fioco: strFirstName = objExcel.Cells (intRow, 3).Value
	strLastName fioco: strLastName = objExcel.Cells (intRow, 4).Value
	strDS fioco: strDS = objExcel.Cells (intRow, 5).Value  
	'strOffice fioco: strOffice = objExcel.Cells (intRow, 6).Value
	strPWD fioco: strPWD = objExcel.Cells (intRow, 7).Value
			
	'Il dominio dell'ANNUNCIO di ricerca per verificare il nome comune dell'utente già non esiste
	objCommand.CommandText = “distinguishedName PRESCELTO DA '„ & strADsPath & _
	““DOVE objectCategory='user„ E cn='" & strDisplayName & “'„
	Regolare il objRecordSet = objCommand.Execute
	Se objRecordSet.EOF allora
					 
		objUser fioco: Regolare il objUser = objOU.Create (“utente„, “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 “descrizione„, strDS
		'objUser.Put “physicalDeliveryOfficeName„, strOffice
		objUser.Put “homeDrive„, “X: „
		objUser.Put “homeDirectory„,„ \ \ shadowcom.local \ sistema \ profili \ “& strUsername
		objUser.SetInfo
		'Sektion di Separat lavorare alla parola d'accesso di af dell'importazione lavorare a brugerne
		objUser.userAccountControl = 512
		strPWD di objUser.SetPassword
		objUser.AccountDisabled = falso
		objUser.SetInfo
	Concluder se
		
	intRow = intRow + 1
Ciclo
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit

Questione : Aiuto di bisogno nella scrittura della funzione di oracolo…

Risposta : Aiuto di bisogno nella scrittura della funzione di oracolo…