|
Компьютерный форум OSzone.net » Клиентские ОС Microsoft » Microsoft Windows 2000/XP » Разное - [решено] Удаление принтеров из командной строки |
|
|
Разное - [решено] Удаление принтеров из командной строки
|
Новый участник Сообщения: 28 |
Профиль | Отправить PM | Цитировать
Все спрашивают про установку принтеров, а я вот хочу спросить про удаление:
как из коммандной строки удалить ВСЕ установленные в системе принтера? то биш добавить: "rundll32 printui.dll,PrintUIEntry /in /n \\machine\printer" добавляет сетевой принтер а вот удалить как? при условии, что имя принтера(принтеров) в системе не известны? |
|
------- Отправлено: 12:47, 06-03-2006 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата SharkyEXE:
Цитата Petya V4sechkin:
Цитата SharkyEXE:
Мне-то и незаметно было: я работаю из-под Far Manager'а, который запускаю с административными привилегиями, посему и все дочерние процессы, запущенные из-под него, также наследуют эти привилегии. Попробуйте ещё такой код: 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='Epson Stylus C20 Series (M)'").Delete_ On Error Goto 0 End With WScript.Quit 0 |
|||
Отправлено: 21:34, 23-03-2020 | #21 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать Цитата Iska:
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. Было бы замечательно, если не выключая Контроль учетных записей, просто два раза мышкой - удалялось бы или запрашивался Запуск от имени администратора, вылазила бы табличка |
|
Последний раз редактировалось SharkyEXE, 23-03-2020 в 22:08. Отправлено: 21:43, 23-03-2020 | #22 |
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать Может быть кому интересно, здесь перейти есть решение
Скрипт перейти с учетом этого решения - файл 1.vbs Const DQ = """", HKLM = &H80000002, KQV = &H1, KSV = &H2 SET colOS = GetObject("winmgmts:\root\cimv2").ExecQuery("Select * from Win32_OperatingSystem") FOR EACH oOS IN colOS strOSLong = oOS.Version NEXT IF Left(strOSLong, 1) > "5" THEN IF NOT isAdminRights THEN SET oShellApp = CreateObject("Shell.Application") oShellApp.ShellExecute WScript.FullName, DQ & WScript.ScriptFullName & DQ, "", "runas", 1 WScript.Quit END IF END IF ''''''''''Begin of code'''''''''''''''''''''''''''''' ' Option Explicit On Error Resume Next WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Microsoft XPS Document Writer'").Delete_ WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Fax'").Delete_ WScript.Quit 0 ''''''''''End of code'''''''''''''''''''''''''''''''' FUNCTION isAdminRights() SET oReg = GetObject("winmgmts:root\default:StdRegProv") strKey = "System\CurrentControlSet\Control\Session Manager" intErrNum = oReg.CheckAccess(HKLM, strKey, KQV + KSV, flagAccess) isAdminRights = flagAccess END FUNCTION Система с ВЫКЛюченным контролем учетных записей ( ползунок в самый низ, перезагрузка компьютера ) - при запуске двойной клик левой кнопкой мышки по файлу 1.vbs - ничего не вылазиет - принтер удаляется Отлично, то что надо! |
Последний раз редактировалось SharkyEXE, 23-03-2020 в 22:29. Отправлено: 22:20, 23-03-2020 | #23 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать SharkyEXE, у меня включён контроль учётных записей, пользователь входит в группу Администраторы, я открываю интерпретатор команд (без повышения привилегий), исполняю любой из двух приведённых мною скриптов (опять-таки — без повышения привилегий), и ранее установленный принтер удаляется. Windows 7 SP1 x64.
|
Отправлено: 22:46, 23-03-2020 | #24 |
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать Iska
Здравствуйте. Я написал так, как мне привычнее Кому-то, может быть, как мне, проще чуть больше кода, зато наверняка Тут больше - чтое сть возможность, так сказать, два в одном, и скрипт на VBS, и если требуется - будет запрос о повышении прав, если не требуется - сообщения не будет, все в одном файле, а не какие-то ярлыки, через чужого запуск и прочее, здесь - все в одном месте |
Последний раз редактировалось SharkyEXE, 23-03-2020 в 23:00. Отправлено: 22:52, 23-03-2020 | #25 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать SharkyEXE, я написал лишь о том, что у меня, в моих конкретных условиях, отрабатывает и без повышения привилегий до административных.
|
Отправлено: 00:26, 24-03-2020 | #26 |
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать |
Отправлено: 06:18, 24-03-2020 | #27 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
Отправлено: 12:22, 24-03-2020 | #28 |
Ветеран Сообщения: 900
|
Профиль | Отправить PM | Цитировать |
Отправлено: 21:34, 24-03-2020 | #29 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата SharkyEXE:
(ObjCreate("WbemScripting.SWbemLocator")).ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Epson Stylus C20 Series (M)'").Delete_
или вручную. |
|
Отправлено: 22:05, 24-03-2020 | #30 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Любой язык - [решено] Завершение программы из командной строки | Severny | Скриптовые языки администрирования Windows | 13 | 21-04-2013 20:50 | |
CMD/BAT - [решено] архиватор 7z и командной строки | Daemon.XP | Скриптовые языки администрирования Windows | 4 | 15-07-2009 11:40 | |
Службы - [решено] network down из командной строки | Daemon.XP | Microsoft Windows 2000/XP | 3 | 02-03-2009 21:59 | |
[решено] Утилиты командной строки | kapitanvagin | Программное обеспечение Windows | 1 | 28-03-2008 22:56 | |
Разное - [решено] Закрыть приложение из командной строки | Alexx280 | Microsoft Windows 2000/XP | 3 | 01-08-2007 08:16 |
|