ハードディスクのシリアル番号のパラメータが見つかりました。 'ハードディスクのシリアル番号を取得します。 Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive") Dim Uint32 As UInt32 For Each cmicWmiObj As ManagementObject In cmicWmi.Get Uint32 = cmicWmiObj("signature" ) Next TextBox1.Text = Uint32.ToString そして最後にまとめました (笑)。