none
VBScripts - WshShell- WhsNetwork RRS feed

  • Pergunta

  • Olá, conforme o exmplo abaixo.

    Fiz um procedimento que quando o usuário digita a impressora ele joga naqueles servidores e quando localiza, configura a impressora, Porem existe impressoras que tem varios servidores e estou tendo problema em configurar as impressoras em todos os servidores.

    Se possivel, preciso saber como fasso para parar o script após localizado o primeiro servidor.

    Se puder me encaminhar por Whats: 47 96933045

    Obrigado;

    On Error Resume Next

    Set WSHShell = CreateObject("WScript.Shell")
    Set WshNetwork = CreateObject("WScript.Network")

    VAR1 = InputBox ("Informe o nome da impressora", vbExclamation,"Nome da impressora")

    WshNetwork.AddWindowsPrinterConnection "\\HORXPS01\"+VAR1,true

    WshNetwork.AddWindowsPrinterConnection "\\HORXPS02\" +VAR1,true
    WshNetwork.AddWindowsPrinterConnection "\\HORXPS03\" +VAR1,true
    WshNetwork.AddWindowsPrinterConnection "\\iai02\" +VAR1,true

    x=msgbox("Mapeamento realizado com sucesso!")

    sexta-feira, 28 de agosto de 2015 01:57