[fooztr]

Tycker det är roligt med onödigt inlägg. Men vi alla är inte lika, som tur är! "Ping of death batch" har inget med detta och göra så det var helt onödigt att ta upp. Antar att du tror att jag kommer använda detta script i något DoS syfte, då har du fel. Jag körde fast och jag håller på och bygger ut scriptet så den pingar från en lista där man samlar alla maskiner som skall pingas.

Jag jobbar som it supporter och det kan vara smidigt att använda sig av ett bra script som pingar upp alla maskiner/kollar om dem ligger mot nätverket när man skall jobba på dem.

Om du har några tips/idéer så är du välkommen att skriva i tråden, annars så kan du kila iväg. Tack!

Ursprungligen postat av eliasson

I nästa version (0.2?) av PING SCRIPT(!!!!!!!) så kan du även inkludera PING OF DEATH BATCH-koden:
http://www.youtube.com/watch?v=6tAQWP3TQZk

[Headswe]

Ursprungligen postat av fooztr

Tycker det är roligt med onödigt inlägg. Men vi alla är inte lika, som tur är! "Ping of death batch" har inget med detta och göra så det var helt onödigt att ta upp. Antar att du tror att jag kommer använda detta script i något DoS syfte, då har du fel. Jag körde fast och jag håller på och bygger ut scriptet så den pingar från en lista där man samlar alla maskiner som skall pingas.

Jag jobbar som it supporter och det kan vara smidigt att använda sig av ett bra script som pingar upp alla maskiner/kollar om dem ligger mot nätverket när man skall jobba på dem.

Om du har några tips/idéer så är du välkommen att skriva i tråden, annars så kan du kila iväg. Tack!

Asså, varför sa du inte det från början?

och nej, jag tror ingen är rädd för att du ska använda scriptet i ddos syfte...

[fooztr]

Jag kände att jag inte skulle behöva säga vad jag skulle ha det till, tycker inte behövs. Skrev vad jag sökte efter och jag fick det, tack vare dig! Tackar för det!

Och jag citerade inte ditt inlägg Headswe, men tack ändå

[Headswe]

Ursprungligen postat av fooztr

Jag kände att jag inte skulle behöva säga vad jag skulle ha det till, tycker inte behövs. Skrev vad jag sökte efter och jag fick det, tack vare dig! Tackar för det!

Och jag citerade inte ditt inlägg Headswe, men tack ändå

Men om du nu egentligen ville att en ska kontrollera en hel lista hade du ju kunnat få det på direkten?
Det är ju också lite mer motiverat än att göra ett script som bara gör att du slipper skriva "ping "

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

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

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