http://www.perlmonks.org?node_id=497714


in reply to Finding Windows XP CD Key

Excellent, indeed!

And, FWIW, wgannon's code appears to work fine on W2K, at least for the OS key; the Ofc key can be adapted, trivially, by changing both instances of "11.0" to whatever version you find (via regedit, for instance) at n.n in your registry at

HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\n.n
but I'm not positive it works correctly as running the adapted code here spews what seems to me to be a highly unlikely key -- but that may be because the Ofc install here is a (thoroughly legal) US govt site license, to which only the systems folk have access.

Just in case my n.n notation is unclear, my changed lines are:

my @office = $Registry->{"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Off +ice\\9.0\\Registration"}->SubKeyNames; print &getXPkey("HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\9.0\ +\Registration\\$office[0]\\\\DigitalProductId");

Replies are listed 'Best First'.
Re^2: Finding Windows XP CD Key
by wgannon (Novice) on Oct 05, 2005 at 20:12 UTC
    I have no idea if this works for previous version of Office or Windows. I only tested it with XP Pro and Office 2003, but if anybody finds that it works for other version, please continue to post or post solutions for other verions.