Script instalar impresora con Drivers no en cab

19/07/2007 - 14:04 por Jorge | Informe spam
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)
 

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