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