Domino 9 und frühere Versionen > Entwicklung

Erreichbarkeit eines Servers testen

<< < (3/5) > >>

Semeaphoros:
Absetzen eines Consolen-Commandos, das könnte gehen.

Alternativ würde ich sehen, dass man mit der Serverr-Probe ein Mail abschickt bei Fehler und diese Mail einer Mail-In-Datenbank zukommen lässt. Dort stösst man einen "After Mail Arrives"-Agenten an, der den Code ausführt.

Driri:
Hi,

ich hab gerade noch nen Script ausgebuddelt, mit dem man die Serververfügbarkeit testen können soll (habs nicht getestet). Das kann man sicherlich mit ein paar Anpassungen für deinen Fall nutzen.

This agent will poll all servers to see if they are up and it will send you a mail message with the details.


--- Code: ---Dim servername As Variant
Dim view As NotesView
Dim doc As NotesDocument
Dim x As Integer
Dim session As New NotesSession
Dim dbase2 As NotesDatabase

servername = session.GetEnvironmentString("MailServer",True)

Dim dbase As New NotesDatabase(servername,"Names.nsf")
Dim nlog As New NotesLog("Server Responsiveness List")

Call nlog.OpenMailLog(session.UserName,"Server Check Results")

Set view = dbase.GetView("Servers")
Set doc = view.GetFirstDocument
On Error Resume Next

While Not (doc Is Nothing)
   servername = doc.getItemValue("ServerName")
   Dim dbasecollection As New NotesDBDirectory(ServerName(0))
   Set dbase2 = dbasecollection.GetFirstDatabase(Database)

   If Err <> 0 Then
      Call nlog.LogAction("Unable to Access Server " & _
      servername(0))
      Err = 0
   Else
      Call nlog.LogAction("Server " & servername(0) & " OK")
   End If

   Set Doc = view.GetNextDocument(Doc)
Wend

nlog.Close
Messagebox("Finished Polling Servers")

--- Ende Code ---

Semeaphoros:
So auf den ersten Blick läuft das unter 5 aber nur unter einem Client korrect und nicht scheduled auf einem Server

Driri:
Ich habs noch mal gescheduled getestet und die Ergebnisse des Agents waren korrekt.

oson00:
Also, ich hab's auf eine, 5.0.11er Server probiert und er hat mir wieder die Fehlermeldung

Cannot open databases on machines other than the server running your program

ausgegeben. Ich versuche gerade die laufenden Server innerhalb eines Clusters herauszubekommen.

Mittels des absetzen eine Befehls auf der Serverkonsole auf dem anderen Server und Auswertung des Rückgabewerts, kann ich allerdings herausbekommen, welcher Server läuft.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete