Re: VBScript czym to sie rozni

MrKramer log:
[...]
> Zeby sczytac stream z polecenia ping to jakiej funkcji musze uzyc?
> stdin ? Czy sos innego?
> Bo jakos stdin mi nie chce dzialac.

:-) Ping_RH.vbs
---------
On Error Resume Next
strComputer = "MrKramer"
strTarget = "www.google.pl"
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
 ("Select * From Win32_PingStatus where Address = #" & strTarget & "#")
If Err = 0 Then
  Err.Clear
  For Each objPing in colPings
    If Err = 0 Then
      Err.Clear
      If objPing.StatusCode = 0 Then
        Wscript.Echo strTarget & " zechciał odpowiedzieć na Twój *ping*."
        Wscript.Echo "Adres odpowiadającego: " & objPing.ProtocolAddress
        Wscript.Echo " ... no i MrKramer GL&BE;-)"
      Else
        WScript.Echo strTarget & " nie odpowiedział na Twój *ping*."
      End If
    Else
      Err.Clear
      WScript.Echo "Brak dostępu do usługi na " & strComputer & "."
    End If
  Next
Else
  Err.Clear
  WScript.Echo "Brak dostępu do usługi na " & strComputer & "."
End If
~~~~
    $mb

-- 
"Wesołego zająca, co śmieje się bez końca,
Szczerbatego barana, co beczy od rana,
Pisanek w koszyku oraz mokrego ubrania
w dzień polewania"