I have search the site but can't find what I am looking for.

I have a DB with ranges of IP addresses to track our servers.  On the form, is a button to ping the server. 

You click it, it pulls the IP address from the form and then executes the following code.

Dim session As New NotesSession
    Dim platform As String
    platform = session.Platform
    Dim ui As New NotesUIWorkspace
    Dim doc As NotesDocument
    Set doc = ui.CurrentDocument.document
    Dim ip As String
    Dim result As Integer
    ip =  doc.IP(0)    
    If platform = "Windows/64" Then
        Print platform
        result = Shell("ping -a -t  -n 5 " & ip, 1)        
    Elseif platform = "Windows/32" Then
        Print platform
        result = Shell("ping -a -t -n 5 " & ip, 1)
    Elseif platform = "Macintosh/64" Then
        Print platform
        REM result = Shell("ping -c 5 " & ip, 1)
        Messagebox "Still trying to get this to work on the Mac!" , MB_OK, "DUH!!!!"
    Elseif platform = "UNIX" Then
        Print platform
        Messagebox "Still trying to get this to work on LINUX!" , MB_OK, "DUH!!!!"
        REM result = Shell("/usr/bin/ping", 1)
    Else
        Messagebox platform & " is not currently supported.", MB_OK, "Opps!!!"
    End If

Works great under Windows using the SHELL function.  But apparently, the SHELL function only works under Windows???

Does anyone have the required LotusScript code to get the ping command to work under RHEL or MAC?

Thanks,

Joe

PS...I had to comment out the code.  It tends to lock up the MAC and RHEL systems, depending on what switches are included with the ping command.