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

[fooztr]

Det var synd att det inte fungerade!

Får följande error:
http://data.fuskbugg.se/skalman01/vbs_error.bmp

tack på förhand

[Jan Eriksson]

OBS, blir fel när man spara. Ett mellanrum impersonat och e ska bort. Det ska stå impersonate


set objPing = GetObject("winmgmts:{impersonationLevel=impersonat e}").ExecQuery("select * from Win32_PingStatus where address = '" & strHost & "'")

Lustigt fel i forumet när man sparar. I redigeringsfönstret syns koden som den ska men när man spara den så läggs ett mellanrum till på koden.

[BjörnJ]

Ursprungligen postat av Jan Eriksson

Lustigt fel i forumet när man sparar. I redigeringsfönstret syns koden som den ska men när man spara den så läggs ett mellanrum till på koden.

Jag har märkt samma sak tidigare. Man kan klicka på "citera" och sedan kopiera koden därifrån så blir det rätt.

[fooztr]

Såg det, jag hade kollat igenom koden 2 gånger innan jag såg det! Fixade det ungefär två timmar innan ditt inlägg vart postat.

tack för hjälpen!

[Alex]

Lär dig posta i rätt forum. Typ tredje tråden från dig som jag flyttar. Dessutom känns det här som en skoluppgift.

[fooztr]

Då skulle jag vilja vet vilka trådar jag har postat fel? Om jag minns rätt så är den här som kanske hamnade fel...

Och varför skulle det vara en skoluppgift? :S

[fooztr]

Nu kan någon administratör låsa eller ta bort tråden, fick det jag ville ha!
Tack till dem som hjälpte mig!