Eu tenho o seguinte para ler um arquivo linha por linha:

wscript.echo "BEGIN"

filePath = WScript.Arguments(0)
filePath = "C:\Temp\vblist.txt"
Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFso.OpenTextFile(filePath)
StrData = ObjFile.ReadLine
wscript.echo "END OF FIRST PART"

Do Until StrData = EOF(ObjFile.ReadLine)
    wscript.echo StrData
    StrData = ObjFile.ReadLine
Loop

wscript.echo "END"

oEOF() função parece não funcionar:

C:\Users\EGr\Documents\Scripts\VB>cscript testloop.vbs ArgVal
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.

BEGIN
END OF FIRST PART
C:\Users\EGr\Documents\Scripts\VB\testloop.vbs(11, 1) Microsoft VBScript runti
me error: Type mismatch: 'EOF'

Eu não tenho programado em VB antes, mas estou tentando descobrir loops para que eu possa modificar um script VB que me foi entregue. Eu quero ler um arquivo linha por linha e fazer algo com cada linha. Se eu alterar o loop Do Until paraDo Until StrData = EOF, funciona, mas gera um erro quando chega ao final do arquivo:

C:\Users\EGr\Documents\Scripts\VB>cscript testloop.vbs ThisRANDOMValue
Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.

BEGIN
1
END OF FIRST PART
host1
host2
host3
C:\Users\EGr\Documents\Scripts\VB\testloop.vbs(13, 2) Microsoft VBScript runti
me error: Input past end of file

Eu sinto que provavelmente há uma solução fácil, mas não consegui encontrá-la. Eu tentei algumas outras soluções que encontrei online, mas não cheguei tão perto quanto o acima.