Esempio di utilizzo di automazione dello script oggetti

Lo script seguente esegue la connessione con un oggetto automazione di Excel, crea un nuovo foglio ed esporta l’elenco dei servizi con i rispettivi stati. Questo script richiede Excel e WMI.

Function Main

Dim excel As Object 'Creazione degli oggetti necessari per lo script

Dim book As Object

Dim sheet As Object

Dim range As Object

Dim columns As Object

Dim wmiobj As Object

Dim objswbemobject As Object

strComputer = "127.0.0.1"

Set wmiobj = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

'Ottenere un oggetto wmi che consente il recupero di varie informazioni

If wmiobj is Nothing Then

echo ("Errore1 Impossibile creare l’oggetto WMI")

Else

Set excel = CreateObject("Applicazione.Excel")

'Connessione al nuovo oggetto automazione Excel

If excel is Nothing Then

Echo("Impossibile creare l’oggetto Excel")

Else

'visualizzazione versione Excel

echo ("sessione avviata con versione Excel "&excel.version)

'Aggiunta cartella di lavoro

Set book = excel.workbooks.add

'Aggiunta foglio di lavoro alla cartella di lavoro

Set sheet = Book.Worksheets.add

sheet.cells(1,1) = "Questo foglio è stato generato con uno script GFI LanGuard"

'Impostazione nomi colonne

sheet.cells(3,1) = "Nome servizio"

sheet.cells(3,2) = "Stato"

sheet.cells(3,3) = "Avviato"

'Recupero info servizi

Set wmiinst=wmiobj.instancesof("Win32_Service")

If wmiinst is Nothing Then

echo ("errore2: Impossibile recuperare le informazioni dei servizi")

Else

lnpos = 4

For Each objswbemobject In wmiinst

'Ciclo tramite tutti gli oggetti dei servizi

lnpos = lnpos + 1

sheet.cells(lnpos,1) = objswbemobject.DisplayName

'Immissione info servizi nel foglio Excel

sheet.cells(lnpos,2) = objswbemobject.State

sheet.cells(lnpos,3) = objswbemobject.Started

Next

'Regolazione automatica colonne

sheet.columns.AutoFit

'Visualizzazione foglio Excel

sheet.application.visible = true

End If

End If

End If

End Function