Batch/vbs ping script
 

Hejsan!

Det är så att jag sitter här på jobbet och jag skulle vilja ha lite hjälp med ett batch script som jag tänkte använda för att pinga maskiner som sitter på nätverket!

Det jag är ute efter är att när man klickar på iconen så kommer rutan upp, skriver in en ip-adress och sedan ger resultat t.e.x "hosten svarade på ping".

Det kanske är smidigare med ett vb script? Eller vad tror ni? Är väldigt tacksam om någon här på WN kunde knepa ihop något lätt script till mig eller länka till ett!

Tack för förhand :)
/fooztr

cmd->"ping xxxxx"
?

Jag menar att om du ändå ska skriva in ipnummer kan du väl också bara skriva "ping", tar ju typ 1 sec?

Om jag hade orkat det så hade jag inte bett om ett script som gjorde det åt mig?

Du vill alltså ha ett skript som enbart ska spara in tiden det tar att skriva "ping"?

Okey...

Precis, men tror du inte har förstått riktigt vad jag är ute efter. Tror även jag glömde skriva med att den bara ska köra 1 ping. Och sedan skriva ut resultatet.

Om du nu inte kan skriva scriptet så bör du inte skriva onödiga inlägg!

@ECHO OFF

set /p t=IP:

ping -n 1 -l 1 %t%


PAUSE>NUL

Tack så mycket, men tyvärr så fungerar det inget vidare :(

Så här ser min kod ut:

@echo off
title, Ping script v0.1
color a
echo ************************************************** **********
echo * *
echo * Ange en host du vill pinga. "Target 127.0.0.1" *
echo * *
echo ************************************************** **********

echo.
set /p t=IP:
echo.
ping -n 1 -l 1 %t%

PAUSE>NUL

Tänkte just fråga om jag inte skulle ändra till grön textfärg också, så att det såg tuffare ut.. men det fixade du ju så snyggt själv..


Hur som helst fungerar det bra här.

Haha, nu var du bra dryg! Vad det nu är för färg på texten så spelar det ingen roll, det är skönt för ögonen med grön text mot svart bakgrund helt enkelt. Försöker inte efterlikna någon "hacker" promt.

Vad kör du för version av windows?

**edit, nvm*** tack för hjälpen!

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

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

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 "

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

En lösning
 

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.

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!

Det var synd att det inte fungerade!

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

tack på förhand

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.

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!

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.

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

Seriöst. Du jobbar som IT-support och kan varken googla dig till hjälp eller kompletta skript för ditt ändamål?
Med skoluppgift så tror jag att han syftar på svårighetsgraden i din frågeställning.

Ja, det var jag jätterädd för.
Sarkasm Sarkasm Sarkasm Sarkasm Sarkasm Sarkasm

Visst kan jag googla det, men mycket lättare att be om det? Någon vänlig person skrev scriptet istället. Och koda är inget man är tvungen att kunna när man jobbar inom it-support.

"Skoluppgift" - Visst är det det, för dem som kan.

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!

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

Varför inte köra DoS mot Google när man ändå håller på? :D
http://www.youtube.com/watch?v=NYb7lg3xcKM

(För att undvika missförstånd: Jag tror inte att trådskaparen har något ont uppsåt med sitt skript.)

Haha, det roliga är att han tror att han gör något unikt som ingen kan.

En mogen person, tack!