[Iska]

Как можно реализовать данную проверку? »

Чтением и сравнением.

Если это возможно то В случае Then Вывести что найдено, else вывести что нет. »

Чтобы это было возможно — Вы должны упаковать образец файла в архив, выложить на RGhost, ссылку — сюда. Затем Вы должны указать, что искать и по каким принципам искать.

[Nic_odin]

Чтением и сравнением. »

Это принцип а не реализация

Чтобы это было возможно — Вы должны упаковать образец файла в архив, выложить на RGhost, ссылку — сюда. Затем Вы должны указать, что искать и по каким принципам искать. »

Спасибо за ответ.

[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

[alef2474]

If s = "Dim fso, ts, s" Then »

Непонятно: он сам себя читает? Но в первой строке уже добавил objHTTP... и будет File Not Exist, хотя File Exist?