Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

При отработке скриптом schtasks error C:\WINDOWS\system32\kernel32.dll

83K
09 июня 2012 года
Фаворит Солнца
2 / / 09.06.2012
Здравствуйте Уважаемые! Столкнулся вот с какой проблемой:
1. Скрипт, задача которого собирать инфу об установленном оборудовании во всей сетке. Он был написан давным давно, работал, перестал. Я его подправил, насколько смог изучить VB.
Скрипт)):

On Error Resume Next

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000

objCommand.CommandText = _
"<LDAP://dc=домен,dc=контора,dc=local>;(&(objectCategory=Co mputer)" & _
");name;Subtree"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strComputer = objRecordSet.Fields("name").Value
strResul = ""

Это часть дописаная мной, запуск батника

Dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\SCRIPT\samagent.bat " & strComputer, 1,true
WScript.Echo "Компьютер " & strComputer & ", результат " & strResul

objRecordSet.MoveNext
Loop


2. Батник, создающий в планировщике на каждом компе задачу, которая запускает программу мониторинга, запускается из скрипта.
BAT-ник:

echo off
schtasks /Create /S %1 /U домен/логин /P пароль /RU домен/логин /RP пароль /TN samagent /SC DAILY /TR \\ ip адресс\audit$\samagent.exe /ST 12:00 /F
pause

3. Если убрать из батника путь, параметр /S с переменной, скрипт и батник отрабатывают на ура, НО, только на локальном компе т.е. сервере. Т.е. задача создаётся, в определённое время, отрабатывает, но только на серве. путь с переменной вставляешь и получаем
error C:\WINDOWS\system32\kernel32.dll press any key
Система серва 2003, остальные машины XP, 7-ка, пара вист. DEP антивирус и файрволл на серве отключал.
гугль раскурил так, что даже фильтра не осталось, да и специфические форумы пока не помогли, сайт microsoft тоже не помогает
З.Ы. только учусь в этом направлении, если код покажется бредом, извиняйте
252
09 июня 2012 года
koderAlex
1.4K / / 07.09.2005
зачем такие сложности ?
Export part of the Registry
REGEDIT /E pathname "RegPath"

потом стандартными фтп командами отправить файл ветки реестра HKEY_LOCAL_MACHINE\HARDWARE на ваш сервант .
написать прогу для анализа файлов на серве - дела пары дней (не спеша :) ) .
83K
09 июня 2012 года
Фаворит Солнца
2 / / 09.06.2012
к сожалению, безопасник сказал реализовать только так и никак иначе. Как я понял, это писал когда-то он, и оно просто перестало работать, так как кто-то туда полез и начал криво править
252
09 июня 2012 года
koderAlex
1.4K / / 07.09.2005
скажите ему , что он не прав . )
чем конкретно не нравится ftp/sftp ?
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог