none
Instalar Impressora com IP fixo na rede

    Pergunta

  •  

    Pessoal,

     

    Como posso fazer a instalação via script de uma impressora Xerox que possui IP fixo na rede?

    Preciso apontar o local dos drivers?

     

    Abraços

     

    Jairo

    sábado, 24 de novembro de 2007 04:33

Respostas

  • Jairo,

     

    Veja se esses scripts ajudam a você !

     

    Install a Printer

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

    Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

    objPrinter.DriverName = "HP LaserJet 4000 Series PS"
    objPrinter.PortName   = "IP_169.254.110.160"
    objPrinter.DeviceID   = "ScriptedPrinter"
    objPrinter.Location = "USA/Redmond/Building 37/Room 114"
    objPrinter.Network = True
    objPrinter.Shared = True
    objPrinter.ShareName = "ScriptedPrinter"
    objPrinter.Put_

     

    Install a Printer Driver not Found in Drivers Cab

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

    Set objDriver = objWMIService.Get("Win32_PrinterDriver")

    objDriver.Name = "NewPrinter Model 2900"
    objDriver.SupportedPlatform = "Windows NT x86"
    objDriver.Version = "3"
    objDriverPath = "C:\Scripts\NewPrinter.dll"
    objInfname = "C:\Scripts\NewPrinter.inf"
    intResult = objDriver.AddPrinterDriver(objDriver)
     

    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)

    Install Printer Ports

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

    objNewPort.Name = "IP_169.254.110.14"
    objNewPort.Protocol = 1
    objNewPort.HostAddress = "169.254.110.14"
    objNewPort.PortNumber = "9999"
    objNewPort.SNMPEnabled = False
    objNewPort.Put_
     

    Espero te ajudado.

    Luiz Espínola
    MCSE+S , MCT , CCA , Security+ , IBM CSex , ITIL , CNA , SCSA
    Não esqueça de dar como "respondido" a mensagem, caso tenha ajudado.

     

    sábado, 24 de novembro de 2007 14:37
  • Tambem tens a seguinte opção de utilizares o Prnadmin.dll.

     

    Com o Prnadmin.dll podes fazer o seguinte:

    • Adicionar e excluir uma impressora.
    • Adicionar e excluir um driver de impressora.
    • Adicionar e excluir uma porta de impressora.
    • Adicionar e excluir uma forma.
    • Exibir uma lista de impressoras, portas, drivers, e formulários em um computador específico.
    • Controlar e configurar impressoras.
    • Imprimir uma página testar.
       


    Artigo em Ingles: http://support.microsoft.com/default.aspx?scid=kb;en-us;321025

    Artigo em Portugues: http://support.microsoft.com/kb/321025/pt-br

     

    Um abraço,

    João Dias

    Não te esqueça classificar a mensagem como "respondido", caso tenha ajudado.

    sexta-feira, 30 de novembro de 2007 16:26

Todas as Respostas

  • Jairo,

     

    Veja se esses scripts ajudam a você !

     

    Install a Printer

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

    Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

    objPrinter.DriverName = "HP LaserJet 4000 Series PS"
    objPrinter.PortName   = "IP_169.254.110.160"
    objPrinter.DeviceID   = "ScriptedPrinter"
    objPrinter.Location = "USA/Redmond/Building 37/Room 114"
    objPrinter.Network = True
    objPrinter.Shared = True
    objPrinter.ShareName = "ScriptedPrinter"
    objPrinter.Put_

     

    Install a Printer Driver not Found in Drivers Cab

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

    Set objDriver = objWMIService.Get("Win32_PrinterDriver")

    objDriver.Name = "NewPrinter Model 2900"
    objDriver.SupportedPlatform = "Windows NT x86"
    objDriver.Version = "3"
    objDriverPath = "C:\Scripts\NewPrinter.dll"
    objInfname = "C:\Scripts\NewPrinter.inf"
    intResult = objDriver.AddPrinterDriver(objDriver)
     

    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)

    Install Printer Ports

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

    objNewPort.Name = "IP_169.254.110.14"
    objNewPort.Protocol = 1
    objNewPort.HostAddress = "169.254.110.14"
    objNewPort.PortNumber = "9999"
    objNewPort.SNMPEnabled = False
    objNewPort.Put_
     

    Espero te ajudado.

    Luiz Espínola
    MCSE+S , MCT , CCA , Security+ , IBM CSex , ITIL , CNA , SCSA
    Não esqueça de dar como "respondido" a mensagem, caso tenha ajudado.

     

    sábado, 24 de novembro de 2007 14:37
  • Luiz,

     

    Muito obrigado pela ajuda.

     

    Show de bola.

     

    Valeu

     

    Jairo

    segunda-feira, 26 de novembro de 2007 01:31
  • Tambem tens a seguinte opção de utilizares o Prnadmin.dll.

     

    Com o Prnadmin.dll podes fazer o seguinte:

    • Adicionar e excluir uma impressora.
    • Adicionar e excluir um driver de impressora.
    • Adicionar e excluir uma porta de impressora.
    • Adicionar e excluir uma forma.
    • Exibir uma lista de impressoras, portas, drivers, e formulários em um computador específico.
    • Controlar e configurar impressoras.
    • Imprimir uma página testar.
       


    Artigo em Ingles: http://support.microsoft.com/default.aspx?scid=kb;en-us;321025

    Artigo em Portugues: http://support.microsoft.com/kb/321025/pt-br

     

    Um abraço,

    João Dias

    Não te esqueça classificar a mensagem como "respondido", caso tenha ajudado.

    sexta-feira, 30 de novembro de 2007 16:26
  • Bom dia Luiz, ao testar esse script ocorreu o erro na linha objPrinter.Put_

    poderia me ajudar?

    grato.

     

    Install a Printer

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

    Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

    objPrinter.DriverName = "HP LaserJet 4000 Series PS"
    objPrinter.PortName   = "IP_169.254.110.160"
    objPrinter.DeviceID   = "ScriptedPrinter"
    objPrinter.Location = "USA/Redmond/Building 37/Room 114"
    objPrinter.Network = True
    objPrinter.Shared = True
    objPrinter.ShareName = "ScriptedPrinter"
    objPrinter.Put_

    sexta-feira, 19 de setembro de 2008 13:25
  • É só tirar o " _ " depois de Put

     

     

    sexta-feira, 19 de setembro de 2008 16:11
  • Muito obrigado pelo script de instalação da impressora, no meu caso é uma multifuncional hp, existe como instalar o scanner tambem

    segunda-feira, 29 de setembro de 2008 02:33
  • Olá pessoal, eu estou com o mesmo problema de nosso amigo ai... Quero colocar uma impressora na rede para todos os usuários que fizerem logon...
    Eu possuo uma impressora de rede Canon 1023 , ela esta no ip 143.107.31.241 e o driver da impressora não tem direto no windows cab...

    E não sei o que eu realmente tenho que usar destes scripts
    alguém poderia me ajudar com o script ?

    quarta-feira, 1 de julho de 2009 18:52