[Nic_odin]

Реализацию сделал! Спасибо мне!
Вот принцип, если кому надо:

Dim fso, ts, s,objHTTP,objFSO, strFlagFile
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("test.vbs", ForReading)
s = ts.ReadLine
ts.Close
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFlagFile = "test.vbs"
If s = "Dim fso, ts, s" Then
WScript.Echo "File Exist!"
Else
WScript.Echo "File Not Exist!"
End If