首页 > Web开发 > 详细

VBScript根据盘符找设备名的代码

时间:2016-01-23 00:08:43      阅读:185      评论:0      收藏:0      [点我收藏+]
复制代码 代码如下:

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

VBScript根据盘符找设备名的代码

原文:http://www.jb51.net/article/40056.htm

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!