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
ping v *.bat subore Vyřešeno
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23591
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: ping v *.bat subore
Vítej na PC-HELP!
Nemůžu sloužit s *.bat
Ale nabízím skript ve vbs, který sám používám:
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.
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
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
- Microsheep
- Level 4.5
- Příspěvky: 1656
- Registrován: leden 10
- Pohlaví:
- Stav:
Offline
Re: ping v *.bat subore
bat
powershell
pokud alespon 1 ping dorazi tak je vysledek "je tu" u obou
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
Re: ping v *.bat subore
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.
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23591
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: ping v *.bat subore
Tos mohl taky napsat hned
Počet počítačů můžeš upravit rozšířením pole Array. A následně počet cyklů For/Next
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
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
Re: ping v *.bat subore
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.
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.
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23591
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: ping v *.bat subore
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).
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
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
Re: ping v *.bat subore
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")
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")
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23591
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: ping v *.bat subore
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
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
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
Re: ping v *.bat subore Vyřešeno
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
-
- 14
- 2771
-
od Alferi
Zobrazit poslední příspěvek
24 čer 2023 13:35
-
- 1
- 1070
-
od mmmartin
Zobrazit poslední příspěvek
20 čer 2023 22:27
-
- 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