WMIでハードディスクのシリアルナンバーを取得するには (ID:103182)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 現在以下の様にして、WMIでハードディスクの情報を取得していますが、 ------------------------------------------------ Dim DiskSet As SWbemObjectSet Dim Disk As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set DiskSet = Service.ExecQuery _ ("Select * From Win32_DiskDrive") For Each Disk In DiskSet MesStr = MesStr & vbCrLf & _ "Diskの名前：" & Disk.Caption & vbCrLf & _ "DiskのデバイスID：" & Disk.DeviceID & vbCrLf & _ "Diskのインターフェース:" & Disk.InterfaceType & vbCrLf & _ "Diskのタイプ:" & Disk.MediaType & vbCrLf & _ "Diskのサイズ:" & CStr(Disk.Size) & vbCrLf & _ "Diskのステータス:" & Disk.Status & vbCrLf & _ "Diskのシリアルナンバ:" & Disk.VolumeSerialNumber Next MsgBox "Diskの色々な情報です。" & _ vbCrLf & MesStr & vbCrLf & "ですよ。" Set DiskSet = Nothing Set Disk = Nothing Set Locator = Nothing Set Service = Nothing ------------------------------------------------ Disk.VolumeSerialNumberのところだけ上手く行きません。何処を直したらよいでしょうか？