none
Adicionar impressora com jetdirect via script RRS feed

  • Pergunta

  • E ai pessoal.

    To com uma duvida, tinhamos uma impressora de rede que ja adicionava em todas as maquinas, mas no final de semana passado tivemos um arrastão no predio (roubaram 16 notebook, e tambem as impressoras de rede) ,e tivemos que comprar uma nova impressora, antes tinhamos uma HP em rede, mas por motivos de pressa, acabamos adquirindo uma HP M1120nf que nao tem suporte a rede, resolvemos isso com um jetdirect que tinhamos em estoque, mas preciso adicionar essa impressora em 60 maquinas e pensei em adicionar pelo GPO, nem tenho ideia de realizar esse trabalho, pois a antiga impressora já está na imagem que utilizamos aki na implantação do AD, como faço isso. (detalhe, de formação sou analista de sistema, mas fazia muito tempo que nao fazia isso, estava trabalhando com designer e motion graphics, mas voltei a area a 2 semanas, kkkk)

    pois a implantação manual já e complicada, tenho que logar maquina por maquina e executar o aplicativo do jetdirect e depois procurar o inf da impressora, e preciso ja ter essa impressora mapeada na segunda feira, e nao tenho acesso ao predio no final de semana pra realizar a instalação manual em cada maquina (cortaram esse acesso por motivos de segurança), se tiver um meio de fazer isso por script, será de muita ajuda.

    manualmente so instalei em 8 maquinas, alguns usuarios nao tiveram tempo de deixar eu realizar esse trabalho.

    Obrigado.
    domingo, 6 de dezembro de 2009 02:27

Respostas

  • Olá,

    Verifique o exemplo abaixo:


    'o Nome deve estar igual ao padrão instalado
    PrnDrv = "HP Deskjet 3600 Series"
    DrvPath = "\\server\driver\3600\ptb\drivers\win2k_xp"
    InfPath = DrvPath & "\hpf3600k.inf"
    strIP = "192.168.0.57"
    strPorta = "8888"
    strNome = "NomedaImpressora"
    strDescr = "Descricao"
    strShare = "NomeDoCompartilhamento"


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set objNewPort = objWMIService.Get _
        ("Win32_TCPIPPrinterPort").SpawnInstance_
    Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_



    'CRIA A PORTA PARA COMUNICAÇÃO
    objNewPort.Name = "IP_"&strIP
    objNewPort.Protocol = 1
    objNewPort.HostAddress = strIP
    objNewPort.PortNumber = strPorta
    objNewPort.SNMPEnabled = False
    objNewPort.Put_


    ''''''''''''''''''''''''''
    ' instala o driver
    ''''''''''''''''''''''''''
    objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

    Set objDriver = objWMIService.Get("Win32_PrinterDriver")

    objDriver.Name = PrnDrv
    objDriver.SupportedPlatform = "Windows NT x86"
    objDriver.Version = "3"
    objDriver.DriverPath = DrvPath
    objDriver.Infname = InfPath
    intResult = objDriver.AddPrinterDriver(objDriver)




    ' INSTALA A IMPRESSORA
    objPrinter.DriverName = PrnDrv
    objPrinter.PortName   = "IP_"&strIP
    objPrinter.DeviceID   = strNome
    objPrinter.Location = strDescr
    objPrinter.Network = True
    objPrinter.Shared = True
    objPrinter.ShareName = strShare
    objPrinter.Put_



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta NandinhoOliveira terça-feira, 22 de dezembro de 2009 14:11
    segunda-feira, 7 de dezembro de 2009 10:32

Todas as Respostas

  • Olá,

    Verifique o exemplo abaixo:


    'o Nome deve estar igual ao padrão instalado
    PrnDrv = "HP Deskjet 3600 Series"
    DrvPath = "\\server\driver\3600\ptb\drivers\win2k_xp"
    InfPath = DrvPath & "\hpf3600k.inf"
    strIP = "192.168.0.57"
    strPorta = "8888"
    strNome = "NomedaImpressora"
    strDescr = "Descricao"
    strShare = "NomeDoCompartilhamento"


    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set objNewPort = objWMIService.Get _
        ("Win32_TCPIPPrinterPort").SpawnInstance_
    Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_



    'CRIA A PORTA PARA COMUNICAÇÃO
    objNewPort.Name = "IP_"&strIP
    objNewPort.Protocol = 1
    objNewPort.HostAddress = strIP
    objNewPort.PortNumber = strPorta
    objNewPort.SNMPEnabled = False
    objNewPort.Put_


    ''''''''''''''''''''''''''
    ' instala o driver
    ''''''''''''''''''''''''''
    objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

    Set objDriver = objWMIService.Get("Win32_PrinterDriver")

    objDriver.Name = PrnDrv
    objDriver.SupportedPlatform = "Windows NT x86"
    objDriver.Version = "3"
    objDriver.DriverPath = DrvPath
    objDriver.Infname = InfPath
    intResult = objDriver.AddPrinterDriver(objDriver)




    ' INSTALA A IMPRESSORA
    objPrinter.DriverName = PrnDrv
    objPrinter.PortName   = "IP_"&strIP
    objPrinter.DeviceID   = strNome
    objPrinter.Location = strDescr
    objPrinter.Network = True
    objPrinter.Shared = True
    objPrinter.ShareName = strShare
    objPrinter.Put_



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    • Marcado como Resposta NandinhoOliveira terça-feira, 22 de dezembro de 2009 14:11
    segunda-feira, 7 de dezembro de 2009 10:32
  • Maravilha Jesiel, mas consegui fazer isso manualmente, nao pude esperar, cheguei no escritorio cedo e fiz isso...


    terça-feira, 22 de dezembro de 2009 14:12