カスタム検索
その他

USBメモリ(HDD含む)のデバイスインスタンスIDを取得する(VBS)

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