Fejl i output af temp fil

Jeg har det script:

If WScript.Arguments.Count = 1 Then
  Filename = WScript.Arguments.Item(0)
Const TemporaryFolder = 2
Const ForReading = 1
Const Create = False

strDOSCmd = "c:\f-prot\f-prot.exe " & Filename & " /ARCHIVE /PACKED /SILENT /NOMEM /NOBOOT"
Set WSHShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
tempfile = fso.GetTempName
path = fso.GetSpecialFolder(TemporaryFolder)
tempfile = path & "\" & tempfile
WSHShell.Run "%comspec% /c " & strDOSCmd & " > " & tempfile, 0, true
    Set TS = fso.OpenTextFile(tempfile, ForReading, Create, 0)
    If Not TS.AtEndOfStream  Then 

      Do While Not TS.AtendOfStream 
      strLine = TS.Readline
      MsgBox strLine
      If inStr(1, strLine , "Infection:", 1) > 0 Then
      MsgBox ("virus")
      WScript.Quit 6
      End if

    Loop

  End If
TS.close
fso.DeleteFile tempfile
MsgBox "ikke"
WScript.Quit(0)
End If

MEn når jeg kører det få jeg dette ud af: MsgBox strline :

one or more CON code pages invalid for given keyboard code

og derfor vil den ikke finde noget i instr. hvor gør den der fejl. og hvad går der galt.. fordi hvis jeg køre denne:

Const TemporaryFolder = 2

strDOSCmd = "dir c:\*.txt /b /on"
Set WSHShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
tempfile = fso.GetTempName
path = fso.GetSpecialFolder(TemporaryFolder)
tempfile = path & "\" & tempfile
WSHShell.Run _
  "%comspec% /c " & strDOSCmd & " >" & tempfile, 0, true
arResults = Split(fso.OpenTextFile(tempfile).ReadAll,vbcrlf)
fso.DeleteFile tempfile
WScript.Echo join(arResults,vbcrlf)
WScript.Quit(0)

Er der intet problem... (Ved godt den er noget anderledes, men den arbejder også med temp jo)

/Tue