[VB.Net] Windowsのハードディスク情報する方法

Question

CドライブのGUIDを取得する方法はありますか？
よろしくお願いします。

Answer 1

デバイスIDのことですか？
WMIを使います。

class Program
{
    static void Main(string[] args)
    {
        var management = new ManagementClass("Win32_Volume");
        var instances = management.GetInstances();

        foreach (ManagementObject item in instances)
        {
            if (item["DriveLetter"].ToString() != "C:") continue;

            Console.WriteLine(item["DeviceID"].ToString());
        }
    }
}

System.Management.dllへの参照が必要です。

Module Module1

    Sub Main()
        Dim management = New ManagementClass("Win32_Volume")
        Dim instances = management.GetInstances()

        For Each item As ManagementObject In instances
            If item("DriveLetter").ToString() <> "C:" Then Continue For
            Console.WriteLine(item("DeviceID").ToString())
        Next
    End Sub

End Module

Option Explicit

Dim wmi: Set wmi = GetObject("winmgmts:")
Dim query: query = "SELECT * FROM Win32_Volume WHERE DriveLetter='C:'"

Dim item
For Each item In wmi.ExecQuery(query)
    MsgBox item.DeviceID
Next

Comments

[inukujira]

すいません。
VB.NETの場合はどのようにすれば良いでしょうか？

[htsign]

失礼しました…。VB.NETでしたね。
基本的には変わりません。

Dim management = New ManagemetClass("Win32_Volume")
Dim instance = management.GetInstance()

For Each item As ManagementObject In instance
If item("DriveLetter").ToString() <> "C:" Then Continue For
Console.WriteLine(item("DeviceID").ToString())
Next

[htsign]

あ、一応タグがVBScriptなのでそちらも書いておきます。

Option Explicit

Dim wmi: Set wmi = GetObject("winmgmts:")
Dim query: query = "SELECT * FROM Win32_Volume WHERE DriveLetter='C:'"

Dim item
For Each item In wmi.ExecQuery(query)
MsgBox item.DeviceID
Next

[htsign]

連投失礼します。
読みにくいので、これらのソースコードを回答の方に追記しました。