Cuestión : VBScript para exportar a miembros de grupos y de la exportación a Excel

el hihi,

I que intenta exportar a miembros de grupos en Excel, cada grupo es una nueva respuesta de worksheet.

The en trabajos de esta pregunta MUY BIEN: ¿href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_26298266.html?sfQueryTermInfo=1+10+30+distribut+excel+export+get+group+member+script " del

ramming/Languages/Visual_Basic/VB_Script/Q_26298266.html del e.com/Prog de http://www.experts-exchang? ¿el sfQueryTermInfo=1+10+30+distribut+excel+export+get+group+member+script

Except que quisiera apenas poblara cada hoja de trabajo, para no pedir que chasque la AUTORIZACIÓN para cada carácter máximo de user.

The la longitud para los nombres de la hoja de trabajo es 31 carácteres, algunos de los grupos es más largo de 31 carácteres y la escritura para, es allí cualquier manera apenas de capsular el nombre de la hoja de trabajo en 31 carácteres?

thanks class= del

Respuesta : VBScript para exportar a miembros de grupos y de la exportación a Excel

Hola, he comentado hacia fuera las líneas de WScript.Echo, y he cambiado esta línea
      groupName de .ActiveSheet.Name=

a esto
      .ActiveSheet.Name= se fue (groupName, 31)

Respetos,

Robo.
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:
69:
70:
71:
72:
73:
74:
75:
76:

Opción explícita

adoCommand dévil, adoConnection, strBase, strFilter, strAttributes
objRootDSE dévil, strDNSDomain, strQuery, adoRecordset, strName, groupType, groupName, iRow
objExcel dévil, arrMembers, strMember

'Objetos de la DIFICULTAD de la disposición.
Fijar el adoCommand = CreateObject (“ADODB.Command”)
Fijar el adoConnection = CreateObject (“ADODB.Connection”)
adoConnection.Provider = “ADsDSOObject”
adoConnection.Open “abastecedor activo del directorio”
adoCommand.ActiveConnection = adoConnection

'Dominio activo entero del directorio de la búsqueda.
Fijar el objRootDSE = GetObject (“LDAP: //RootDSE”)
strDNSDomain = objRootDSE.Get (“defaultNamingContext”)
strBase = ""

'Filtro en grupos de la distribución.
strFilter = “(objectCategory=group)”

'Lista delimitada coma de valores de cualidad a recuperar.
strAttributes = “distinguishedName, miembro, groupType, nombre”

'Construir la pregunta del sintaxis de LDAP.
strQuery = strBase y “; ” y strFilter y “; ” y strAttributes y “; sub-estructura”
adoCommand.CommandText = strQuery
adoCommand.Properties (“tamaño de página”) = 100
adoCommand.Properties (“descanso”) = 30
adoCommand.Properties (el “escondrijo resulta”) = falso

'Funcionar con la pregunta.
Fijar el adoRecordset = adoCommand.Execute

Fijar el objExcel = CreateObject (“Excel.Application”)
Con el objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Visible = verdad

'Enumerar el recordset resultante.
Hacer hasta adoRecordset.EOF
'Recuperar los valores y la exhibición.
strName = adoRecordset.Fields (“distinguishedName”). Valor
groupType  = adoRecordset.Fields (“groupType”). Valor
el groupName  = substituye (adoRecordset.Fields (“nombre”). Valor, “CN=”, "")

'conseguir solamente a grupos de la distribución
si groupType=2 o groupType=4 o groupType=8 entonces
	irow=1
	.ActiveWorkbook.Worksheets.Add
	.ActiveSheet.Name= se fue (groupName, 31)
	arrMembers = adoRecordset.Fields (“miembro”). Valor

	'Grupo de la distribución de Wscript.Echo “: ” y strName
	Si IsNull (arrMembers) entonces
		'Wscript.Echo “--  ”
	
		Para cada strMember en arrMembers
			'Wscript.Echo “-- ” y strMember
			Fijar el objRootDSE = GetObject (“LDAP: /“&strMember)
			. Células (el iRow, 1) = substituye (objRootDSE.Name, “CN=”, "")
			irow=irow + 1
		Después
	Terminar si
Terminar si
'Moverse al expediente siguiente en el recordset.
adoRecordset.MoveNext
Lazo
. Columnas (1).entirecolumn.autofit
Extremo con

'Limpiar.
adoRecordset.Close
adoConnection.Close
Fijar el objExcel = nada
Otras soluciones  
 
programming4us programming4us