Creazione di uno script

In questa sezione viene creato uno script. Lo script controlla se il servizio di messaggistica è o meno in esecuzione sul computer locale. Lo script viene sviluppato utilizzando lo script debugger e dimostra alcune delle sue funzionalità.

Esempio

Function main

'dichiarazione degli oggetti che dovranno essere utilizzati

Dim wmi As Object

Dim objswbemobject As Object

'dichiarazione delle altre variabili necessarie

Dim strComputer As String

Dim cr As String

strComputer = "127.0.0.1"

'ritorno a capo

cr = Chr(13) + Chr(10)

'hook con l’oggetto wmi

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

'controllo della riuscita dell’hook

If wmi is Nothing Then echo ("errore1")

'restituzione istanza servizi di wmi

Set wmiinst=wmi.instancesof("Win32_Service")

'controllo per vedere disponibilità dell’istanza

If wmiinst is Nothing Then echo ("errore2")

'Ciclo true per ogni istanza

For Each objswbemobject In wmiinst

If objswbemobject.DisplayName = "Messenger" Then

echo("Nome servizio= ")

'Visualizzazione servizi

echo(objswbemobject.DisplayName+cr)

echo("Stato servizio= ")

'stato visualizzato

echo(objswbemobject.State+cr)

If objswbemobject.State = "Esecuzione" Then main = true

If objswbemobject.State = "Esecuzione" Then main = true

End If

Next

End Function