如下語法,每次我執行時,它還會跳出確定或取消詢問視窗出來,那是否可以改成只要執行後就好了,不需要在跳出確定或取消詢問視窗了!
strPrinter = "你的印表機名稱"
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
strWQL = "select * from Win32_Printer WHERE name='" & strPrinter & "'"
Set objInstances = objWMI.ExecQuery(strWQL,,48)
For Each objInstance in objInstances
intResult = objInstance.SetDefaultPrinter
If intResult=0 Then
WScript.Echo "Set Default Printer to "&strPrinter
Exit For
End If
Next
WScript.Echo "Set Default Printer to "&strPrinter
改為 MSGBOX(Set Default Printer to &strPrinter)
cscript //B 你的.vbs
執行vbscript的鬼東東....
開始-->執行-->cmd(命令提示字元)
ddovwmk提到:
cscript
GOOGLE應該沒有很難用
http://technet.microsoft.com/zh-tw/library/ff920171(v=ws.10).aspx
嗯....
告訴你一個秘密...一個按鍵可以搞定
首先選取
WScript.Echo "Set Default Printer to "&strPrinter
這段
然後按鍵盤上的Del鍵
可以達成你的需求
如果你不想知道太多
就照我這樣做
對了 要記得存檔