使用VB Script安裝網路印表機驅動

將以下文字存成*.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&" 安裝完成!"