Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Retrieving Microsoft licence keys from your computer

by Burak (Chaplain)
on Sep 23, 2010 at 23:55 UTC ( #861695=note: print w/replies, xml ) Need Help??


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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://861695]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2023-06-01 09:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found
    Notices?