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教程：函数-IsNumeric 函数...2006-11-11
VBScript教程 第八课 使用循环语句...2006-11-11
以前有介绍如何使用命令行调用系统的关机对话框rundll32.exe shell32.dll #60,但是，上述方法会存在一问题，XP下无法正常使用该方法进行关机2012-05-05
VBS教程：方法-GetFile 方法...2006-11-11
VBS获取MD5值最简单的方法是直接调用CAPICOM组件，但是由于CAPICOM组件系统并不是默认安装，所以使用起来不方便2013-11-11
用vbs实现压缩文件夹的代码，可以压缩文件夹，减少文件占用体积2008-06-06
在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文2013-05-05
bs脚本的功能呢是很多的，不过有时候我们只需要其中的某些功能，今天我突然想研究下怎么用vbs脚本实现添加程序到自启动项2013-01-01
查看或修改Windows系列系统的序列号（包括：2000,xp,2003），支持命令行2008-06-06
VBS教程：函数-TimeSerial 函数...2006-11-11
最新评论