Ajuda da necessidade em escrever uma função do oracle… - Problemas e soluções para questões relacionadas com 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:

No erro recomeçar em seguida

Const ADS_SCOPE_SUBTREE = 2 'procurara objeto do alvo e todos os níveis do submarino


objRootDSE não ofuscante: Ajustar o objRootDSE = o GetObject (“LDAP: //RootDSE”)
o strDNSDomain = substitui (substituir (objRootDSE.Get (“defaultNamingContext”),”, DC= ", “."), “DC=”, o "")

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

'Conetar ao diretório ativo
Ajustar o objConnection = o CreateObject (“ADODB.Connection”)
Ajustar o objCommand = o CreateObject (“ADODB.Command”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “fornecedor ativo do diretório”
Ajustar objCommand.ActiveConnection = objConnection
objCommand.Properties (de “tamanho página”) = 1000
objCommand.Properties (“Searchscope”) = ADS_SCOPE_SUBTREE

 
objOU não ofuscante: Ajustar o objOU = o GetObject (“LDAP: /” & TARGET_OU)
 
objExcel não ofuscante: Ajustar o objExcel = o CreateObject (“Excel.Application”)
Escurecer o objWorkbook: Ajustar o objWorkbook = o objExcel.Workbooks.Open (EXCEL_FILE)
 
'Começar na fileira 2, após o encabeçamento.
Escurecer o intRow: intRow = 2
 
Fazer até objExcel.Cells (intRow, 1). Valor = ""
		  
	strUserName não ofuscante: strUserName = objExcel.Cells (intRow, 1). Valor
	strDisplayName não ofuscante: strDisplayName = objExcel.Cells (intRow, 2). Valor
	strFirstName não ofuscante: strFirstName = objExcel.Cells (intRow, 3). Valor
	strLastName não ofuscante: strLastName = objExcel.Cells (intRow, 4). Valor
	strDS não ofuscante: strDS = objExcel.Cells (intRow, 5). Valor  
	'strOffice não ofuscante: strOffice = objExcel.Cells (intRow, 6). Valor
	strPWD não ofuscante: strPWD = objExcel.Cells (intRow, 7). Valor
			
	'O domínio do ANÚNCIO da busca para verific o nome comum do usuário já não existe
	objCommand.CommandText = “distinguishedName SELETO DE '” & strADsPath & _
	““ONDE objectCategory='user” E cn='" & strDisplayName & “'”
	Ajustar o objRecordSet = o objCommand.Execute
	Se objRecordSet.EOF então
					 
		objUser não ofuscante: Ajustar o objUser = o objOU.Create (“usuário”, o “CN=” & o strDisplayName)
		objUser.Put “sAMAccountName”, strUserName
		objUser.Put “userPrincipalName”, strUserName & “@” & strDNSDomain
		objUser.Put “displayName”, strDisplayName
		objUser.Put “sn”, strLastName
		objUser.Put “givenName”, strFirstName
		objUser.Put “descrição”, strDS
		'objUser.Put “physicalDeliveryOfficeName”, strOffice
		objUser.Put “homeDrive”, “X: ”
		objUser.Put “homeDirectory”,” \ \ shadowcom.local \ sistema \ perfis \ “& strUsername
		objUser.SetInfo
		'Sektion de Separat até a senha do af da importação até o brugerne
		objUser.userAccountControl = 512
		strPWD de objUser.SetPassword
		objUser.AccountDisabled = falso
		objUser.SetInfo
	Terminar se
		
	intRow = intRow + 1
Laço
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit

Pergunta : Ajuda da necessidade em escrever uma função do oracle…

Resposta : Ajuda da necessidade em escrever uma função do oracle…