这篇文章主要介绍了vbs下通过盘符找设备名的实现代码，需要的朋友可以参考下

代码如下:

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