WYFFV-GY9XF-K7G3W-GBKWW-YP2HK - win10 (srcipt)
TX9XD-98N7V-6WMQ6-BX7FG-H8Q99 - win10home  (pro key)

Microsoft Office Pro 2016 - XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99
INTERNET EXPLORER ( lol ? ) - TX9XD-98N7V-6WMQ6-BX7FG-H8Q99


office XP - HHHCF-WCF9P-M3YCC-RXDXH-46RVP
Office 2003 - 7P8Y8-MYYP9-QFP92-TP2YK-FC3C6
windows2000 - K8HMB-7DD96-3Y3CJ-RK9GP-8JBQD


---------------SCRIPTECSKE-------

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

---------------------------------