Dim rk1 As RegistryKey Dim rk2 As RegistryKey rk1 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64) rk2 = rk1.OpenSubKey("HARDWAREDESCRIPTIONSystemBIOS") Dim PID As String = rk2.GetValue("SystemProductName").ToString