elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  VBScript para instalar impresora con IP
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: VBScript para instalar impresora con IP  (Leído 2,132 veces)
msanarev

Desconectado Desconectado

Mensajes: 1


Ver Perfil
VBScript para instalar impresora con IP
« en: 30 Enero 2019, 11:49 am »

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:

' Indicación de la 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_

'Indicación del nombre exacto del driver

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)

'Instalación 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 más directa?

Gracias.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problema al instalar impresora
Software
Ershin 1 1,667 Último mensaje 13 Julio 2012, 17:06 pm
por Ershin
Instalar controladores de impresora sin tener la impresora ¿cómo?
Windows
Platanito Mx 6 12,037 Último mensaje 1 Septiembre 2012, 04:01 am
por tlahuicole
No puedo instalar impresora por wifi « 1 2 »
Redes
dennis094 14 20,329 Último mensaje 17 Febrero 2013, 14:34 pm
por HdM
VBScript: Angry Birds Pong in VBScript [HTA + VBS] (100% Notepad) by JohnConnor
Scripting
JohnConnor 1 5,400 Último mensaje 4 Marzo 2013, 23:34 pm
por dato000
Duda instalar impresora de tickets en red tpc/ip. Win 7.
Windows
txente 8 6,856 Último mensaje 11 Septiembre 2017, 21:37 pm
por Orubatosu
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines