1) Я не понимаю, как из много текста Вы сделали мало - работает и славно
2) Этот код
Код:
Option Explicit
Const wbemImpersonationLevelImpersonate = 3
Const wbemPrivilegeLoadDriver = 9
With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
With .Security_
.ImpersonationLevel = wbemImpersonationLevelImpersonate
.Privileges.Add wbemPrivilegeLoadDriver
End With
On Error Resume Next
.Get("Win32_Printer.DeviceID='Microsoft XPS Document Writer'").Delete_
On Error Goto 0
End With
WScript.Quit 0
Просто два раза мышкой - не удаляется, только командная строка с правами администратора + запуск файла
PS. Если выключить Контроль учетных записей (ползунок в самый вниз), перезагрузить компьютер, просто два раза мышкой - удаляется
PPS. Было бы замечательно, если не выключая Контроль учетных записей, просто два раза мышкой - удалялось бы или запрашивался Запуск от имени администратора, вылазила бы табличка