Option Explicit

Const ForReading = 1

Dim strPath


With WScript.CreateObject("Scripting.FileSystemObject")
    strPath = "c:\MyFile.txt"
    
    If .FileExists(strPath) Then
        With .OpenTextFile(strPath, ForReading)
            Select Case Trim(UCase(.ReadLine()))
                Case UCase("error")
                    WScript.Echo "Error"
                Case UCase("ok")
                    WScript.Echo "OK"
                Case Else
                    WScript.Echo "Other content"
            End Select
            
            .Close
        End With
    Else
        WScript.Echo "File [" & strPath & "] not found"
    End If
End With

WScript.Quit 0