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

所属分类: 脚本专栏 / vbs 阅读数: 1859
收藏 0 赞 0 分享
问:
您好,脚本专家!有没有办法使用脚本来确定计算机是否有 USB 2.0 端口?
-- RD
答:
您好,RD。您熟悉电影疯狂星期五 (Freaky Friday) 吗,电影中母亲和女儿交换了身体(及角色)?嗯,我们的这个问题中有点类似疯狂星期五的东西。毕竟,在本专栏中本来应该由“脚本专家”来帮助您。但是,此问题实际上却帮助了一位“脚本专家”。他原来一直在尝试测试 USB 设备(未成功),而且几乎已经把这项工作视为毫无意义。但是当阅读到您的问题时,他心中暗想,“哎呀,对啊:USB 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 
这个脚本首先为两个变量进行了赋值。为变量 strComputer 赋予了点 (.),点(WMI 表示法)代表本地计算机。同时,为计数器变量 i 赋值 0;我们将使用此变量来作为所有找到的 USB 2.0 端口的活动计数器。
连接到 WMI 服务后,我们使用此查询返回所有 Win32_USBController 类的实例:
Set colControllers = objWMIService.ExecQuery _
    ("Select * From Win32_USBController")
在此我们设置一个 For Each 循环来遍历集合(集合当然是代表计算机上的所有 USB 端口)中的每一项。遗憾的是,Win32_USBController 类不包含可告诉我们 USB 版本的属性(如 Version),实际上,并没有明确的方法来查看 USB 插槽的属性并了解它是 1.1 版本还是 2.0 版本。不过,大部分 2.0 端口均在名称中的某个位置包含 Enhanced 一词。我们不能保证所有端口均如此,这就是我们说此脚本很可能返回计算机上 USB 2.0 端口数量的原因。但是,在办公室里的随机测试中,此方法似乎行得通;发现 2.0 插槽时它总是有类似下面的名称:
VIA USB Enhanced Host Controller
那么,这对我们有何帮助呢?嗯,这表示我们可以使用 InStr 函数来查看 Enhanced 一词是否出现在每个插槽的 Name 中:
If Instr(objController.Name, "Enhanced") Then
如果 InStr 返回值 True(从技术角度来说,如果它返回比 0 大的值),则表示在名称中某处发现了 Enhanced 一词。在这种情况下,我们会将 i 值加 1:
i = i + 1
如果 InStr 返回 0,表示找不到Enhanced 一词怎么办?嗯,在这种情况下,我们就进入下一个循环并尝试集合中的下一项,i 值保持不变。
我们继续进行查询,每次找到名称中有 Enhanced 的 USB 插槽即增加 i 值。当全部完成后,我们只需回显 i 值,它将告诉我们计算机上 USB 2.0 端口的数量。
它并不一定是万无一失的方法,但好像还管用。而且,您知道,这和您为我们做事还不一样。
哦,对了;我们忘记了一件事。嗯,您或许喜欢巧克力?
更多精彩内容其他人还在看

VBS监视网络连接与断开的代码

监视网络连接与断开,特殊情况下可能有点用,两个VBS脚本均来自微软官网
收藏 0 赞 0 分享

可以修改脚本自身运行次数的vbs(Self modifying script)

通过脚本修改脚本的内容,这里以统计脚本运行次数为例,想学习vbs的朋友可以参考下
收藏 0 赞 0 分享

VBScript之通过对比注册表查找隐藏的服务

系统服务有可能被 rootkit 隐藏,但有些时候我们仍可以从注册表中找到相关的信息。建议以管理员权限运行,否则有些服务列举不出来或出现错误的提示
收藏 0 赞 0 分享

VBScript 监控并结束指定进程的代码

有时候我们需要监控一些进程,防止一些进程的开启,发现指定进程运行就关闭它,那么就可以参考下面的代码
收藏 0 赞 0 分享

VBScript 输出中的对齐实现方法

有时候我们需要在vbs中输入的字符实现对齐效果,那么就可以参考下面的代码了
收藏 0 赞 0 分享

vbs 获取当前目录的实现代码

获取当前正执行的VBS的路径,通过Scripting.FileSystemObject组件实现
收藏 0 赞 0 分享

vbs 获取当前目录文件数量的代码(不包括子文件夹中的)

有时候我们需要获取当前目录下有多少个文件,那么就可以参考下面的代码
收藏 0 赞 0 分享

VBS获取当前目录下所有文件夹名字的代码

有时候我们需要获取当前目录下所有文件夹的名字,那么就可以参考下面的代码了
收藏 0 赞 0 分享

VBS读取注册表的两种方法

有时候我们需要用vbs来操作注册表,一般情况下有两种方法,一种是通过wshshell对象的regread,另外一种是使用WMI操作注册表,下面简单的介绍下
收藏 0 赞 0 分享

查看系统C盘剩余空间的VBS脚本

查看系统C盘剩下的空间方法有很多,在本文要为大家介绍的是通过VBS脚本是如何实现的,感兴趣的朋友不要错过
收藏 0 赞 0 分享
查看更多