none
Ajuda com script .vbs para mapeamento de impressoras RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde,

    Estou criando um script (com base em ajudas colhidas no forum) para mapear impressoras. O script está da seguinte forma:

    *******************************************************************************

    On Error Resume Next

    Set WshNetwork = CreateObject("WScript.Network")

    WshNetwork.AddWindowsPrinterConnection "\\AGAMENON\BRZ-PB-14and"
    WshNetwork.AddWindowsPrinterConnection "\\AGAMENON\BRZ-PB-15and"
    WshNetwork.AddWindowsPrinterConnection "\\AGAMENON\BRZ-COLOR-14and"
    WshNetwork.AddWindowsPrinterConnection "\\AGAMENON\BRZ-COLOR-15and"
    WshNetwork.SetDefaultPrinter "\\AGAMENON\BRZ-PB-14and"

    ***************************************************************************

    Testei, e está mapeando direitinho. Entretanto, ele solicita a instalação do driver da impressora.

    Como proceder, para que esse script instale os drivers automaticamente sem solicitar qualquer tipo de confirmação?

    Abraxxx

     

    André Martins - MCP, MCDST, MCSA, MCTS, MCITP, STS e SSE. Se útil, classifique!!!
    segunda-feira, 29 de agosto de 2011 19:25
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ola André veja se isso lhe ajuda

    ' Install Printer Drivers


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set objDriver = objWMIService.Get("Win32_PrinterDriver")
    objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

    objDriver.Name = "Apple LaserWriter 8500"
    objDriver.SupportedPlatform = "Windows NT x86"
    objDriver.Version = "3"
    errResult = objDriver.AddPrinterDriver(objDriver)

     

    Abraços

     

    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    • Marcado como Resposta Richard Juhasz quinta-feira, 1 de setembro de 2011 20:12
    terça-feira, 30 de agosto de 2011 17:37
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ola André veja se isso lhe ajuda

    ' Install Printer Drivers


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set objDriver = objWMIService.Get("Win32_PrinterDriver")
    objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

    objDriver.Name = "Apple LaserWriter 8500"
    objDriver.SupportedPlatform = "Windows NT x86"
    objDriver.Version = "3"
    errResult = objDriver.AddPrinterDriver(objDriver)

     

    Abraços

     

    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    • Marcado como Resposta Richard Juhasz quinta-feira, 1 de setembro de 2011 20:12
    terça-feira, 30 de agosto de 2011 17:37
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Desculpe, mas  não entendi. O que devo fazer com esse código? Adiciono ele ao final do meu script? No meio? No início?
    André Martins - MCP, MCDST, MCSA, MCTS, MCITP, STS e SSE. Se útil, classifique!!!
    sexta-feira, 2 de setembro de 2011 17:21
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Pode incluir no inicio.

    Abraços

     

    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    sexta-feira, 2 de setembro de 2011 17:26
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    E onde está " objDriver.Name = "Apple LaserWriter 8500" eu troco para o nome de minhas impressoras. É isso mesmo?

     

    E para eu instalar o drivers para x64? Basta trocar a linha objDriver.SupportedPlatform = "Windows NT x86" para objDriver.SupportedPlatform = "Windows NT x64" ???

    Não manjo nada de scripts!!!

     

    André Martins - MCP, MCDST, MCSA, MCTS, MCITP, STS e SSE. Se útil, classifique!!!
    sexta-feira, 2 de setembro de 2011 17:59
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Alguem pode me ajudar?

    Quando executo o script, ele solicita a instalação dos drivers das impressoras que a estação ainda não possui. Preciso automatizar essa tarefa. Como proceder?

    André Martins - MCP, MCDST, MCSA, MCTS, MCITP, STS e SSE. Se útil, classifique!!!
    segunda-feira, 5 de setembro de 2011 13:32
    |