用vbs确定计算机是否有 USB 2.0 端口的代码

时间:2021-05-22

问:
您好,脚本专家!有没有办法使用脚本来确定计算机是否有USB2.0端口?
--RD
答:
您好,RD。您熟悉电影疯狂星期五(FreakyFriday)吗,电影中母亲和女儿交换了身体(及角色)?嗯,我们的这个问题中有点类似疯狂星期五的东西。毕竟,在本专栏中本来应该由“脚本专家”来帮助您。但是,此问题实际上却帮助了一位“脚本专家”。他原来一直在尝试测试USB设备(未成功),而且几乎已经把这项工作视为毫无意义。但是当阅读到您的问题时,他心中暗想,“哎呀,对啊:USB1.1和USB2.0”。他在USB1.1插槽中一尝试测试该设备(对照2.0插槽),问题马上就解决了。
嗨,没有人说过这个特别的“脚本专家”是天才。(编辑附注:我为此证明。)
我们欠您一份情,RD;我们该如何报答您呢?好主意:也许我们可以从回答您的问题开始。好的,这里有一个脚本,它很可能返回计算机上USB2.0端口的数量。让我们先看代码,然后再解释我们说它“很可能”返回端口数量的原因:
复制代码 代码如下:
strComputer="."
i=0
SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2")
SetcolControllers=objWMIService.ExecQuery_
("Select*FromWin32_USBController")
ForEachobjControllerincolControllers
IfInstr(objController.Name,"Enhanced")Then
i=i+1
EndIf
Next
Wscript.Echo"No.ofUSB2.0Ports:"&i
这个脚本首先为两个变量进行了赋值。为变量strComputer赋予了点(.),点(WMI表示法)代表本地计算机。同时,为计数器变量i赋值0;我们将使用此变量来作为所有找到的USB2.0端口的活动计数器。
连接到WMI服务后,我们使用此查询返回所有Win32_USBController类的实例:
SetcolControllers=objWMIService.ExecQuery_
("Select*FromWin32_USBController")
在此我们设置一个ForEach循环来遍历集合(集合当然是代表计算机上的所有USB端口)中的每一项。遗憾的是,Win32_USBController类不包含可告诉我们USB版本的属性(如Version),实际上,并没有明确的方法来查看USB插槽的属性并了解它是1.1版本还是2.0版本。不过,大部分2.0端口均在名称中的某个位置包含Enhanced一词。我们不能保证所有端口均如此,这就是我们说此脚本很可能返回计算机上USB2.0端口数量的原因。但是,在办公室里的随机测试中,此方法似乎行得通;发现2.0插槽时它总是有类似下面的名称:
VIAUSBEnhancedHostController
那么,这对我们有何帮助呢?嗯,这表示我们可以使用InStr函数来查看Enhanced一词是否出现在每个插槽的Name中:
IfInstr(objController.Name,"Enhanced")Then
如果InStr返回值True(从技术角度来说,如果它返回比0大的值),则表示在名称中某处发现了Enhanced一词。在这种情况下,我们会将i值加1:
i=i+1
如果InStr返回0,表示找不到Enhanced一词怎么办?嗯,在这种情况下,我们就进入下一个循环并尝试集合中的下一项,i值保持不变。
我们继续进行查询,每次找到名称中有Enhanced的USB插槽即增加i值。当全部完成后,我们只需回显i值,它将告诉我们计算机上USB2.0端口的数量。
它并不一定是万无一失的方法,但好像还管用。而且,您知道,这和您为我们做事还不一样。
哦,对了;我们忘记了一件事。嗯,您或许喜欢巧克力?

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章