Dim mc As ManagementClass = New ManagementClass("Win32_ComputerSystemProduct")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo As ManagementObject In moc
uuid = mo.Properties("UUID").Value.ToString()
Next
Label1.Text = "00000000-0000-0000-0000-8C89A55DC739"
TextBox1.Text = uuid