將以下文字存成*.VBS的檔案，再修改相關參數即可
(連接埠IP、INF路徑、驅動程式模組與名稱)
'本例以HP1022N做示範
Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
'設定連接埠IP
objNewPort.HostAddress = "192.168.61.101" '網路印表機IP
objNewPort.Name = "IP_192.168.61.101" '印表機連接埠名稱
'設定連接埠Protocol
objNewPort.Protocol = 1 '1: RAW 2:LPR
objNewPort.PortNumber = "9100" '印表機連接埠號 RAW=9100,LPR=515
objNewPort.Queue="LPR" 'LPR
objNewPort.ByteCount="TRUE" '啟用LPR位元組計數
'設定是否使用SNMP
objNewPort.SNMPEnabled = False '是否使用SNMP
objNewPort.Put_
'設定印表機驅動路徑與名稱
PrinterDriver_inf= ".\HP1022N\HPLJ1020.inf" '驅動程式inf檔案位置
Printer_Model = "HP LaserJet 1022n" '驅動程式模組
Printer_Name = "HP LaserJet 1022n" '印表機名稱
'開始安裝(以下不可變更)
sCmd = "rundll32.exe printui.dll,PrintUIEntry /if /b """ &Printer_Name& """ /f """ _
& PrinterDriver_inf &""" /r" _
& " """ &objNewPort.Name& """ /m """&Printer_Model&""
cmd = "control printers"
DefaultPrint = "rundll32 printui.dll,PrintUIEntry /y /n """ &Printer_Name&""
Set oShell = CreateObject("WScript.Shell")
oShell.Run sCmd, 1, True
oShell.Run cmd
oShell.Run DefaultPrint
WScript.Echo Printer_Name&" 安裝完成!"
