none
Excluir Impressoras RRS feed

  • Pergunta

  • Pessoal

    estou mudando todas as minhas impressoras na rede
    e gostaria antes de reodar um script que remova todos os mapeamentos do clientes
    alguem sabe como posso fazer este script

    obrigado
    domingo, 28 de fevereiro de 2010 17:47

Respostas

  • Olá,

    Verifique o script abaixo:

    on error resume next
    strComputer = "."
    Set objNetwork = 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,"\\") > 0 Then
          objNetwork.RemovePrinterConnection objPrinter.name
       End if
    Next



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    segunda-feira, 1 de março de 2010 15:58

Todas as Respostas

  • Olá,

    Verifique o script:

    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




    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    segunda-feira, 1 de março de 2010 11:21
  • nao funcionou
    as impressoras continuam mapeadas apos colocar este script pra rodar
    segunda-feira, 1 de março de 2010 14:51
  • Olá,

    Verifique o script abaixo:

    on error resume next
    strComputer = "."
    Set objNetwork = 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,"\\") > 0 Then
          objNetwork.RemovePrinterConnection objPrinter.name
       End if
    Next



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    segunda-feira, 1 de março de 2010 15:58
  • Verifique o script abaixo uma versão reduzida mas que funcionou ,obtive resultado .

    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
    quarta-feira, 6 de julho de 2011 05:25