How can I check if a computer is connected without delay 1

[tedsmith]

I am trying to check report files in a number of remote computers but if a computer is not switched on it takes forever.

My computer seems to freeze for a minute every time it cant connect for any reason.

I have tried opening the same file in every computer in turn (from a list) Eg - - - -

On error goto ComputerNotOn
For Item = 1 to 20
Open "\\" & IPAddress(Item) & "\c\ReportFile.txt" for Input as #1
Close #1
Next

Same using FileSystemObjects Getfile

But they all wait for a long long time when not connected.

Is there an instant way of seeing if a computer with a known IP address is there or not?

 

[tedsmith]

One though I had is if I could do the same as ping from the command line and store the answer?
That would be a bit quicker but I would like it to be instant like using Wininet on the internet but how do you use that on just a LAN?

 

[strongm]

More WMI for you Ted ...

[blue]Public Function IsReachable(strComputer As String) As Boolean ' strComputer can be name or IP address
    Dim objWMIService As Object
    Dim objPing As Object
    Dim objStatus As Variant
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set objPing = objWMIService.ExecQuery("Select * From Win32_PingStatus Where Address = '" & strComputer & "' and StatusCode=0")
    
    For Each objStatus In objPing
        IsReachable = objStatus.StatusCode = 0
    Next
End Function[/blue]

 

[tedsmith]

You are a genius
It only takes a second if the computer is not there

 

[markrosario]

Thanks very much strongm... it really helps!

Take care
Mark