USBメモリ(HDD含む)のデバイスインスタンスID(Vistaだと"デバイス インスタンス パス")を取得するVBScriptです。
Option Explicit
Dim colDiskDrives
Dim objDrive
Dim objWMIService
Dim strComputer
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
For Each objDrive In colDiskDrives
MsgBox "PNPDeviceID:" & objDrive.PNPDeviceID
Next
Set colDiskDrives = Nothing
Set objWMIService = Nothing