[Jan Eriksson]

En enkel lösning.

************************************************** **********
Dim strHost

strHost = InputBox("Något att pinga")

If Ping(strHost) = True then
Wscript.Echo "Värd " & strHost & " svarade på ping"
Else
Wscript.Echo "Värd " & strHost & " kan inte kontaktas"
End If

Function Ping(strHost)
Dim objPing, objRetStatus
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonat e}").ExecQuery ("select * from Win32_PingStatus where address = '" & strHost & "'")
For Each objRetStatus In objPing
If IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode <> 0 Then
Ping = False
Else
Ping = True
End If
Next
End Function
************************************************** **********

Sen kan du bygga vidare där en HTML sida öppnas och du kan välja server från en lista som du har skapat.