I checked the forum on this, and the way this person did it was to open a database on the server. I would think that this would be an expensive operation. While I have to check that the below code would work (it will take a while since many groups are using the developement server). I was hoping if any body knows a better way or even if this would work.
Note: dbServer is a glogal variable set to the current database the user is working with.
Public function isServerUp() As Boolean
Dim dirEntry As NotesDbDirectory
Dim dbTemp As NotesDatabase
Set dirEntry = sess.GetDbDirectory( dbCurrent.server)
Set dbTemp = dirEntry.getFirstDatabase( DATABASE)
If dbTemp Is Nothing Then
isServerUp = False
isServerUp = true
Feedback number WEBB8UHGJT created by John M Buragas on 05/21/2012