Просто и со вкусом. Добавление принтера
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
как бы в этом нет ничего секретного...а еще в серверных виндах по крайней мере в system32 есть скрипты по управлению принтерами (prnmng как-то так называются)...но вот, что странно, если у пользователей получается запускать скрипты, то страшно подумать, что можно сделать
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\SERVER\HPLJ"
Выложить файлик с этим скриптом в общую папку и научить пользователей тыкать в него мышой.
WshNetwork.AddWindowsPrinterConnection "\\SERVER\HPLJ"
Выложить файлик с этим скриптом в общую папку и научить пользователей тыкать в него мышой.
интересно, завтра потестирую.
а зачем учить? в автозагрузку его нельзя поселить или в планировщик закинуть?
(19) eGORG,
:D
Например так. Вместо "Windows Audio" свое подставить нужно естественно :) Учетка, от которой запускается скрипт, должна иметь соответствующие права как ни странно :)
Вариант вызвать из vb bat-файл не предлагать!:)
:D
Dim objWMI, objCollection, objItem, intRetCode
Const ServiceCaption = "Windows Audio"
Set objWMI = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\.\root\cimv2")
Set objCollection = objWMI.ExecQuery("SELECT Name FROM Win32_Service WHERE Caption='" & ServiceCaption & "'")
For Each objItem In objCollection
objItem.StopService
WScript.Echo "Служба " & objItem.Name & " остановлена."
objItem.StartService
WScript.Echo "Служба " & objItem.Name & " запущена."
Next ПоказатьНапример так. Вместо "Windows Audio" свое подставить нужно естественно :) Учетка, от которой запускается скрипт, должна иметь соответствующие права как ни странно :)
(19) eGORG,
Если заголовок службы (Windows Audio) на машинах разный (а так и будет в английской винде в службах, которые по-русски называются), то лучше использовать Name, а не Caption:
Если заголовок службы (Windows Audio) на машинах разный (а так и будет в английской винде в службах, которые по-русски называются), то лучше использовать Name, а не Caption:
Dim objWMI, objCollection, objItem, intRetCode
Const ServiceName = "AudioSrv"
Set objWMI = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\.\root\cimv2")
Set objCollection = objWMI.ExecQuery("SELECT Name FROM Win32_Service WHERE Name ='" & ServiceName & "'")
For Each objItem In objCollection
objItem.StopService
WScript.Echo "Служба " & objItem.Name & " остановлена."
objItem.StartService
WScript.Echo "Служба " & objItem.Name & " запущена."
Next
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот