¿Como hacer ping a un servidor?

[rapbyone]

Amigos necesito su ayuda, necesito poder verificar si un servidor esta disponible a través de la IP, en vb.net el código es muy sencillo:

Código [Seleccionar] Expandir

If My.Computer.Network.Ping("198.01.01.01") Then
 MsgBox("Server pinged successfully.")
Else
 MsgBox("Ping request timed out.")
End If

Pero no consigo lograrlo en vb6
Conocen algún método para hacerlo

Muchas gracias amigos

[XresH]

Leete este hilo para tener mas informacion:

Código [Seleccionar] Expandir


http://foro.elhacker.net/scripting/duda_ejecutar_comandos_cmd_con_vb_6-t275838.0.html


Coloca un boton de comando y un textbox (donde ira la ip a hacer ping) y coloca este codigo:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim exeCmd As String
exeCmd = Shell("cmd.exe /k ping" & " " & Text1.Text, vbNormalFocus)
End Sub

Este code abrira la consola y hara ping a la ip que especificaste, pero mostrara la ventana de dialogo.

No es exactamente lo que buscas pero ahi podes orientarte y buscarle la vuelta.

Saludos.