Lotus Domino script snippet: Pinging a server to check if it is online.
Simple LotusScript using the Notes API to check if a server is online, without having to open a database
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Option Declare Public Const NOERROR = 0 Public Const W32_NOTES_LIB = "nnotes.dll" Type LongLongType l1 As Long l2 As Long End Type Declare Function W32_NSPingServer Lib W32_NOTES_LIB Alias "NSPingServer" (ByVal pServerName As LMBCS String, pdwIndex As Long, phLIst As LongLongType) As Integer Public Function PingServer(psServerName As String) As Boolean Dim lllDHandle As LongLongType lllDHandle.l1 = 0 lllDHandle.l2 = 0 PingServer = (W32_NSPingServer(psServerName, 0, lllDHandle) = NOERROR) End Function |