Voviy
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помоги решить такую задачку,
Нужно запускать скрипты (vbs) на удаленном компьютере,
Задачка в следующем подкллючать скриптом на удаленных компах принтеры из ad,
пробовал использовать утилиты Psexec.exe, т.е. след. код
в первом файле file1.cmd
for /F %%A in (servers.txt) do (call file2.cmd %%A)
во втором файле file2.cmd
copy \\192.168.1.242\c$\my\scripts\connect_print.vbs \\%1\c$\
psexec \\%1 -s -c file3.cmd
в третьем файле file3.cmd
start C:\connect_print.vbs
ping -n 10 localhost >NUL
del C:\connect_print.vbs
пинг использовал для задержки , чтоб vbs скрипт успевал отработать
и файл servers.txt с ip компов на которых нужно прописать принтер
и сам скрипт connect_print.vbs
Option Explicit
Dim WSHNetwork, Computer, Path, strComputerDN, objSysInfo, objComputer, sPrintPath, PrintLocation
'Dim FSO,FileName
Dim objWMIService, colInstalledPrinters, objPrinter
'Создаем объект FileSystemObject
'Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set WSHNetwork = CreateObject("WScript.Network")
'Задаем имя файла
'FileName="C:\connect_print.vbs"
On Error Resume Next
sPrintPath = "\\anna\HP2430_2floor"
'sPrintPath = "\\anna\RICOHafi"
WSHNetwork.AddWindowsPrinterConnection sPrintPath
WSHNetwork.SetDefaultPrinter sPrintPath
'FSO.DeleteFile FileName
'WScript.Echo "Файл удален"
Проблема в том, что file3.cmd отрабатывает на удаленной машине, а сам скрипт connect_print.vbs, ничего не подключает...
Что можете посоветовать , может как то подругому можно обойтись ?
Заранее спасибо! |
