This is just an example of how to do it...You could rewrite it to return keys for office products as well. Once a RegEnum function is written you'll see an intelligent version to return office products. Dim $Bin $Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","DigitalProductID") InputBox("Product Key", "Your " & @OSVERSION & " product key is:", DecodeProductKey($bin), "", -1, 100, -1, -1) Func DecodeProductKey($BinaryDPID) Local $bKey[15] Lo