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.
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")