Questione : Aiuto di VBscript per un Newbie che prova a tirare il calcolatore Info dell'ANNUNCIO in Excel 2007

Tutti,

possono qualcuno soddisfare per aiutarlo.  Devo tirare il calcolatore Info (nome di Netbios, condizione di cliente, OU, ecc) dall'ANNUNCIO.  Sono detto che il migliore senso fare questo è con un VBScript.  È ci uno scritto che generico posso usare; Conosco pochissimo che scripting.  Ringraziamenti SOOO molto!!!! class= del

Risposta : Aiuto di VBscript per un Newbie che prova a tirare il calcolatore Info dell'ANNUNCIO in Excel 2007

hey

il mio dello scritto vba ma esso ancora non più adatti ai vostri bisogni
gli chiederà il nome del ou ed esporterà i calcolatori Info nel ou alla lima del csv
che potete aprirti direttamente con eccellere e fare che cosa volete mai


incollare il codice al blocchetto per appunti e conservarlo con l'estensione dei vbs
pubblicare la linea 1 per il vostri nome di schedario e percorso del csv

se avete bisogno di c'è ne registrano allo scritto lo lasciano sapere.
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:

strcsv = “c:\csv.csv„
Regolare il objfso = CreateObject (“Scripting.FileSystemObject„)
Regolare il objcsv = objfso.CreateTextFile (strCsv, allineare)

objcsv.WriteLine “cn, descrizione, displayName, dNSHostName, posizione, machineRole, nome, networkAddress, operatingSystem„

strOuname = InputBox (“introdurre il nome del ou„)

Regolare i colItems = GetObject (searchad (“organizationalUnit„, strOuName, “adspath„))
colItems.Filter = allineamento (“calcolatore„)

Per ogni objItem nei colItems
	objcsv.WriteLine objItem.CN & “,„ & objItem.description & “,„ & objItem.displayName & “,„ & objItem.dNSHostName & “,„ & objItem.location & “,„ & objItem.machineRole & “,„ & objItem.name & “,„ & workAddress di objItem.net & “,„ & objItem.operatingSystem
Dopo






Funzione SearchAd (objtype, objname, strProp)
	Regolare il objRootDSE = GetObject (“LDAP: //RootDSE„)
	strDomain = “LDAP: /„ & objRootDSE.Get (“defaultNamingContext„)
	Regolare il oCn = CreateObject (“ADODB.Connection„)
	Regolare il oCmd = CreateObject (“ADODB.Command„)
	oCn.Provider = “ADsDSOObject„
	oCn.Open “fornitore attivo dell'indice„
	Regolar oCmd.ActiveConnection = oCn
	oCmd.Properties (“formato di pagina„) = 1000
	oCmd.Properties (“Searchscope„) = 2 
	oCmd.CommandText = “SELEZIONANO„ & strProp & “DA “„ & strDomain & “„ DOVE objectCategory='" & objtype &„ “e name=„„ & objname & “'ORDINE per nome„
	Regolare il oRS = oCmd.Execute
			
	'oRS.MoveFirst
	Fare fino a oRS.EOF
		SearchAd = oRS.Fields (strProp). Valore
		oRS.MoveNext
	Ciclo
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us