Visual Basic - Ayuda VScript

Hola tengo esto codigo y me gustaria pasarto a un archivo vbs, para podere ejecutarlo desde un arichibo

Dim NFileInput As Integer
Dim NFileOutput As Integer
Dim Linea As String

NFileInput = FreeFile
Open "MiArchivoInput" For Input As #NFileInput

NFileOutput = FreeFile
Open "MiArchivoOutput" For Output As #NFileOutput

Do Until EOF(NFileInput)
Line Input #NFileInput, Linea
If InStr(Linea, "%(TID:%):%IMAP4%") <> 0 Or InStr(Linea,
"%(TID:%):%LOGIN%") <> 0 Then
Print #NFileOutput, Linea
End If
Loop

Close #NFileInput, #NFileOutput

Algo asi

Dim fso
Dim NFileInput
Dim NFileOutput
Const ForReading = 1
Const ForWriting = 2
   
Set fso = CreateObject("Scripting.FileSystemObject")

Set NFileInput = fso.OpenTextFile("MiArchivoInput", ForReading)
Set NFileOutput = fso.OpenTextFile("MiArchivoOutput", ForWriting, True)

Do While NFileInput.AtEndOfStream <> True
    Linea = NFileInput.ReadLine
    If InStr(Linea, "%(TID:%):%IMAP4%") <> 0 Or InStr(Linea, "%(TID:%):%LOGIN%") <> 0 Then
       NFileOutput.WriteLine Linea
    End If
Loop
NFileInput.Close
NFileOutput.Close