Script Impresoras VBS

Question

Buenas tardes,

 

Estoy creando un script para agregar impresoras, el script agrega el puerto y el driver bien pero en la ultima linea me da error.

El error me aparece en la linea 33, carácter 1, error genérico, código: 80041001 y el origen SwbemObjectEx.

Este es el codigo del script.

 

'PARAMETRO COMUN--

strComputer = "."

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

 

'LAN-FAX TIENDA

'CREAR PUERTO

'Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_

'objNewPort.Name = "IP_192.168.100.190"

'objNewPort.Protocol = 1

'objNewPort.HostAddress = "192.168.100.190"

'objNewPort.PortNumber = "9100"

'objNewPort.SNMPEnabled = False

'objNewPort.Put_

 

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

 

Set objDriver = objWMIService.Get("Win32_PrinterDriver") 

 

objDriver.Name = "Xerox WC M128 PCL" 

'objDriver.SupportedPlatform = "Windows NT x86" 

'objDriver.Version = "3" 

objInfname = "\\SERVIDOR\Home\Temporal\WC123_133_x64_PCL_English_v2.4.3\XRUCCM01.INF" 

intResult = objDriver.AddPrinterDriver(objDriver) 

 

'CREAR IMPRESORA

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

objPrinter.DriverName = "Nombre Impresora"

objPrinter.PortName = "IP_192.168.100.190"

objPrinter.DeviceID = "HP 910"

objPrinter.Location = "Tienda"

objPrinter.Network = True

objPrinter.Shared = False

objPrinter.Put_

 

Espero vuestra respuesta, un saludo.

----------

Daniel Simal.

Answer 1

Ya he conseguido configurar impresoras con un script, pero con una de ellas tengo un problema. Si la intento instalar con el asistente de windows cuando selecciono el driver me aparece este dialogo.

https://docs.google.com/document/d/1h5zTN-BmX3PC4eomm0tHHq0SyngibHuzahiFST35VPQ/edit?hl=en

 

en el script pongo esta linea

rundll32 printui.dll,PrintUIEntry /if /b "Test Printer3" /f "C:\temp\z44095Lc\SP_C210SF_PrinterDriverx64\spa\sppoc210.inf" /r "IP_192.168.1.14" /m "SP C210SF USB Printer"

 

pero me da este error

 

https://docs.google.com/document/d/1pecalhjkJ8V7cKABV060w9WtQDFDMgYIq1DWF3V9X9k/edit?hl=en