Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] проверка наличия файла в сети

Ответить
Настройки темы
VBS/WSH/JS - [решено] проверка наличия файла в сети

Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: pasha_mayerov
Дата: 08-11-2018
Описание: добавлена информация
Доброго времени.
Ситуация следующая. есть скрипт проверяющий по ip из файла доступны ли пк, записывая лог файл результат.
теперь надо проверить наличие файла на доступных пк.
скрипт проходит, но лог пуск
Код: Выделить весь код
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)



WScript.Echo "Finish"

f.Close
fLogs.Close

WScript.Quit

ShowSubFolders FSO.GetFolder("%WINDIR%\folder")

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        objFile.WriteLine "%WINDIR%\folder" & Subfolder.path
        	For Each file In Subfolder.files
        	 If file.name = "document.txt" Then
        	 objFile.WriteLine "ok!"
        	 i=1
        	 Exit For
        	 End If
        	Next
        	 If i =0 Then 
        	  	objFile.WriteLine "error!"
        	 End If 
        	 i=0
        ShowSubFolders Subfolder
    Next
End Sub

Отправлено: 15:21, 08-11-2018

 

Ветеран


Contributor


Сообщения: 23144
Благодарности: 6736

Профиль | Отправить PM | Цитировать


Цитата pasha_mayerov:
теперь надо проверить наличие файла на доступных пк. »
Какой файл? По какому пути к удалённому ресурсу?

Цитата pasha_mayerov:
скрипт проходит, но лог пуск »
Переведите на русский, пожалуйста.

Отправлено: 18:21, 08-11-2018 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


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


мне надо узнать есть ли файл текстовый документ.тхт на компьютерах указанных в файле 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

Последний раз редактировалось pasha_mayerov, 09-11-2018 в 14:59.


Отправлено: 13:25, 09-11-2018 | #3


Ветеран


Contributor


Сообщения: 23144
Благодарности: 6736

Профиль | Отправить PM | Цитировать


Цитата pasha_mayerov:
осталась проблема с поиском по сети. »
Проблема осталась не с поиском по сети, а с формулировкой задачи.
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:47, 09-11-2018 | #4


Ветеран


Contributor


Сообщения: 1384
Благодарности: 805

Профиль | Отправить PM | Цитировать


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

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 09-11-2018 в 17:54.


Отправлено: 17:30, 09-11-2018 | #5


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 11:14, 19-11-2018 | #6


Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 16:03, 19-11-2018 | #7



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] проверка наличия файла в сети

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Помощь со скриптом - проверка наличия файла и процессов DimmKo Скриптовые языки администрирования Windows 17 16-05-2018 23:17
Любой язык - проверка наличия файла в директории icetanker Скриптовые языки администрирования Windows 11 19-10-2014 21:37
VBS/WSH/JS - Проверка наличия файла в папке в случае отсутствия перезагружать компьютер NickCom Программирование и базы данных 4 19-08-2013 05:13
CMD/BAT - [решено] автоматическая проверка наличия файла и его шифрование DorianWolf Скриптовые языки администрирования Windows 2 10-12-2012 17:31
Любой язык - [решено] Проверка наличия файла на веб-сервере Vadikan Скриптовые языки администрирования Windows 5 20-05-2011 01:22




 
Переход