用vb.net取硬盘物理序列号

要获取硬盘序列号，需要访问注册表．实际操作如下，建立一个新的窗体，在上面添加一个标签Ｌabel1，一个按钮Ｃommand１，实现：按下按钮，在标签上显示硬盘序列号．
代码：

Imports system
Imports Microsoft.Win32
Imports system.Diagnostics
Imports system.Windows.Forms

'以上创建命名空间

Private Command1_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles Command1.Click

Dim myDec As RegistryKey
Dim myScsi As RegistryKey
Dim myPort As RegistryKey
Dim myBus As RegistryKey
Dim myHd As RegistryKey
Dim myInfo As RegistryKey
Dim myHW As RegistryKey
Dim myLM As RegistryKey

'定义获取硬盘序列号的节点

myLM=Registry.LocalMachine
myHW=myLM.OpenSubKey("HARDWARE")
myDec=myHW.OpenSubKey("DEVICEMAP")
myScsi=myDec.OpenSubKey("Scsi")
myPort=myScsi.OpenSubKey("Scsi Port 1")
myBus=myPort.OpenSubKey("Scsi Bus 0")
myHd=myBus.OpenSubKey("Target Id 0")
myInfo=myHd.OpenSubKey("Logical Unit Id 0")

'获取硬盘序列号

Me.Label1.Text=myInfo.GetValue("Identifier")

'在标签上显示出来