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

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

SearchWindowsServer

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

SearchDataCenter

SearchExchange

SearchContentManagement

Close