[pasha_mayerov]

осталась проблема с поиском по сети.


мне надо узнать есть ли файл текстовый документ.тхт на компьютерах указанных в файле PingLogs.txt и записать в отчет FileLogs.txt результат

Код:

set FSO = CreateObject("Scripting.FileSystemObject")
CompList = "PingLogs.txt"
Logs = "FileLogs.txt"

set f = FSO.OpenTextFile(CompList, 1, false)

set fLogs = FSO.OpenTextFile(Logs, 2, true)

Do While f.AtEndOfStream <> true
 CompName = f.ReadLine

 path = Unescape("\\" &CompName&"\Новая папка")
 
 IF FSO.FolderExists(path) THEN
	CheckFileInFolder CompName, FSO.GetFolder(path)
 Else
	fLogs.WriteLine CompName & " error!"
 END IF
 
loop


WScript.Echo "Finish"

f.Close
fLogs.Close

WScript.Quit

Sub CheckFileInFolder(CompName, Folder)
	Dim finded
	finded = false
    For Each file In Folder.files
        	 IF file.name = "текстовый документ.тхт" Then
				finded = true
				Exit For
		     End If
	Next
	
	If finded then
		fLogs.WriteLine CompName & " ok!"
	 Else
		fLogs.WriteLine CompName & " error!"
	end if
	
End Sub