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

  • Pergunta

  • 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

  • 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

  • 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
  • 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
  • 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
  • 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
  • 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