Re: plik wsadowy - pingowanie + ipconfig

1634Racine wrote:
> Przemysław Rachwał in news:gqo641$eud$1@inews.gazeta.pl
> [.............]
>>> do czego zmierzasz?
>
> czy slowo ping nadal wielu kojarzy sie z tym, czym sie kojarzy? no nie
> wierzę,ale może...

strComputer = "192.168.1.1"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
     ("Select * from Win32_PingStatus " & _
         "Where Address = '" & strComputer & "'")
For Each objItem in colItems
     If objItem.StatusCode = 0 Then
         WScript.Echo "Reply received."
     End If
Next

to teĹź jest PING

>
>>> być może są inne bardziej efektywne metody dotarcia
>>> do twojego celu?
>
> a wrecz przeciwnie; tylko trzeba podrzucic mi,jak w juz dzialajacym wsadowym
> jednowierszowym pingowaniu jednego serwera dopisac polecenie pingowania
> dwoch serwerow. czyli jak w praktyce zastosowac tzw. liste serwerow. nie
> moge znalezc skladni dokladnej.
>

poleceniem FOR, można pobrać listę z pliku

można tak jak wyżej za pomocą VBS

-- 
Przemek
"Non sunt multiplicanda entia sine necessitate"
http://vbamania.blogspot.com