用vbs確定計算機是否有 USB 2.0 端口的代碼
問:
您好,腳本專家!有沒有辦法使用腳本來確定計算機是否有 USB 2.0 端口?
-- RD
答:
您好,RD。您熟悉電影瘋狂星期五 (Freaky Friday) 嗎,電影中母親和女兒交換了身體(及角色)?嗯,我們的這個問題中有點類似瘋狂星期五的東西。畢竟,在本專欄中本來應該由“腳本專家”來幫助您。但是,此問題實際上卻幫助了一位“腳本專家”。他原來一直在嘗試測試 USB 設備(未成功),而且?guī)缀跻呀洶堰@項工作視為毫無意義。但是當閱讀到您的問題時,他心中暗想,“哎呀,對?。篣SB 1.1 和 USB 2.0”。他在 USB 1.1 插槽中一嘗試測試該設備(對照 2.0 插槽),問題馬上就解決了。
嗨,沒有人說過這個特別的“腳本專家”是天才。(編輯附注:我為此證明。)
我們欠您一份情,RD;我們該如何報答您呢?好主意:也許我們可以從回答您的問題開始。好的,這里有一個腳本,它很可能返回計算機上 USB 2.0 端口的數量。讓我們先看代碼,然后再解釋我們說它“很可能”返回端口數量的原因:
strComputer = "."
i = 0
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colControllers = objWMIService.ExecQuery _
("Select * From Win32_USBController")
For Each objController in colControllers
If Instr(objController.Name, "Enhanced") Then
i = i + 1
End If
Next
Wscript.Echo "No. of USB 2.0 Ports: " & i
連接到 WMI 服務后,我們使用此查詢返回所有 Win32_USBController 類的實例:
Set colControllers = objWMIService.ExecQuery _
("Select * From Win32_USBController")
在此我們設置一個 For Each 循環(huán)來遍歷集合(集合當然是代表計算機上的所有 USB 端口)中的每一項。遺憾的是,Win32_USBController 類不包含可告訴我們 USB 版本的屬性(如 Version),實際上,并沒有明確的方法來查看 USB 插槽的屬性并了解它是 1.1 版本還是 2.0 版本。不過,大部分 2.0 端口均在名稱中的某個位置包含 Enhanced 一詞。我們不能保證所有端口均如此,這就是我們說此腳本很可能返回計算機上 USB 2.0 端口數量的原因。但是,在辦公室里的隨機測試中,此方法似乎行得通;發(fā)現 2.0 插槽時它總是有類似下面的名稱:
VIA USB Enhanced Host Controller
那么,這對我們有何幫助呢?嗯,這表示我們可以使用 InStr 函數來查看 Enhanced 一詞是否出現在每個插槽的 Name 中:
If Instr(objController.Name, "Enhanced") Then
如果 InStr 返回值 True(從技術角度來說,如果它返回比 0 大的值),則表示在名稱中某處發(fā)現了 Enhanced 一詞。在這種情況下,我們會將 i 值加 1:
i = i + 1
如果 InStr 返回 0,表示找不到Enhanced 一詞怎么辦?嗯,在這種情況下,我們就進入下一個循環(huán)并嘗試集合中的下一項,i 值保持不變。
我們繼續(xù)進行查詢,每次找到名稱中有 Enhanced 的 USB 插槽即增加 i 值。當全部完成后,我們只需回顯 i 值,它將告訴我們計算機上 USB 2.0 端口的數量。
它并不一定是萬無一失的方法,但好像還管用。而且,您知道,這和您為我們做事還不一樣。
哦,對了;我們忘記了一件事。嗯,您或許喜歡巧克力?
您可能感興趣的文章
- 01-10下載文件到本地運行的vbs
- 01-10VBS中的正則表達式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數嗎?
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼


閱讀排行
本欄相關
- 01-10下載文件到本地運行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個高效的軟件
- 01-10VBS中的正則表達式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實例說明
隨機閱讀
- 01-10使用C語言求解撲克牌的順子及n個骰子
- 08-05DEDE織夢data目錄下的sessions文件夾有什
- 08-05織夢dedecms什么時候用欄目交叉功能?
- 01-10SublimeText編譯C開發(fā)環(huán)境設置
- 01-10delphi制作wav文件的方法
- 08-05dedecms(織夢)副欄目數量限制代碼修改
- 01-11ajax實現頁面的局部加載
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10C#中split用法實例總結
- 04-02jquery與jsp,用jquery