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

09.06.2012, 08:55. **Показов** 1387. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Здравствуйте Уважаемые! Столкнулся вот с какой проблемой:
1. Скрипт, задача которого собирать инфу об установленном оборудовании во всей сетке(ЮФО, без ростова). Он был написан давным давно, работал, перестал. Я его подправил, насколько смог изучить VB.
Скрипт)):

Visual Basic

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=kuban,dc=skylink,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 KUBAN/логин /P пароль /RU KUBAN/логин /RP пароль /TN samagent /SC DAILY /TR \\10.123.1.10\audit$\samagent.exe /ST 12:00 /F
 pause

3. Если убрать из батника путь, параметр /S с переменной, скрипт и батник отрабатывают на ура, НО, только на локальном компе т.е. сервере. Т.е. задача создаётся, в определённое время, отрабатывает, но только на серве. путь с переменной вставляешь и получаем
error C:\WINDOWS\system32\kernel32.dll press any key
Система серва 2003, остальные машины XP, 7-ка, пара вист. DEP антивирус и файрволл на серве отключал.
гугль раскурил так, что даже фильтра не осталось, да и специфические форумы пока не помогли, сайт microsoft тоже не помогает
З.Ы. только учусь в этом направлении, если код покажется бредом, извиняйте

@crazy_man · 09.06.2012, 22:14

Я б делал все на VBS, не заморачиваясь с передачей параметров BAT-файлу.. отсюда скорее у тебя и проблемы

Вот код создающий задачу на определенном пк. Прикрути к нему перечисление ПК и будет тебе счастье

Visual Basic

sPC="pc4" 
Set objWMI = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & sPC & "\Root\CIMV2")
Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem" )
sCmd="schtasks /create /tn ""Имя задачи"" /tr """"{Путь к задаче}"""" /SC weekly /D MON,TUE,WED,THU,FRI /st 13:30:00 /ru {Юзер} /rp {Парооль} > c:\taskshed.log"
msgbox sCmd
Set objProcess = objWMI.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = sCmd 
 
Set strShell = objWMI.ExecMethod( "Win32_Process", "Create", objProgram)

	09.06.2012, 22:14