ping v *.bat subore Vyřešeno

Místo pro dotazy a rady ohledně programovacích jazyků (C++, C#, PHP, ASP, Javascript, VBS..) a tvorby webových stránek

Moderátor: Mods_senior

ledagdo
nováček
Příspěvky: 17
Registrován: listopad 18
Pohlaví: Muž
Stav:
Offline

ping v *.bat subore

Příspěvekod ledagdo » 07 lis 2018 15:18

Dobry den. Potreboval by som prikaz v bat subore ktory by mi po neuspesnom pingu vypisal NIE JE TU alebo po uspenom JE TU.
resp. keby mi to niekto pomohol dopisat do mojho

@echo off
echo.

ping 192.168.10.153 -n 2
echo.
pause

Ano som lama ale aj tak dakujem

Reklama
Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore

Příspěvekod ITCrowd » 07 lis 2018 15:49

Vítej na PC-HELP!
Nemůžu sloužit s *.bat
Ale nabízím skript ve vbs, který sám používám:

Kód: Vybrat vše

'****************************************************
'*        Skript pingne počítač strHost             *   
'****************************************************
'*           Vytvořeno pro PC-HELP                  *
'*        Etienn@Script v 1.0   (c)2018             *
'****************************************************

Dim Shell, strCommand, strHost, ReturnCode, text
strHost = "127.0.0.1"

'Create shell object
Set Shell = wscript.createObject("wscript.shell")

'What to run in command line
strCommand = "ping -n 1 -w 1000 " & strHost

'Run command and get return code
ReturnCode = Shell.Run(strCommand, 0, True)

'0 = pingable, 1 = no response
  If ReturnCode = 0 Then
  text = strHost & vbTab & " ping OK" & vbCrLf
  Else
  text = strHost & vbTab & " NO ping" & vbCrLf
  End If
MsgBox text, vbOKOnly + vbInformation, " Test pingu:"

'Remove shell object
Set Shell = Nothing

POZNÁMKA:
Text zkopíruj do notepadu (či podobně) a ulož s příponou .vbs. NEPOUŽÍVAT WORD, ANI JINÝ TEXTOVÝ EDITOR!!
Poklepáním spustíš.
IP adresa pro ping je v závorkách u proměnné strHost. 127.0.0.1 bude fungovat i u tebe.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
Microsheep
Level 4.5
Level 4.5
Příspěvky: 1656
Registrován: leden 10
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore

Příspěvekod Microsheep » 07 lis 2018 16:13

bat

Kód: Vybrat vše

ping -n 2 192.168.1.1 | find "TTL=" >nul
if errorlevel 1 (
    echo "nie je tu"
) else (
    echo "je tu"
)


powershell

Kód: Vybrat vše

$ping = Test-Connection 192.168.1.1 -Count 2 -Quiet
If ($ping) {
    echo "je tu"
}
else {
    echo "nie je tu"
}

pokud alespon 1 ping dorazi tak je vysledek "je tu" u obou

ledagdo
nováček
Příspěvky: 17
Registrován: listopad 18
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore

Příspěvekod ledagdo » 08 lis 2018 11:59

Dakujem Vam. Ako by som do toho vbs skriptu pridal este dalsie IP adresy? Aby mi v tom jednom okne vypisoval dostupnost viacerych pocitacov. Dufam, ze neotravujem.

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore

Příspěvekod ITCrowd » 08 lis 2018 12:31

Tos mohl taky napsat hned :-)

Kód: Vybrat vše

'****************************************************
'*        Skript pingá počítače strHost             *   
'****************************************************
'*           Vytvořeno pro PC-HELP                  *
'*        Etienn@Script v 1.1   (c)2018             *
'****************************************************

Option Explicit

Dim Shell, strCommand, strHost, ReturnCode, textY, textN, i
strHost = Array ("10.0.0.16", "10.0.0.17", "10.0.0.18", "10.0.0.19", "10.0.0.20")

'Create shell object
Set Shell = wscript.createObject("wscript.shell")

For i = 0 To 4
'What to run in command line
strCommand = "ping -n 1 -w 1000 " & strHost(i)
'Run command and get return code
ReturnCode = Shell.Run(strCommand, 0, True)
'0 = pingable, 1 = no response
  If ReturnCode = 0 Then
  textY = textY & strHost(i) & vbTab & " ping OK" & vbCrLf
  Else
  textN = textN & strHost(i) & vbTab & " NO ping" & vbCrLf
  End If
Next

MsgBox textY, vbOKOnly + vbInformation, "Pingy OK"
If textN <> "" Then
MsgBox textN, vbOKOnly + vbCritical, "Nepingající servery"
End If

'Remove shell object
Set Shell = Nothing


Počet počítačů můžeš upravit rozšířením pole Array. A následně počet cyklů For/Next
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

ledagdo
nováček
Příspěvky: 17
Registrován: listopad 18
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore

Příspěvekod ledagdo » 08 lis 2018 12:48

Diki Diki, a keby mi este vedla IPecky vypisoval aj nazov pocitaca? Samozrejme to dopisem do tvojho skriptu ja...;))

Dodatečně přidáno po 23 minutách 8 vteřinách:
Prisiel som na to. Vedla IP som dopisal nazov. Tak mi to staci. Velke DIKES za pomoc.

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore

Příspěvekod ITCrowd » 08 lis 2018 13:15

Tak to už tak jednoduché není.
1. a nejjednodušší možnost - vytvoříš další pole s názvy tak, aby název a IP odpovídaly indexu i.
2. použít konzoli WMI, zde ale musíš znát admin přístup k okolním počítačům. Navíc musí být ve firewallu prostup pro WMI, což ve výchozím nastavení není.
3. Pokud je doména, pak použít nslookup, to ale mám pouze ve stadiu pokusu. A zatím neúspěšného.

Dodatečně přidáno po 56 vteřinách:
Není zač. Označ téma jako vyřešené (zelené zatržítko).
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

ledagdo
nováček
Příspěvky: 17
Registrován: listopad 18
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore

Příspěvekod ledagdo » 08 lis 2018 14:51

1. a nejjednodušší možnost - vytvoříš další pole s názvy tak, aby název a IP odpovídaly indexu i.

kurnik neviem to spravit.... som debko

Dodatečně přidáno po 1 minutě 28 vteřinách:
takto nejako?
strHost = Array ("192.168.10.1", "192.168.10.2", "192.168.10.3")
strHost = Array ("NAME1", "NAME2", "NAME3")

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore

Příspěvekod ITCrowd » 08 lis 2018 15:42

Ta proměnná musí být jiná.
třeba strHostName. Nelze mít stejnou proměnnou pro dvě různé věci.
A řádek pro zobrazení pak upravíš: textY = textY & strHost(i) & vbTab & strHostName(i) & vbTab & " ping OK" & vbCrLf
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

ledagdo
nováček
Příspěvky: 17
Registrován: listopad 18
Pohlaví: Muž
Stav:
Offline

Re: ping v *.bat subore  Vyřešeno

Příspěvekod ledagdo » 09 lis 2018 07:53

taaak, uz pomali tomu zacinam rozumiet, funguje to naparadu...;) Dakujem velmi pekne. Este sa musim niekde docitat ako sa nastavuju farby, resp. ci sa to vobec da..;)


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • velký ping Příloha(y)
    od Mladkov204 » 19 dub 2023 14:08 » v Sítě - hardware
    14
    2771
    od Alferi Zobrazit poslední příspěvek
    24 čer 2023 13:35
  • Mega vysoký ping
    od Mladkov204 » 20 čer 2023 22:12 » v Sítě - hardware
    1
    1070
    od mmmartin Zobrazit poslední příspěvek
    20 čer 2023 22:27
  • Hodně vysoký ping
    od Mladkov204 » 21 čer 2023 13:37 » v Sítě - hardware
    1
    1162
    od mmmartin Zobrazit poslední příspěvek
    21 čer 2023 13:44

Zpět na “Programování a tvorba webu”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti