請教各位大大 我這裏有一鍵安裝網路印錶機的VBScript 執行檔主要是讓使用者更快速的方式可以安裝網路印錶機使用者隻需要輸入IP位置及選擇INF檔位置就可以安裝印錶機 ... VBS編程的路徑導入詢 VBS編程的路徑導入詢問 - 趣味新聞網

發表日期 2013-01-16T21:11:20+08:00

     本帖最後由 SMP 於 2013-1-16 21:13 編輯

請教各位大大，我這裏有一鍵安裝網路印錶機的VBScript 執行檔

主要是讓使用者更快速的方式可以安裝網路印錶機

使用者隻需要輸入IP位置及選擇INF檔位置就可以安裝印錶機

輸入IP位置的視窗我已經用 InputBox來解決瞭

但是選擇INF檔位置的視窗就找不到指令來執行他

想請各位大大幫幫忙

最主要就是PrinterDriver_inf= "./TGR62ENU.INF" 中的"./TGR62ENU.INF" 可以用開啓舊檔的方式選擇




************************下麵是網路印錶機VBS的全部程式*************************

ipaddress = InputBox("請輸入印錶機IP位置"&vbCr&"例如:"&vbCr&"192.168.0.100"&vbCr&"一定要輸入ip位置否則無法安裝完成","印錶機IP位置 V0.3","192.168.0.100")


Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_

objNewPort.Name = "IP_" & ipaddress '
objNewPort.Protocol = 1
objNewPort.HostAddress = ipaddress '
objNewPort.PortNumber = "9100" '
objNewPort.SNMPEnabled = False '
objNewPort.Put_

MsgBox  objNewPort.HostAddress


Printer_Name = "SHARP AR-M350U PCL6" '
PrinterDriver_inf= "./TGR62ENU.INF" '
Printer_Model = "SHARP AR-M350U PCL6"'



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


***************************************************

分享鏈接