[fooztr]

Det ville jag göra själv, så därför frågade jag inte om det!

[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.

[fooztr]

Ojj, tack så hemskt mycket! Du var en vänlig person! Ska kolla på det, måste sätta mig och tänka lite hur jag ska bygga ut det så bra som möjligt!

Ursprungligen postat av 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.