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