您现在的位置： 万盛学电脑网 >> 程序编程 >> 网络编程 >> 编程语言综合 >> 正文
VBScript根据盘符找设备名的代码
作者：佚名 责任编辑：admin 更新时间：2022-06-22
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & strComputer & "rootCIMV2")
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
- 上一个程序编程： ajax读取数据库内容实现二级联动下拉选择菜单示例
- 下一个程序编程： 什么是hta(HTML Application)
