Option Explicit

Dim oFSO, sFile, oFile, sText

Set oFSO = CreateObject("Scripting.FileSystemObject")

sFile = "Pingtest.txt"

If oFSO.FileExists(sFile) Then

Set oFile = oFSO.OpenTextFile(sFile, 1)

 Do While Not oFile.AtEndOfStream

  sText = oFile.ReadLine

   If Trim(sText) <> "" Then

    WScript.Echo sText

   End If

 Loop

oFile.Close

Else

WScript.Echo "The file was not there."

End If