Vista - VB script just keeps looping and does not excute the code

Here is the code :

On Error Resume Next
Const ForReading = 1
'Create FSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Read Text File
Set objFile = objFSO.OpenTextFile("U:\Scripts\PST\4fl_segment.txt",
ForReading)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2")
Do Until objFile.AtEndOfStream
strcomputer = objFile.ReadLine

'**************************************** Start Ping
*******************************************
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Address ='" & strcomputer & "'")
'WScript.Echo strcomputer & " Reply Received"
For Each objItem In colItems
If objItem.StatusCode = 0 Then
'***********************************************************************************************
'get ost files
Set colFiles = objWMIService.ExecQuery _
("Select Name from CIM_DataFile" _
& " where Drive='C:' and Extension='OST'")
'WScript.Echo "# of files found: " & colFiles.Count
For Each objFile in colFiles
Wscript.Echo strcomputer
Wscript.Echo objFile.Name
Next
Else
Wscript.Echo strcomputer & " No Reply"
End If
Next
Loop
objFile.Close

It reads the text file but does not excute the 'get ost files. It does work
when I use my local machine. Please help me

"freddy" <freddy@xxxxxx> wrote in message
news:80F6CC5B-8FFA-4343-A159-E827347190C3@xxxxxxThe first step is to remove the "On Error Resume Next" statement, so you get
an error message to help troubleshooting. A quick glance show that the code
redefines objFile. In the loop where you read lines of objFile, the object
reference is redefined to be one of the files on a computer. Maybe you can
just use a different variable name.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--