Check For Down Servers

Checks for Down Servers Sub Initialize 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") End Sub

This was first published in November 2000

Dig deeper on Domino Resources - Part 3

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close