Надо написать простенькую прогу которая по задаваемоиу айпишнику проверяет пингом видимость компьютера для компьютера с которого запускается эта программка.Короче надо 0 - если комп не пингуется и 2 если пингуется...

Как там сокеты расписать... Уже давно VB6 и API забросил.

Ну вот я откопал

Public Function Ping(sAddress As String, _
sDataToSend As String, _
ECHO As ICMP_ECHO_REPLY) As Long

'If Ping succeeds :
'.RoundTripTime = time in ms for the ping to complete,
'.Data is the data returned (NULL terminated)
'.Address is the Ip address that actually replied
'.DataSize is the size of the string in .Data
'.Status will be 0
'
'If Ping fails .Status will be the error code

Dim hPort As Long
Dim dwAddress As Long

'convert the address into a long representation
dwAddress = inet_addr(sAddress)

'if a valid address..
If dwAddress <> INADDR_NONE Then

'open a port
hPort = IcmpCreateFile()

'and if successful,
If hPort Then

'ping it.
Call IcmpSendEcho(hPort, _
dwAddress, _
sDataToSend, _
Len(sDataToSend), _
0, _
ECHO, _
Len(ECHO), _
PING_TIMEOUT)

'return the status as ping succes and close
Ping = ECHO.status
Call IcmpCloseHandle(hPort)

End If

Else:
'the address format was probably invalid
Ping = INADDR_NONE

End If

End Function

Как мне верно вызвать эту функцию , чтобы удостоверится доступен хост или нет?

Пасибки , получилось.

вот может кому пригодится.