0 votos
por (20 puntos) en Sugerencias
mostrada de nuevo por
Buenos días,

Necesitaría saber si hay alguna forma de poder instalar impresoras con IP remotamente sin necesidad de tener el driver instalado en los equipos. Es decir, que el mismo script señalando la ruta del driver instale la impresora. Hasta ahora, tengo el script que me instala todas las impresoras pero tengo que tener instalado el driver o una de ellas:

' IP

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objNewPort = objWMIService.Get _

    ("Win32_TCPIPPrinterPort").SpawnInstance_

objNewPort.Name = "X"

objNewPort.Protocol = 1

objNewPort.HostAddress = "XXX.XXX.XXX.XXXX"

objNewPort.PortNumber = "9100"

objNewPort.SNMPEnabled = False

objNewPort.Put_

'DriverName

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

Set objDriver = objWMIService.Get("Win32_PrinterDriver")

objDriver.Name = "Nombre exacto del driver

objDriver.SupportedPlatform = "Windows 10"

objDriver.Version = "3.0"

objDriver.DriverPath = "\\XXX\publico\temporal\Drivers Impresoras\Kyocera FS 2100d\FS-2100D Windows 10 64 bits\KyoceraClassicUniversalDriver_v3.0_Signed\KyoceraClassicUniversalPCL6_v3.0"

objDriver.Infname = "\\XXX\publico\temporal\Drivers Impresoras\Kyocera FS 2100d\FS-2100D Windows 10 64 bits\KyoceraClassicUniversalDriver_v3.0_Signed\KyoceraClassicUniversalPCL6_v3.0\OEMsetup.inf"

intResult = objDriver.AddPrinterDriver(objDriver)

'Instalando impresora

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

objPrinter.DriverName = "Nombre exacto del driver"

objPrinter.PortName   = "XXX.XXX.XXX.XXX"

objPrinter.DeviceID   = "X"

objPrinter.Location = "XX"

objPrinter.Network = True

objPrinter.Put_

¿Saben de alguna forma que sea directa?

Por favor, accede o regístrate para responder a esta pregunta.

Preguntas relacionadas

0 votos
0 respuestas
preguntado por admin (3.8k puntos) Ene 28, 2016 en .Net
0 votos
0 respuestas
preguntado por ppito (20 puntos) Ene 28, 2016 en .Net
0 votos
2 respuestas
preguntado por Alvin (20 puntos) Ene 28, 2016 en .Net
Bienvenido a Dudas de Programación, donde puedes hacer preguntas y recibir respuestas sobre los problemas más frecuentes de los lenguajes de programación, frameworks de desarrollo y bases de datos que utilices. Foro de Línea de Código

Categorías

...