iT邦幫忙

0

.vbs是否可以設定成不需要按確定鈕

  • 分享至 

  • twitterImage

如下語法,每次我執行時,它還會跳出確定或取消詢問視窗出來,那是否可以改成只要執行後就好了,不需要在跳出確定或取消詢問視窗了!

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

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中
2
27271049
iT邦新手 4 級 ‧ 2013-10-09 13:11:41
最佳解答

WScript.Echo "Set Default Printer to "&strPrinter
改為 MSGBOX(Set Default Printer to &strPrinter)

12
freelab
iT邦新手 1 級 ‧ 2013-10-08 22:18:23

cscript //B 你的.vbs

看更多先前的回應...收起先前的回應...
ddovwmk iT邦新手 5 級 ‧ 2013-10-09 06:52:42 檢舉

cscript 是什麼?

外獅佬 iT邦大師 1 級 ‧ 2013-10-09 09:12:02 檢舉

執行vbscript的鬼東東....

freelab iT邦新手 1 級 ‧ 2013-10-09 10:52:56 檢舉

開始-->執行-->cmd(命令提示字元)

小成 iT邦高手 10 級 ‧ 2013-10-09 10:58:03 檢舉

ddovwmk提到:
cscript

GOOGLE應該沒有很難用
http://technet.microsoft.com/zh-tw/library/ff920171(v=ws.10).aspx

2
funforever
iT邦新手 4 級 ‧ 2013-10-12 12:45:12

嗯....
告訴你一個秘密...一個按鍵可以搞定

首先選取
WScript.Echo "Set Default Printer to "&strPrinter
這段

然後按鍵盤上的Del鍵

可以達成你的需求

如果你不想知道太多
就照我這樣做

對了 要記得存檔XD

抱歉!
要更精準的說是方向鍵上方的「Delete」按鍵
不要按到數字鍵盤上的Del鍵

我要發表回答

立即登入回答