Usuário com melhor resposta
Script para remover impressoras nas estaçãoes

Pergunta
-
Pessoal,
É o seguinte, meus usuarios tem várias impressoras conectadas ou instaladas nos seu respectivos perfis, mas essas empressoras nao existem mais fisicamente na rede, gostaria de saber se tem algum script para remover essas impressoras quando o usuario logar, mas tenque ser com privilégios de administrador.
Muito Obrigado,
Airton Neusquen
Respostas
-
Olá,
Como você disse que as impressoras estão nos perfis, um simples script de logon pode resolver o problema, uma vez que os de logon rodam com as credenciais dos usuários. No entanto, você deve saber ao menos o nome delas...
Na página a seguir tem dois scripts que você pode combinar para conseguir o que quer: Um que lista as impressoras e outro que as remove.
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true
[]s,
Vinicius Canto <scripterbr_at_gmail_dot_com>
MVP Visual Developer - Scripting
MCP Windows 2000 Server, Windows XP e SQL Server 2000
Blog sobre scripting: http://viniciuscanto.blogspot.com- Marcado como Resposta Fábio JrModerator segunda-feira, 23 de janeiro de 2012 14:10
Todas as Respostas
-
Olá,
Como você disse que as impressoras estão nos perfis, um simples script de logon pode resolver o problema, uma vez que os de logon rodam com as credenciais dos usuários. No entanto, você deve saber ao menos o nome delas...
Na página a seguir tem dois scripts que você pode combinar para conseguir o que quer: Um que lista as impressoras e outro que as remove.
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true
[]s,
Vinicius Canto <scripterbr_at_gmail_dot_com>
MVP Visual Developer - Scripting
MCP Windows 2000 Server, Windows XP e SQL Server 2000
Blog sobre scripting: http://viniciuscanto.blogspot.com- Marcado como Resposta Fábio JrModerator segunda-feira, 23 de janeiro de 2012 14:10
-
Vc pode usar o script abaixo , todas a impressoras serão excluidas e vc tera o resultador que deseja .
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next
Denis Faustino