I’ve just had a nice little scripting challenge to solve:<\/p>\n
ICTST have all moved recently to nice offices off of the High Street. \u00a0We have a nice new printer here and no print server, so we needed to automate the installation of a local printer IP port and the driver for the printer.<\/p>\n
After a bit of testing I came up with the following method. \u00a0I’ve used WMI to create a local IP port and then used PrintUI.dll to deliver the driver and setup the printer on the new IP port. \u00a0I could have used various WMI queries to do all of it, but I like the fact that PrintUI.dll<\/a> was created for just this purpose and it does it very well indeed.<\/p>\n As I’ve scripted it below, the script needs to be in the same folder as the driver including the .inf file. \u00a0It has been tested on Windows XP SP3 only so far.<\/p>\n The script also outputs a message box if it finds a printer already on the IP address port specified.<\/p>\n I’ve generalised some of the details:<\/p>\n I’ve just had a nice little scripting challenge to solve: ICTST have all moved recently to nice offices off of the High Street. \u00a0We have a nice new printer here and no print server, so we needed to automate the … Continue reading Set wshShell = CreateObject(\"WScript.Shell\")\r\nstrCurrDir = Replace(WScript.ScriptFullName, WScript.ScriptName, \"\")\r\nstrIPAddress = \"111.1.222.333\"\r\nstrComputer = \".\"\r\nstrPrinterName = \"RICOH MFP Office 2nd Floor\" '## Can be any text you want, this shows print dialogs.\r\nstrDriverName = \"RICOH Aficio MP C3300 PCL 6\" '## MUST be the exact text as in the printer driver .inf file.\r\nstrLocation = \"New Office 2nd Floor\" '## Can be anything\r\nstrInfFile = strCurrDir & \"OEMSETUP.INF\" '## the full path to the printer driver .inf file. In my example the VBScript was in the same folder as the driver & inf file.\r\n\r\nSet objWMIService = GetObject(\"winmgmts:{impersonationLevel=impersonate}!\\\\\" & strComputer & \"\\root\\cimv2\")\r\nSet colPrinters = objWMIService.ExecQuery(\"Select * From Win32_Printer Where PortName = 'IP_\" & strIPAddress & \"' \")\r\nFor Each objPrinter in colPrinters\r\n MsgBox \"Unable to install printer, printer already found on port 'IP_\" & strIPAddress & \"'.\" & VbCrlf & VbCrlf & \"Found: \u00a0\" & objPrinter.DeviceID, vbExclamation + vbSystemModal, \"Printer Port already assigned\"\r\n WSCript.Quit 114001\r\nNext\r\n\r\nSet objNewPort = objWMIService.Get(\"Win32_TCPIPPrinterPort\").SpawnInstance_\r\nobjNewPort.Name = \"IP_\" & strIPAddress\r\nobjNewPort.Protocol = 1\r\nobjNewPort.HostAddress = strIPAddress\r\nobjNewPort.PortNumber = \"9100\"\r\nobjNewPort.SNMPEnabled = False\r\nobjNewPort.Put_\r\n\r\nwshShell.Run \"rundll32 printui.dll,PrintUIEntry \/if \/b \"\"\" & strPrinterName & \"\"\" \/f \"\"\" & strInfFile & \"\"\" \/r \"\"IP_\" & strIPAddress & \"\"\" \/m \"\"\" & strDriverName & \"\"\"\", 1, True\r\n\r\nSet colPrinters = objWMIService.ExecQuery(\"Select * From Win32_Printer Where DeviceID = '\" & strPrinterName & \"' \")\r\nFor Each objPrinter in colPrinters\r\n objPrinter.Location = strLocation\r\n objPrinter.Put_\r\nNext\r\nWScript.Quit 0<\/pre>\n<\/div>\n","protected":false},"excerpt":{"rendered":"