none
Script VBS remover impressoras. RRS feed

  • Pergunta

  • Senhores,

    Tenho o seguinte script;

    _______________________________________________________________________

    '### Remove todas as impressoras ###
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    WScript.Sleep 120000

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

    For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
    Next

    ___________________________________________________________________________________________

    Após a execução recebo uma mensagem de erro dizendo ACESSO NEGADO na linha 11.

    Agradeço desde já a todos.

    Abraço.


    • Editado Marco Dutra terça-feira, 3 de julho de 2012 17:56
    terça-feira, 3 de julho de 2012 17:49

Respostas

  • Marco,

    Se você quiser pode apenas ignorar a mensagem adicionando a linha abaixo no inicio do script.

    on error resume next

    Se quiser tratar o erro faça assim (não sei qual tratamento vc quer dar eu apenas exibo uma mensagem).

    '### Remove todas as impressoras ### strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") WScript.Sleep 120000 Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Network = TRUE") For Each objPrinter in colInstalledPrinters on error resume next 'Desconsidera erros daqui por diante objPrinter.Delete_ if err.number = 5 then wscript.echo "Erro de Acesso negado" end if

    err.clear on error goto 0 'Considera erros daqui por diante Next



    Fábio de Paula Junior



    segunda-feira, 9 de julho de 2012 19:46
    Moderador

Todas as Respostas

  • Com que conta, como e quando você está rodando esse script?

    []s,

    Vinicius


    Vinicius Canto Xavier | http://blogs.msdn.com/compatibilidade | http://blogs.msdn.com/vinicius_docs | http://viniciuscanto.blogspot.com

    quarta-feira, 4 de julho de 2012 01:26
    Moderador
  • Estou rodando esse script no logon do usuário!

    De toda forma ele funciona, mais a mensagem de erro aparece!

    Ao invés de esconder a mensagem de erro do VBS eu gostaria de trata-la.



    • Editado Marco Dutra quarta-feira, 4 de julho de 2012 16:16
    quarta-feira, 4 de julho de 2012 16:16
  • Marco,

    Se você quiser pode apenas ignorar a mensagem adicionando a linha abaixo no inicio do script.

    on error resume next

    Se quiser tratar o erro faça assim (não sei qual tratamento vc quer dar eu apenas exibo uma mensagem).

    '### Remove todas as impressoras ### strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") WScript.Sleep 120000 Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Network = TRUE") For Each objPrinter in colInstalledPrinters on error resume next 'Desconsidera erros daqui por diante objPrinter.Delete_ if err.number = 5 then wscript.echo "Erro de Acesso negado" end if

    err.clear on error goto 0 'Considera erros daqui por diante Next



    Fábio de Paula Junior



    segunda-feira, 9 de julho de 2012 19:46
    Moderador