TePP0PucT
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AndVGri
Вылезла первая проблема. Насколько я понял Dim задает массивы с которыми будет работать скрипт.
В тот скрипт который на проверку папки я захотел для начала заставить вести логи. Насколько я понял достаточно было добавить
Цитата:| Dim additionalParams и потом задать additionalParams = "-log C:\B\log.txt" |
Но он не пишел у меня в лог файл ничего. Что я делаю не так?
P.S. Я так понял что в скриптах PDFCreator я должен был найти кусок который будет отправлять на печать, но он тоже не хочет работать.
Тело скрипта
Цитата:
Dim additionalParams
strDir = "c:\temp" ' каталог, за которым следим
strComputer = "." ' имя компьютера; "." означает текущий компьютер
'==============================================================================
strDirSlash = Replace(strDir, "\", "\\\\")
strNamespace = "Root\CIMV2"
' Подключаемся к пространству имен
Set objService = GetObject("WinMgmts:\\" & strComputer & "\" & strNamespace)
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")
objService.ExecNotificationQueryAsync objSink, _
"SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " &_
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " &_
"TargetInstance.GroupComponent= " &_
"'Win32_Directory.Name=""" & strDirSlash & """'"
additionalParams = "-log C:\B\log.txt"
' Выводим сообщение о запуске сканера
Wscript.Echo "Запущен сканер создания файла в папке " & strDir
' Запускаем бесконечный цикл ожидания
While 1
WScript.Sleep 1000
Wend
' Процедура-обработчик события OnObjectReady объекта sWbemSink
Sub Sink_OnObjectReady(oOutParams, oContext)
strResult = Date & " " & Time & vbCrLf &_
"Создан файл: " & oOutParams.TargetInstance.PartComponent
Wscript.Echo strResult
End Sub
|
|
Всего записей: 7 | Зарегистр. 26-10-2012 | Отправлено: 14:09 28-10-2012 | Исправлено: TePP0PucT, 14:15 28-10-2012 |
|
