Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Script instalar impresora con Drivers no en cab

19/07/2007 - 14:04 por Jorge | Informe spam
Ayuda Hacer una pregunta
Hola, estoy con un script que añade unpuerto de red de impresora y una
impresora.
La impresora no esta en los cab de Win por lo que he visto otro script que
te crea el driver pero no me va ni para atras

strComputer = "Nombre_Equipo"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\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"
objDriver.DriverPath = "\\SERVIDOR\S\UNIDRV.DLL"
objDriver.Infname = "\\SERVIDOR\S\hpc24x0c.inf"
intResult = objDriver.AddPrinterDriver(objDriver)
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Jorge
19/07/2007 - 21:48 | Informe spam
Ya lo tengo
Ademas de que el script por alguna razon que desconozco no acepta el nombre
"HP LaserJet 2420dn PCL6" en elcampo objDriver.Name lo he cambiado por HP
LAserJet (tampoco funcionaba con el nombre del ejemplo de abajo, longitud de
la cadena?)
Ademas he quitado la l9inea del inf y solo he dejado la del DriverPath

Con esto me funciona genial

Gracias de todos modos

"Jorge" wrote:

Hola, estoy con un script que añade unpuerto de red de impresora y una
impresora.
La impresora no esta en los cab de Win por lo que he visto otro script que
te crea el driver pero no me va ni para atras

strComputer = "Nombre_Equipo"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\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"
objDriver.DriverPath = "\\SERVIDOR\S\UNIDRV.DLL"
objDriver.Infname = "\\SERVIDOR\S\hpc24x0c.inf"
intResult = objDriver.AddPrinterDriver(objDriver)

Preguntas similares

 

Busqueda sugerida :