VBScript如何根据盘符找设备名

这篇文章主要介绍VBScript如何根据盘符找设备名，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！

复制代码 代码如下:

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如何根据盘符找设备名”这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注行业资讯频道！