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!
Citat:
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.
|