Ipswitch WhatsUp Gold User Guide - Ipswitch Documentation Server

Ipswitch WhatsUp Gold User Guide
End Function
Else
End If
Set oStateRS = CreateObject("ADODB.Recordset")
oStateRS.Open sSqlGetUpState,oDBconn,3
'if recordset is empty then
If oStateRS.RecordCount = 1 Then
Else
End If
If instr(1,oStateRS("sStateName"),"up",1) > 0 Then
Else
End If
oStateRS.Close
oDBconn.Close
IsPingUp = true
IsPingUP = false
'if there's no ping on the device, then just assume up, so regular check will happen.
IsPingUp= true
Set oStateRS = Nothing
Set oDBconn = Nothing
'assume up, since there's no device yet. It's for scanning during discovery.
IsPingUP = true
'Try to get the current login user name.
918