Questione : VBScript per esportare i membri dei gruppi e dell'esportazione ad Excel

il hihi,

I che prova ad esportare i membri dei gruppi in Excel, ogni gruppo è una nuova risposta di worksheet.

The negli impianti di questo problema BENE: 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 di http://www.experts-exchang? lo sfQueryTermInfo=1+10+30+distribut+excel+export+get+group+member+script

Except che lo vorrei per popolare appena ogni manuale, per non chiedermi di scattare l'APPROVAZIONE per ogni carattere massimo di user.

The la lunghezza per i nomi del manuale è 31 carattere, alcuni dei gruppi è più lungo di 31 carattere e lo scritto si arresta, è là tutto il senso ricoprire appena il nome del manuale a 31 carattere?

thanks class= del

Risposta : VBScript per esportare i membri dei gruppi e dell'esportazione ad Excel

Ciao, ho commentato fuori le linee di WScript.Echo ed ho cambiato questa linea
      groupName di .ActiveSheet.Name=

a questo
      .ActiveSheet.Name= ha andato (groupName, 31)

Riguardi,

Rob.
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:

Opzione esplicita

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

'Oggetti di DIFFICOLTÀ di messa a punto.
Regolare il adoCommand = CreateObject (“ADODB.Command„)
Regolare il adoConnection = CreateObject (“ADODB.Connection„)
adoConnection.Provider = “ADsDSOObject„
adoConnection.Open “fornitore attivo dell'indice„
adoCommand.ActiveConnection = adoConnection

'Intero dominio attivo dell'indice di ricerca.
Regolare il objRootDSE = GetObject (“LDAP: //RootDSE„)
strDNSDomain = objRootDSE.Get (“defaultNamingContext„)
strBase = ""

'Filtro sui gruppi di distribuzione.
strFilter = “(objectCategory=group)„

'Lista delimitata virgola dei valori di attributo da richiamare.
strAttributes = “distinguishedName, membro, groupType, nome„

'Costruire la domanda di sintassi di LDAP.
strQuery = strBase & “; „ & strFilter & “; „ & strAttributes & “; sotto-albero„
adoCommand.CommandText = strQuery
adoCommand.Properties (“formato di pagina„) = 100
adoCommand.Properties (“prespegnimento„) = 30
adoCommand.Properties (“il nascondiglio risulta„) = falso

'Fare funzionare la domanda.
Regolare il adoRecordset = adoCommand.Execute

Regolare il objExcel = CreateObject (“Excel.Application„)
Con objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Visibile = allineare

'Enumerare il recordset risultante.
Fare fino a adoRecordset.EOF
'Richiamare i valori e l'esposizione.
strName = adoRecordset.Fields (“distinguishedName„). Valore
groupType  = adoRecordset.Fields (“groupType„). Valore
il groupName  = sostituisce (adoRecordset.Fields (“nome„). Valore, “CN=„, "")

'ottenere soltanto i gruppi di distribuzione
se groupType=2 o groupType=4 o groupType=8 allora
	irow=1
	.ActiveWorkbook.Worksheets.Add
	.ActiveSheet.Name= ha andato (groupName, 31)
	arrMembers = adoRecordset.Fields (“membro„). Valore

	Gruppo di distribuzione 'di Wscript.Echo “: „ & strName
	Se IsNull (arrMembers) allora
		'Wscript.Echo “--  „
	Altrimenti
		Per ogni strMember in arrMembers
			'Wscript.Echo “-- „ & strMember
			Regolare il objRootDSE = GetObject (“LDAP: /“&strMember)
			. Cellule (iRow, 1) = sostituisce (objRootDSE.Name, “CN=„, "")
			irow=irow + 1
		Dopo
	Concluder se
Concluder se
'Muover verso l'annotazione seguente nel recordset.
adoRecordset.MoveNext
Ciclo
. Colonne (1).entirecolumn.autofit
Estremità con

'Pulire.
adoRecordset.Close
adoConnection.Close
Regolare il objExcel = niente
Altre soluzioni  
 
programming4us programming4us