2008年12月16日 星期二

取得磁碟的序號

撰寫 Win Form 程式有時候會我們需要針對不同的電腦來驗證權限,或是連線到遠端取得這部電腦專屬的資料,通常我會採用磁碟序號來當作識別電腦身份的標的。
 
磁碟序號是由八碼的英文、數字組合的編號,每次格式化(format)就會重新產生一組新的序號,因為它的排列組合多達36^8 種,真的要強碰到的機率非常低,這對規模在一千部電腦內的系統來說是絕對是措措有餘了。
 
下面這個範例示範如何使用 WMI 來取得磁碟序號
Imports System.Management
 
Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim objCls As ManagementObject = New ManagementObject("Win32_LogicalDisk.DeviceID='C:'")
      MsgBox(objCls.GetPropertyValue("VolumeSerialNumber").ToString())
End Sub

沒有留言: