掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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のところだけ上手く行きません。何処を直したらよいでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.