Option Explicit
Sub Main
Dim intReturn As Integer
Dim varMachineAddress As Variant
Dim intPingTimeout As Integer
Dim varVarToSet As Variant
Dim intPingAction As Integer
Dim varPingTaskToStart As Variant
Dim intNoPingAction As Integer
Dim varNoPingTaskToStart As Variant
varMachineAddress = "www.unisyn.com"
intPingTimeOut = 1500
varVarToSet = ""
intPingAction = 2
varPingTaskToStart = ""
intNoPingAction = 1
varNoPingTaskToStart = ""
intReturn = Action2.PingMachine (varMachineAddress, intPingTimeout, varVarToSet, intPingAction, varPingTaskToStart, intNoPingAction, varNoPingTaskToStart)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub