[dinovasya@vk]

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

[dinovasya@vk]

вот положил неизвестного типа файл. в итоге как обычно выскочило 3 окна - нажал открыть- виндовс взял на себя процесс открытия о чем я и говорил..


заметил 3 недостатка:

1) открывается окно три раза а не один
2) вместо локального адреса пробовал указывать сетевой- не сработал скрипт. вместо D:\open\test писал \\server\open\test (это сетевой адрес папки)- в итоге на другой машине не сработал скрипт.
3) если заменяю файл файлом с тем же именем, но другим содержанием скрипт молчит.

Но впринципе проверки на изменения небыло..

[Iska]

единственное что открывает 3 окна сразу.. »

Покажите все три окна на скриншоте.

1) открывается окно три раза а не один »

Поясните скриншотом.

2) вместо локального адреса пробовал указывать сетевой- не сработал скрипт. вместо D:\open\test писал \\server\open\test (это сетевой адрес папки)- в итоге на другой машине не сработал скрипт. »

Это не «на другой машине». На другой — это вместо:

Код:

strComputer = "."

указываете её имя или адрес.

На сетевом ресурсе «\\server\open\test» работать не будет по той причине, что данный путь отсутствует в пространстве имён Wbem. Если подключите сетевой ресурс как диск — можете опробовать.

3) если заменяю файл файлом с тем же именем, но другим содержанием скрипт молчит. »

Естественно. Это не:

создании в ней нового файла »

а изменение существующего.

[dinovasya@vk]

как только создаешь файл, сразу же появляются эти 3 окна с периодичностью примерно 2 секунды

можно ли чтоб проверяло скажем так 1 раз в минуту ?

в моей задаче требуется на нескольких компьютерах проверять наличие новых файлов в сетевой папке, только с подключением сетевого диска сработает? или можно всё-таки обойти подключение сетевых.. они иногда не восстанавливаются- не уверен я в сетевых дисках..

[dinovasya@vk]

данный путь отсутствует в пространстве имён Wbem »

Как добавить сервер в пространство имен?

1) открывается окно три раза а не один »

Хах!! 3 раза скрипт был запущен!
работает идеально при подключении сетевого диска.

[Iska]

как только создаешь файл, сразу же появляются эти 3 окна с периодичностью примерно 2 секунды »

Вы верно заметили, что это именно:

Хах!! 3 раза скрипт был запущен! »

можно ли чтоб проверяло скажем так 1 раз в минуту ? »

Можно. Измените периодичность опроса в запросе с «WITHIN 5» на «WITHIN 60».

в моей задаче требуется на нескольких компьютерах проверять наличие новых файлов в сетевой папке, только с подключением сетевого диска сработает? или можно всё-таки обойти подключение сетевых.. они иногда не восстанавливаются- не уверен я в сетевых дисках.. »

Если у Вас есть права — можете проверять непосредственно на удалённой машине в локальной для неё папке:

Код:

…
strSourceFolder = "Local path for remote machine"

strComputer = "RemoteMachineName"
…

а затем преобразовывать полученное имя в путь к файлу на разделённом ресурсе. Вариант с подключённым диском проще.

[dinovasya@vk]

нет, не получается, пробовал и ip компа и его имя и его порлное доменное имя- все сводится к этой ошибке при запуске скрипта

[Iska]

Connecting to WMI on a Remote Computer (Windows)

[dinovasya@vk]

strComputer = "server"
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _
(strComputer, "root\cimv2", "domen\administrator", "password")
objSWbemServices.Security_.ImpersonationLevel = 3

[Iska]

strComputer = "server" Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objSWbemServices = objSWbemLocator.ConnectServer _ (strComputer, "root\cimv2", "domen\administrator", "password") objSWbemServices.Security_.ImpersonationLevel = 3 »

Сие что должно означать?