none
script mapear impressora RRS feed

  • Pergunta

  • Olá pessoal, preciso que me ajudem neste script abaixo.  

    Queria saber o que devo alterar, para que quando qualquer uma das impressoras não estiver disponível (offline), ele continue as próximas linhas e não mostre erro ao usuário.

    ---------arquivo.vbs---------------------------------------------------

    Set WshNetwork = CreateObject("WScript.Network")

    WshNetwork.AddWindowsPrinterConnection "\\secretaria_04\OKI B4350(PCL)"
    WshNetwork.AddWindowsPrinterConnection "\\rh_01\OKI B4300(PCL)"
    WshNetwork.SetDefaultPrinter "\\secretaria_04\OKI B4350(PCL)"

    set net = createobject("wscript.network")

    Set FSODrive= CreateObject("Scripting.FileSystemObject")
    If not FSODrive.DriveExists("I:") Then
    Set NW = CreateObject("WScript.Network")
    NW.MapNetworkDrive "I:", "\\admserver\home", False
    End If

    wscript.quit

    -----------------------------------------------------------------------------

     

    Valeu

     

    Karina

    quinta-feira, 25 de janeiro de 2007 19:26

Respostas

  • É só inserir no início do seu script a linha:

    On Error Resume Next

    O script vai ignorar todos os erros e continuar a executar as próximas instruções

    quinta-feira, 25 de janeiro de 2007 19:44

Todas as Respostas