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