当前位置: 移动技术网 > IT编程>脚本编程>VBScript > VBScript根据盘符找设备名的代码

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

2017年12月08日  | 移动技术网IT编程  | 我要评论
复制代码 代码如下:on error resume nextstrcomputer = "." set objwmiservice = getobject("winmgmt
复制代码 代码如下:

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

如您对本文有疑问或者有任何想说的,请点击进行留言回复,万千网友为您解惑!

相关文章:

验证码:
移动技术网