Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 900
Благодарности: 86

Профиль | Отправить PM | Цитировать


Цитата Iska:
же имеющийся в наличии код? »
Лично я от Вас первый раз в этой теме вижу этот код, благодарен Вам

Заметил некую бяку - этот скрипт, файл с расширением 1.vbs
Код: Выделить весь код
Option Explicit

On Error Resume Next

WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Microsoft XPS Document Writer'").Delete_

WScript.Quit 0
удалит принтер Microsoft XPS Document Writer только если - запустить командная строка с парвами администратора + выполнить файл 1.vbs

Если просто запустить файл 1.vbs - принтер не удалится

Бяка в том, что если на файле 1.vbs парвой кнопкой мышки нажать - не будет строки Запуск с парвами администратора

Пожалуйста, научите, можно или нет внутрь файла 1.vbs чего-то написать, чтобы файл 1.vbs запускался с парвами администратора?

PS. Нашел еще одну версию удалить принтер при помощи vbs перейти - 1.vbs

Код: Выделить весь код
' https://www.vbsedit.com/scripts/printing/client/scr_1126.asp
' Delete a Printer


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
 ("Select * from Win32_Printer where DeviceID = 'Microsoft XPS Document Writer'")

For Each objPrinter in colInstalledPrinters
 objPrinter.Delete_
Next
Запустить командная строка с правами администратора + выполнить файл 1.vbs

Отправлено: 21:20, 23-03-2020 | #20