in reply to Retrieving Microsoft licence keys from your computer

++ for the mac portion (although I can't test it), but this was already done in Finding Windows XP CD Key and I also copied that into m Sys::Info where you can just say: 
perl -MSys::Info -wle "my$o=Sys::Info->new->os;print for$o->cdkey,$o->
+cdkey(office=>1)"

[download]
however, it'll only create results under windows.

Replies are listed 'Best First'.
Re^2: Retrieving Microsoft licence keys from your computer
by lilphil (Scribe) on Sep 24, 2010 at 08:57 UTC

    Thats even easier! Though I usually do audits from a Linux computer. Any chance of making Sys::Info work on multiple platforms for things like this? It would have to use some sort of remote registry which could be left as an exercise for the user if it was provided with the reg files.

    Does it include functionality for Office keys too?

[reply]

In Section Cool Uses for Perl