Как можно программно получить серийный номер винчестера - VB

Формулировка задачи:

Мне нужно программно создать 'Serial Key' -сериальный номер для моей программы (soft-a), т.е. привязка к компьютеру, для этого я решил вместо этого взять серийный номер винча..... Схема, например, может быть следующей: программа вычисляет упомянутые уникальные данные и показывает их пользователю; он посылает их автору, который (при подтверждении оплаты) вычисляет на их основе соответствующий пароль и посылает его обратно. В программе 'прошит' тот же самый алгоритм, и делается сверка ключей - введенного с правильным. Если кто-либо когда-то занимался чем-то вроде этого и у него остались какие-либо исходники, у меня огромная прозьба пришлите на мой e-mail: removed@mail.ru. Если даже кто-то что-нибудь сможет посоветовать, я буду заранее благодарен ему или ей..... С огромной благодарностью... Меружан Григорян

Решение задачи: «Как можно программно получить серийный номер винчестера»

textual
                            Листинг программы 
                        

                            Public Function GetHDDSerialNumber(ByVal drive As String) As String
        Dim disk As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid=""" + drive + ":""")
        disk.Get()
        Return disk("VolumeSerialNumber").ToString()
    End Function
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                       txt_originalText.Text = (GetHDDSerialNumber("C"))
                     
    End Sub
                        