Welcome to the Lounge

trønderen wrote:

If what you need is medium temperature heat, e.g. for heating homes, you can often make due with a lot cheaper drilling.

honey the codewitch wrote:

Swap out the system drive, install win 11, choosing "I don't have a product key" - then, if it doesn't activate by UEFI I should be able to sign in to my MS account and activate it that way or something? Wasn't real clear on that last bit.

wmic path softwarelicensingservice get OA3xOriginalProductKey

slmgr /dli

OriginalGriff wrote:

Changing your disk does not invalidate your registration, it should work right away.

'	Get Windows Product Key
'	From https://www.howtogeek.com/206329/how-to-find-your-lost-windows-or-office-product-keys/

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
	Const KeyOffset = 52
	i = 28
	Chars = "BCDFGHJKMPQRTVWXY2346789"
	Do
		Cur = 0
		x = 14
		Do
			Cur = Cur * 256
			Cur = Key(x + KeyOffset) + Cur
			Key(x + KeyOffset) = (Cur \ 24) And 255
			Cur = Cur Mod 24
			x = x -1
		Loop While x >= 0
		i = i -1
		KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
		If (((29 - i) Mod 6) = 0) And (i <> -1) Then
			i = i -1
			KeyOutput = "-" & KeyOutput
		End If
	Loop While i >= 0
	ConvertToKey = KeyOutput
End Function