Vista - Connection Timeout between Network Queries

on error resume next

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\systemlist.txt", ForReading)
Wscript.Timeout = 5 
Wscript.echo objtextfile
' *************************************************************
' create the input array
strText = objTextFile.ReadAll
objTextFile.Close
arrComputers = Split(strText,vbcrlf)
' *************************************************************

Dim objFolder, objFile, TS
Dim strDirectory, strWildCard, strPattern
Dim strLog, blnFound, i
Dim objRegExpr

   'Create an instance of the regexp object
   Set objRegExpr = CreateObject("VBScript.RegExp")
   
   strWildCard = "test*.*"
   
   'Update the wildcard string to define a valid regular expression
   strPattern = Replace(strWildCard, ".", "\.")
   strPattern = Replace(strPattern, "*", ".*")
   strPattern = "^" & strPattern & "$"
   strPattern = Replace(strPattern, ".*$", ".+$")

   objRegExpr.Pattern = strPattern
   objRegExpr.Global = True
   objRegExpr.IgnoreCase = True

   'Set where you will log your findings
   strLog = "c:\RESULTS.txt"
   Set TS = objFSO.OpenTextFile(strLog,ForWriting,true) 
   

For i = 0 To UBound(arrComputers)
   'Get the directory you are searching
   strDirectory = "\\" & arrComputers(i) & "\c$\syslevel\"
   
   'Set your found flag
   blnFound = False
   
   'Check that that the directory exists. This shouldn't take  
   'long to retrun false if the machine can't be reached.
   If objFSO.FolderExists(strDirectory) Then
       'Get the current folder
       Set objFolder = objFSO.GetFolder(strDirectory)
       
       'Loop through all the files in the folder
       For Each objFile In objFolder.Files
           'Check if the file matches the wildcard search
           If objRegExpr.Test(objFile.Name) Then
               'Add file to log if found
               TS.WriteLine(arrComputers(i) & vbTab & objFile.Name)
               blnFound = True
           End If
       Next
   Else
       'Note in the log if the machine couldn't be reached
       TS.WriteLine(arrComputers(i) & " **Network Path could not be resolved**")
       blnFound = True
   End If
   
   'Add note if the file wasn't found
   If not blnFound Then
       TS.WriteLine(arrComputers(i) & vbTab & strWildCard & " not found")
   End if
   
   'Add an extra line to seperate the machines
   'TS.WriteLine("")


Next

TS.Close
Set TS = Nothing
Set objRegExpr = Nothing
   
MsgBox "QUERY COMPLETED!"

cscript //t:60 TEST2.vbs