Imports System.Management

Imports Microsoft.Win32

Imports System.Security.AccessControl

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        TextBox1.Text = My.Computer.Info.OSFullName

        TextBox2.Text = System.Environment.MachineName

        TextBox3.Text = My.Computer.Info.InstalledUICulture.EnglishName

        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT*FROM Win32_DiskDrive")

        Dim diskid As String 'DigitalID

        Dim diskSerialNumber As String ' This we will call it the serial number for the time being

        Dim diskModel As String 'serial number

        For Each cmicWmiObj As ManagementObject In cmicWmi.Get

            diskid = cmicWmiObj("sighature")

            diskSerialNumber = cmicWmiObj("serialnumber")

            diskModel = cmicWmiObj("model")

        Next

        Dim x As String

        TextBox4.Text = diskSerialNumber

        TextBox5.Text = diskid

    End Sub

End Class