Ayuda de la necesidad en la escritura de una función del oráculo… - Problemas y soluciones a los problemas relacionados con 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:

En error reasumir después

Const ADS_SCOPE_SUBTREE = 2 'busca el objeto de la blanco y todos los niveles del submarino


objRootDSE dévil: Fijar el objRootDSE = GetObject (“LDAP: //RootDSE”)
el strDNSDomain = substituye (substituir (objRootDSE.Get (“defaultNamingContext”),”, DC= ", “."), “DC=”, el "")

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

'Conectar con el directorio activo
Fijar el objConnection = CreateObject (“ADODB.Connection”)
Fijar el objCommand = CreateObject (“ADODB.Command”)
objConnection.Provider = “ADsDSOObject”
objConnection.Open “abastecedor activo del directorio”
Fijar objCommand.ActiveConnection = objConnection
objCommand.Properties (“tamaño de página”) = 1000
objCommand.Properties (“Searchscope”) = ADS_SCOPE_SUBTREE

 
objOU dévil: Fijar el objOU = GetObject (“LDAP: /” y TARGET_OU)
 
objExcel dévil: Fijar el objExcel = CreateObject (“Excel.Application”)
Amortiguar el objWorkbook: Fijar el objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Comenzar en la fila 2, después del jefe.
Amortiguar el intRow: intRow = 2
 
Hacer hasta objExcel.Cells (intRow, 1).Value = el ""
		  
	Amortiguar el strUserName: strUserName = objExcel.Cells (intRow, 1).Value
	strDisplayName dévil: strDisplayName = objExcel.Cells (intRow, 2).Value
	strFirstName dévil: strFirstName = objExcel.Cells (intRow, 3).Value
	strLastName dévil: strLastName = objExcel.Cells (intRow, 4).Value
	strDS dévil: strDS = objExcel.Cells (intRow, 5).Value  
	'strOffice dévil: strOffice = objExcel.Cells (intRow, 6).Value
	strPWD dévil: strPWD = objExcel.Cells (intRow, 7).Value
			
	'El dominio del ANUNCIO de la búsqueda para verificar nombre común del usuario no existe ya
	objCommand.CommandText = “distinguishedName SELECTO DE '” y strADsPath y _
	““DONDE objectCategory='user” Y cn='" y strDisplayName y “'”
	Fijar el objRecordSet = objCommand.Execute
	Si objRecordSet.EOF entonces
					 
		objUser dévil: Fijar el objUser = objOU.Create (“usuario”, “CN=” y el strDisplayName)
		objUser.Put “sAMAccountName”, strUserName
		objUser.Put “userPrincipalName”, strUserName y “@” y strDNSDomain
		objUser.Put “displayName”, strDisplayName
		objUser.Put “sn”, strLastName
		objUser.Put “givenName”, strFirstName
		objUser.Put “descripción”, strDS
		'objUser.Put “physicalDeliveryOfficeName”, strOffice
		objUser.Put “homeDrive”, “X: ”
		objUser.Put “homeDirectory”,” \ \ shadowcom.local \ sistema \ perfiles \ “y strUsername
		objUser.SetInfo
		'Sektion de Separat hasta contraseña del af de la importación hasta brugerne
		objUser.userAccountControl = 512
		strPWD de objUser.SetPassword
		objUser.AccountDisabled = falso
		objUser.SetInfo
	Terminar si
		
	intRow = intRow + 1
Lazo
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit

Cuestión : Ayuda de la necesidad en la escritura de una función del oráculo…

Respuesta : Ayuda de la necesidad en la escritura de una función del oráculo…