From 858dd22c01e65ee99b3163b5f41a98368bd1cbf1 Mon Sep 17 00:00:00 2001
From: "Robert C. Maehl" <rcmaehl@aol.com>
Date: Mon, 28 Jun 2021 19:30:31 -0400
Subject: [PATCH] #151, #161

Attempt to fix TPM detection
---
 WhyNotWin11.au3 | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/WhyNotWin11.au3 b/WhyNotWin11.au3
index 71cfb8c5..255f6526 100644
--- a/WhyNotWin11.au3
+++ b/WhyNotWin11.au3
@@ -468,6 +468,14 @@ Func Main()
 	GUICtrlSetData($hCheck[9][2], Round(DriveSpaceTotal("C:\")/1024, 0) & " GB C:\" & @CRLF & $iDrives & " " & _Translate("Drive(s) Meet Requirements"))
 
 	Select
+		Case Not IsAdmin() And _GetTPMInfo(0) = True
+			GUICtrlSetData($hCheck[10][0], "OK")
+			GUICtrlSetBkColor($hCheck[10][0], 0x4CC355)
+			GUICtrlSetData($hCheck[10][2], "TPM 2.0 " & _Translate("Detected"))
+		Case Not IsAdmin() And _GetTPMInfo <> True
+			GUICtrlSetData($hCheck[10][0], "X")
+			GUICtrlSetBkColor($hCheck[10][0], 0xFA113D)
+			GUICtrlSetData($hCheck[10][2], _Translate("TPM Missing / Disabled"))
 		Case _GetTPMInfo(0) = False
 			ContinueCase
 		Case _GetTPMInfo(1) = False