Dienstüberwachung - 2

'Projektname: Monitor Services
'Author:      Tony Spegel
'Jahr:        2011-November/Dezember
'Funktion:    Dieses Programm überwacht Dienste auf zwei
'             verschiedenen Servern und vergleicht
'             deren Status und gibt diese als HTML-Tabelle aus.
'             Teil 1 - Formular
'-----------------------------------------------------------------------------------------------------

'Anmerkung:
'Die zwei Server auf denen die Dienste überprüft werden sollen ("10.9.99.100" und "10.9.99.101"),
'sind nicht Mitglied in der Domain. Um trotzdem den Status der Dienste zu prüfen, ist es notwendig
'einen Nutzer anzulegen welcher in der Domain vorhanden ist (auch dessen Passwort muss übereinstimmen)
'und dieser muss Mitglied der Gruppe "administratoren" sein. Weiterhin muss der
'Dienst "Intelligenter Hintergrundübertragungsdienst" auf beiden Servern laufen.

Option Explicit
'Funktionen:

'isRunning(Computer As String, Dienst As String) as Byte
'läuft der Dienst, welchen Status besitzt er?

'erwartet eine IP/Namen und einen Dienst als String, gibt eine Zahl von 0-2 zurück,
'welche den jeweiligen Status entspricht:
'0: nicht vorhanden; 1: Running; 2: Stopped
'der Standard ist "-1" also "nicht prüfbar" und wird dementsprechend überschrieben

'Aufruf:
  'isRunning("127.0.0.1", "Telefonie")
'__________________________________________________________________________________

'nDienst()
'Vergleich der jeweiligen Dienste und Ausgabe, ruft isRunning auf
'__________________________________________________________________________________

'Zeiteisen_Timer
'Timmer um jede Minute Dienste zu überprüfen

Const ZeiteisenInterval = 300
Dim Zeit As Integer

Private Sub Form_Load()
  Zeit = ZeiteisenInterval
End Sub

'Timer der die Prüfung alle 5 Minuten startet
Private Sub Zeiteisen_Timer()
On Error Resume Next

   If Zeit = ZeiteisenInterval Then
      If Me.Zeiteisen.Interval <> 1000 Then
         Me.Zeiteisen.Interval = 1000
      End If

      StatusLabel.Caption = "Abfrage läuft"
      nDienst

      Zeit = 0
    End If

    Zeit = Zeit + 1
    StatusLabel.Caption = "Abfrage der Dienste in: " & ZeiteisenInterval - Zeit & "s"

    Debug.Print Zeit
End Sub