Erstellen von Skripten
In diesem Abschnitt wird ein Skript erstellt. Das Skript überprüft, ob der Nachrichtendienst auf dem lokalen Computer ausgeführt wird oder nicht. Die Entwicklung des Skripts erfolgt mithilfe des Script DebuggerEin GFI LANguard-Modul, mit dem Sie mithilfe einer VBScript-kompatiblen Sprache eigene Skripte erstellen und auf Fehler untersuchen können., wobei gleichzeitig einige seiner Funktionen vorgestellt werden.
Beispiel
Function main
'Erforderliche Objekte deklarieren
Dim wmi As Object
Dim objswbemobject As Object
'Benötigte andere Variablen deklarieren
Dim strComputer As String
Dim cr As String
strComputer = "127.0.0.1"
'Wagenrücklauf
cr = Chr(13) + Chr(10)
'Hook für das wmi-Objekt
Set wmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'Überprüfen, ob Hook erfolgreich erstellt wurde
If wmi is Nothing Then echo ("Fehler 1")
'Service-Instanz von wmi zurückliefern
Set wmiinst=wmi.instancesof("Win32_Service")
'Überprüfen, ob Instanz verfügbar ist
If wmiinst is Nothing Then echo ("Fehler 2")
'Alle Instanzen durchlaufen
For Each objswbemobject In wmiinst
If objswbemobject.DisplayName = "Messenger" Then
echo("Service-Name= ")
'Services anzeigen
echo(objswbemobject.DisplayName+cr)
echo("Service-Status= ")
'Status anzeigen
echo(objswbemobject.State+cr)
If objswbemobject.State = "Running" Then main = true
If objswbemobject.State = "Running" Then main = true
End If
Next
End Function