Bilgisayar adı alma ve Hdd serial no öğrenme

Bilgisayar adı alma
Form load veya butonun lick olayına aşağıdaki kodları yazmamız yeterli olacaktır.
MsgBox(SystemInformation.ComputerName & "  / " & SystemInformation.UserName)
Hdd serial no öğrenme
'references'a system.Management'i ekleyiniz
Imports System.Management  
 Dim disk As New ManagementClass("Win32_PhysicalMedia")  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Hdisk As ManagementObject In disk.GetInstances()
            If Hdisk("SerialNumber") <> Nothing Then
                MessageBox.Show("Hdisk serino: " & CStr(Hdisk("SerialNumber")))
            End If
        Next Hdisk
    End Sub