[Iska]

теперь надо проверить наличие файла на доступных пк. »

Какой файл? По какому пути к удалённому ресурсу?

скрипт проходит, но лог пуск »

Переведите на русский, пожалуйста.

[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

[Iska]

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

Проблема осталась не с поиском по сети, а с формулировкой задачи.

[megaloman]

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

объясните, известны ли не только IP компьютеров, но и имя расшаренной папки, путь к файлам, если это жестко однообразно задано на каждом компьютере, или надо просмотреть на каждом компьютере все расшаренные папки и делать поиск по всем обнаруженным? Опять же, каков при этом уровень вложенности папки, в которой может находиться искомый файл?

[pasha_mayerov]

известны ip компьютеров, путь к файлу, имя файла. путь жесткий. уровень вложенности 4

[pasha_mayerov]

главная проблема невнимательность. запрос рабочий путь не правильно был указан.