en Passant

' Ping Range Script (PingIP.vbs)
' By Eric Woodford (<a href="http://www.ericwoodford.com" title="http://www.ericwoodford.com">http://www.ericwoodford.com</a>)
' Original Source from <a href="http://www.windowsitpro.com/Article/ArticleID/48449/48449.html

Option" title="http://www.windowsitpro.com/Article/ArticleID/48449/48449.html

Option">http://www.windowsitpro.com/Article/ArticleID/48449/48449.html

Option</a> Explicit

Dim strHost, strEnd
Dim Start_IP, x, strIP

' Check that all arguments required have been passed.
If Wscript.Arguments.Count < 1 Then
    Wscript.Echo "Arguments <Host> required. For example:"
    Wscript.Echo "Ping a single IP address or hostname:"
    Wscript.Echo vbtab& "cscript PingIP.vbs (hostname)"
    Wscript.Echo vbtab& "cscript PingIP.vbs ipaddress" & vbcrlf
    Wscript.Echo "Ping a range of IP addresses from ipaddress to ipaddress+count"
    Wscript.Echo vbtab& "cscript vbping.vbs ipaddress count"
    Wscript.Quit(0)
End If

strHost = Wscript.Arguments(0)
if wscript.arguments.count = 2 then
        strEnd = wscript.arguments(1)
        if not(isnumeric(strend)) then  
                wscript.echo "Count argument needs to be numeric (1-254)."
                wscript.quit
        end if
        if cint(strend)>=254 or cint(strend)<=0 then
                wscript.echo "Count argument needs to be numeric (1-254)."
                wscript.quit
        end if
        strEnd=cint(strEnd)
end if
if strEnd <> "" then
        'get last subnet of start
        strIP = left(strHost,instrrev(strHost,"."))    
        Start_IP = right(strhost,len(strHost)- instrrev(strHost,"."))
        if isnumeric(start_IP) then
                start_ip=cint(start_ip)
        else
                wscript.echo "ERROR: To ping a range, you need to put in the starting IP address, not a hostname"
                wscript.quit(0)
        end if
        if start_ip = 0 then start_ip = 1
        wscript.echo start_ip + strEnd
        if (Start_IP + strEnd) > 255 then
                wscript.echo "range exceeds maximum for octet."
                strEnd= strend - ((start_ip+strend)-255)
                wscript.echo "converting max of range to :" & strEnd
        end if
        for x = start_IP to (start_ip + strEnd)        
                if Ping(strIP&x) = True then
                        Wscript.Echo "Host " & strIP&x & " contacted"
                Else
                        Wscript.Echo "Host " & strIP&x & " could not be contacted"
                end if
        next   
Else
        if Ping(strHost) = True then
           Wscript.Echo "Host " & strHost & " contacted"
        Else
                Wscript.Echo "Host " & strHost & " could not be contacted"
        end if
End If

Function Ping(strHost)

    dim objPing, objRetStatus

    set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
      ("select * from Win32_PingStatus where address = '" & strHost & "'")

    for each objRetStatus in objPing
        if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then
    Ping = False
            'WScript.Echo "Status code is " & objRetStatus.StatusCode
        else
            Ping = True
            'Wscript.Echo "Bytes = " & vbTab & objRetStatus.BufferSize
            'Wscript.Echo "Time (ms) = " & vbTab & objRetStatus.ResponseTime
            'Wscript.Echo "TTL (s) = " & vbTab & objRetStatus.ResponseTimeToLive
        end if
    next
End Function

Function Resolve(strHost)

    dim objPing, objRetStatus

    set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
      ("select * from Win32_ComputerSystem where address = '" & strHost & "'")

    for each objRetStatus in objPing
        if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then
                Resolve = ""
            'WScript.Echo "Status code is " & objRetStatus.StatusCode
        else
            Resolve = True
            'Wscript.Echo "Bytes = " & vbTab & objRetStatus.BufferSize
            'Wscript.Echo "Time (ms) = " & vbTab & objRetStatus.ResponseTime
            'Wscript.Echo "TTL (s) = " & vbTab & objRetStatus.ResponseTimeToLive
        end if
    next
End Function