none
Script remoçao impressora tcp/ip RRS feed

  • Pergunta

  • Boa noite!

    Tenho o script abaixo que remove todas impressoras. No entanto, quero remover apenas as que são porta TCP/IP.

    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

    É possível?

    quarta-feira, 23 de novembro de 2016 02:56

Todas as Respostas

  • Tente filtrar seu Select desta forma:

    Set colInstalledPrinters  = objWMIService.ExecQuery _
    ("Select * From Win32_Printer Where Network = FALSE AND PortName Like '%192.168.%'")

    Substitua, se for o caso, 192.168 pela ID de sua rede (começo padrão dos IPs de todas as impressoras locais e com porta TCP/IP).

    Obs.: Válido somente se não foi alterado o nome da porta

    • Editado J. Maurício quarta-feira, 23 de novembro de 2016 18:19
    quarta-feira, 23 de novembro de 2016 12:52