Usuário com melhor resposta
Definir impressora como offline

Pergunta
-
Respostas
-
Vamos lá:
Se você quer proibir os usuarios de imprimir você pode mudar as permissões da impressora no servidor, em cada impressora você tem opção de:
Imprimir, Gerenciar impressoras, gerenciar documentos, e você pode dar permissão para um determinado grupo ou negar.
Ou você pode adicionar para alguns usuários uma conexão pra impressora por script. Abaixo estão alguns scripts que vão te ajudar.
Remove as impressoras de rede - Altere \\Servidor para o nome do seu servidor de impressão
strComputer = "."
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
If InStr(objPrinter.Name, "\\Servidor ") > 0 then
WshNetwork.RemovePrinterConnection objPrinter.Name
End if
NextRemove todas as impressoras
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer)
For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
NextRemove uma impressora de Rede - Altere o nome do servidor\impressora
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\servidor\impressora "
Adiciona uma impressora de Rede e seta ela como default
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\servidor\impressora "
WshNetwork.SetDefaultPrinter "\\servidor\impressora "Espero que ajude, qualquer duvida poste.
E se for util vote.
Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas- Sugerido como Resposta Gabriel R S Nascimento segunda-feira, 12 de abril de 2010 16:07
- Marcado como Resposta Fábio JrModerator sexta-feira, 13 de janeiro de 2012 15:25
Todas as Respostas
-
Você precisa que as impressoras fiquem offline?
Ou que nem apareçam?
Ou que os usuários não possam imprimir em determinas impressoras?
Não entendi direito o que pretende.
Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas -
-
Vamos lá:
Se você quer proibir os usuarios de imprimir você pode mudar as permissões da impressora no servidor, em cada impressora você tem opção de:
Imprimir, Gerenciar impressoras, gerenciar documentos, e você pode dar permissão para um determinado grupo ou negar.
Ou você pode adicionar para alguns usuários uma conexão pra impressora por script. Abaixo estão alguns scripts que vão te ajudar.
Remove as impressoras de rede - Altere \\Servidor para o nome do seu servidor de impressão
strComputer = "."
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
If InStr(objPrinter.Name, "\\Servidor ") > 0 then
WshNetwork.RemovePrinterConnection objPrinter.Name
End if
NextRemove todas as impressoras
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer)
For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
NextRemove uma impressora de Rede - Altere o nome do servidor\impressora
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\servidor\impressora "
Adiciona uma impressora de Rede e seta ela como default
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\servidor\impressora "
WshNetwork.SetDefaultPrinter "\\servidor\impressora "Espero que ajude, qualquer duvida poste.
E se for util vote.
Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas- Sugerido como Resposta Gabriel R S Nascimento segunda-feira, 12 de abril de 2010 16:07
- Marcado como Resposta Fábio JrModerator sexta-feira, 13 de janeiro de 2012 15:25