VBScript根据盘符找设备名的代码
更新时间：2013年07月28日 18:41:55 作者：
这篇文章主要介绍了vbs下通过盘符找设备名的实现代码，需要的朋友可以参考下
复制代码 代码如下:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"associators of {win32_logicaldisk.deviceid='G:'} WHERE ResultClass=Win32_DiskPartition")
For Each objItem in colItems
TargetIndex = objItem.DiskIndex
Set Items = objWMIService.ExecQuery( _
"SELECT * FROM Win32_DiskDrive Where DeviceID Like '%" & objItem.DiskIndex & "'",,48)
For Each Item in Items
Wscript.Echo "Model: " & Item.Model
Next
Next
相关文章
有时候我们需要获取执行当前vbs的路径，那么就可以参考下面的代码，一般用来可以删除自身等操作2014-05-05
vbs imail 密码解密代码。2009-05-05
SQL获取表结构的show_table.vbs （冰点极限NP）
SQL获取表结构的show_table.vbs，用vbs实现查看sql数据库的表结构的代码。需要传入用户名密码与数据库名称，具体的看程序帮助。2010-11-11
只要运行它后，一旦网线被拔掉的话，马上就进入自动关机倒计时，“-t 30”是倒计时的时间，你可以自己调整。2010-03-03
VBS教程：属性-TotalSize 属性...2006-11-11
一段可以查询系统用户名的sid的vbs代码2008-12-12
在网上看到N多人做radmin后门，要导出注册表而且还用被杀软件K杀。所以本人把自己写的脚本提供大家分享。比较实用，希望大家喜欢。2008-06-06
VBS教程：正则表达式简介 -普通字符...2006-11-11
用VBS调用程序并对程序的运行情况进行监控的两个代码...2007-03-03
VBS实现将字符串写入剪切板的实现代码，需要的朋友可以参考下。2012-01-01
最新评论