Manipulando impressoras com VBScript

Mapeia e seta como padrão

Código:

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\SERVIDORIMPRESSAO\IMPRESSORAXYZ"
WshNetwork.SetDefaultPrinter "\\SERVIDORIMPRESSAO\IMPRESSORAXYZ"
Define uma impressora como padrão

Código:

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

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'NOMEDAIMPRESSORAAQUI'")

For Each objPrinter in colInstalledPrinters
    objPrinter.SetDefaultPrinter()
Next
Remove uma impressora local

Código: 

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

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer where DeviceID = 'NOMEDAIMPRESSORAAQUI'")

For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next
Remove uma impressora mapeada

Código: [Selecionar]

Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\SERVIDORIMPRESSAO\IMPRESSORAXYZ"
Lista as impressoras da máquina ( saida em dialog )

Código: 

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

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer")

For Each objPrinter in colInstalledPrinters
    Wscript.Echo "Nome: " & objPrinter.Name
    Wscript.Echo "Local: " & objPrinter.Location
    Wscript.Echo "Padrão: " & objPrinter.Default
Next
Renomeia nome de impressora para padronização

Código:

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

Set colPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where DeviceID = 'HP LaserJet 4Si M Series PCL6'")

For Each objPrinter in colPrinters
    objPrinter.RenamePrinter("ArtDepartmentPrinter")
Next

Set colPrinters = objWMIService.ExecQuery _
    ("Select * From Win32_Printer Where DeviceID = 'NOVONOMEDAIMPRESSORA' ")

For Each objPrinter in colPrinters
    objPrinter.ShareName = "ArtDepartmentPrinter"
    objPrinter.Put_
Next
Instala impressora de rede e ativa compartilhamento

Código:

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

Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

objPrinter.DriverName = "HPFINANCEIRO"
objPrinter.PortName   = "IP_192.168.0.250"
objPrinter.DeviceID   = "ScriptedPrinter"
objPrinter.Location = "Departamento Financeiro"
objPrinter.Network = True
objPrinter.Shared = True
objPrinter.ShareName = "HPFINANCEIRO"
objPrinter.Put_
Resume serviços pausados em uma impressora

Código:

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

Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'NOMEDAIMPRESSORAAQUI'")

For Each objPrinter in colInstalledPrinters
    ObjPrinter.Resume()
Next
Remove todos os trabalhos grandes da fila

Código: 

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

Set colPrintJobs =  objWMIService.ExecQuery _
    ("Select * from Win32_PrintJob Where Size > 1000000")

For Each objPrintJob in colPrintJobs
    objPrintJob.Delete_
Next
Remove portas de impressão sem uso

Código: 

Set objDictionary = CreateObject("Scripting.Dictionary")

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

Set colPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer")

For Each objPrinter in colPrinters
    objDictionary.Add objPrinter.PortName, objPrinter.PortName
Next

Set colPorts = objWMIService.ExecQuery _
    ("Select * from Win32_TCPIPPrinterPort")
For Each objPort in colPorts
    If objDictionary.Exists(objPort.Name) Then
    Else
        ObjPort.Delete_
    End If
Next
Automatizando instalação de drivers

Código: 

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

Set objDriver = objWMIService.Get("Win32_PrinterDriver")

objDriver.Name = "NOVA IMPRESSORA MODELO XY3000"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriverPath = "C:\Scripts\NewPrinter.dll"
objInfname = "C:\Scripts\NewPrinter.inf"
intResult = objDriver.AddPrinterDriver(objDriver)

Alterar Confirmação de Leitura do Microsoft Outlook 2007

Para habilitar e/ou desabilitar a confirmação de leitura e entrega no outlook 2007, é apenas seguir os seguintes passos:  Ferramentas > Opções:  Irá abrir a guia preferências, em seguida clique no botão Opções de Email.  Clique no botão Opções de Controle  Irá abrir o local onde é possível habilitar a confirmação de leitura ou confirmação de entrega, marque a sua opção desejada e clique em Ok. Está configurado para todas as mensagens enviadas o Outlook 2007 irá solicitar a confirmação. Caso tenha desmarcado as opções, não será solicitado a confirmação de leitura ou entrega. Fonte:wiki.task.com.br

Erro 0x800F0906 ao tentar instalar o 3.5 de.NET Framework no Windows 8

Quando você tenta instalar o Microsoft.NET Framework 3.5 em um computador que está executando o Windows 8 ou o Windows Server 2012, você recebe um dos seguintes códigos de erro:

• 0x800F0906

Esse código de erro ocorre porque o computador não é possível baixar os arquivos necessários do Windows Update.

Esse comportamento pode ser causado por configurações de firewall, proxy ou rede ou por falhas de firewall, proxy ou rede. Para resolver esse problema, tente conectar-se ao seguinte site da Microsoft:

Microsoft UpdateSe  você não pode acessar este site, verifique sua conexão de Internet ou contate o administrador de rede para determinar se há uma configuração que bloqueia o acesso ao site.

Esse comportamento também pode ser causado por um administrador de sistema que configura o computador para usar o Windows Server Update Services (WSUS) em vez de servidor do Microsoft Windows Update para manutenção. Nesse caso, entre em contato com o administrador do sistema e solicite que eles permitem que o especificar configurações para instalação de componentes opcionais e reparo de componentes configuração de diretiva de grupo e configurar o caminho do arquivo de origem alternativa de valor ou selecione a Entre em contato com o Windows Update diretamente para baixar conteúdo de reparo em vez de Windows Server Update Services (WSUS) opção.

Usando a mídia de instalação do Windows com o arquivo de origem quando você ativa o recurso do.NET Framework 3.5. Para fazer isso, siga estes passos:

1 – Abra o Prompt de Comando como Administrador.

2 – Insira a mídia de instalação do Windows 8.

3 – Execute o seguinte comando:

 DISM /online /enable-feature /featurename:NetFx3 /Source:<drive></drive>: \sources\sxs /LimitAccess  

Observação: Neste comando, <drive></drive> é um espaço reservado para a letra da unidade para a unidade de DVD ou para a mídia de instalação do Windows 8. Por exemplo, você execute o seguinte comando:

 DISM /online /enable-feature /featurename:NetFx3/todos os /LimitAccess de /Source:D:\sources\sxs