If its still needed?
CODE
CMD.EXE /C RUNDLL32 PRINTUI.DLL,PrintUIEntry /if /b "Canon PIXMA iP4000" /f "%SYSTEMDRIVE%\Drivers\011_Others\Canon PIXMA iP4000\ip4000.inf" /r "LPT1:" /m "Canon PIXMA iP4000" /q /u
If u use a IP Port. Make sure that the port is added before u execute this.
VbScript
CODE
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
'Install TCP/IP Port :
objNewPort.Name = "IP_192.168.0.5"
objNewPort.Protocol = 2
objNewPort.HostAddress = "192.168.0.5"
objNewPort.PortNumber = "515"
objNewPort.Queue = "LPT1_PASSTHRU"
objNewPort.SNMPCommunity = "public"
objNewPort.SNMPEnabled = False
objNewPort.Put_
'Stop Spooler Service
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='Spooler'")
For Each objService In colServiceList
errReturn = objService.StopService()
WScript.Sleep 1000
Next
'Start Spooler Service
For Each objService In colServiceList
errReturn = objService.StartService()
WScript.Sleep 5000
Next
WSHShell.run ("CMD.EXE /C RUNDLL32 PRINTUI.DLL,PrintUIEntry /if /b ""HP Deskjet 990CXi"" /f ""%WINDIR%\inf\ntprint.inf"" /r ""IP_192.168.0.5"" /m ""hp deskjet 990c"" /q /u"),0,true
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'HP DeskJet 990CXi'")
For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
WSHShell.run ("CMD.EXE /C RUNDLL32 PRINTUI.DLL,PrintUIEntry /Sr /n ""HP Deskjet 990CXi"" /a ""%SYSTEMDRIVE%\TEMP\DESKJET990CXi.DAT"" m p"),0,true
Next