I am running a code that is querying a folder on all of my remote computers in order to see if the computer is turned on or off.
Now the code works perfectly, but when there is a computer turned off the timeout is very long. I am wondering if there's a way I can speed up the process for failed computers.
Dim LastRow As String
Dim i As Integer
Dim Computer As String
Dim fso As New FileSystemObject
LastRow = Range("A65536").End(xlUp).Row
On Error Resume Next
For i = 1 To LastRow
Computer = Range("A" & i & "").Value
fso.GetFolder ("\\" & Computer & "\c$")
If Err.Number <> 0 Then
Cells(i, 2) = "Fail"
Cells(i, 2) = "Good"