在这上找到了硬盘序列号的参数: \'获得硬盘序列号 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 和在一块总算给提出来了,呵呵。