Scripting

I am using the following code that I found on MSFN and modified to install printers. What I am wondering is what would be the best way to go for installing this printer for ALL USERS of the computer? I appreciate you guys putting up with a scripting newb.


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

set objNewPort = objWMIService.get("Win32_TCPIPPrinterPort").SpawnInstance_
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
Set objDriver = objWMIService.Get("Win32_PrinterDriver")

objDriver.Name = "Canon iR7086-7105 PCL6" 'Driver name in INF file
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriver.FilePath = "C:\\PrintInstall\\PCL6_Driver\\" 'Path to inf file
objDriver.Infname = "C:\\PrintInstall\\PCL6_Driver\\P62KUSAL.INF" 'Path and name if inf file
intResult = objDriver.AddPrinterDriver(objDriver)

'Installs Printer Port
objNewPort.Name = "192.168.16.80" 'change to the port address or name
objNewPort.Protocol = 1
objNewPort.HostAddress = "192.168.16.80" 'change to the port address or name
objNewPort.PortNumber = 9100 'Change to appropriate port number if needed
objNewPort.SNMPEnabled = True
objNewPort.Put_

'Install Printer
objPrinter.DriverName = "Canon iR7086-7105 PCL6" 'change to match the driver name in the INF same as first line above
objPrinter.PortName = "192.168.16.80" 'change to the port address or name
objPrinter.DeviceID = "Mayfair Canon ir7095" 'Friendly name displayed in control panel
objPrinter.Location = ""
objPrinter.Network = True
objPrinter.Put_



This works fine for the Canon ir7095 printer, but when I attempt the above installation substituting the parameters for a Kyocera TaskAlfa 420i I get an error at the final objPrinter.Put_ under 'Install Printer


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

set objNewPort = objWMIService.get("Win32_TCPIPPrinterPort").SpawnInstance_
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
Set objDriver = objWMIService.Get("Win32_PrinterDriver")

objDriver.Name = "Kyocera TASKalfa 420i KX" 'Driver name in INF file
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriver.FilePath = "C:\\PrintInstall\\Driver\\" 'Path to inf file
objDriver.Infname = "C:\\PrintInstall\\Driver\\OEMSETUP.INF" 'Path and name if inf file
intResult = objDriver.AddPrinterDriver(objDriver)

'Installs Printer Port
objNewPort.Name = "192.168.16.75" 'change to the port address or name
objNewPort.Protocol = 1
objNewPort.HostAddress = "192.168.16.75" 'change to the port address or name
objNewPort.PortNumber = 9100 'Change to appropriate port number if needed
objNewPort.SNMPEnabled = True
objNewPort.Put_

'Install Printer
objPrinter.DriverName = "Kyocera TASKalfa 420i KX" 'change to match the driver name in the INF same as first line above
objPrinter.PortName = "192.168.16.75" 'change to the port address or name
objPrinter.DeviceID = "Mayfair HH - Kyocera TaskAlfa 420i KX" 'Friendly name displayed in control panel
objPrinter.Location = ""
objPrinter.Default = 1
objPrinter.Network = True
objPrinter.Put_



The specific error I am receiving as a pop-up stating:

Script: C:\PrintInstall\PrintInstall.vbs
Line: 31
Char: 1
Error: Generic Failure
Code: 80041001
Source: SWbemObjectEx