Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Checking mainboard

by PhillipHuang (Sexton)
on Sep 14, 2012 at 01:53 UTC ( #993618=perlquestion: print w/replies, xml ) Need Help??
PhillipHuang has asked for the wisdom of the Perl Monks concerning the following question:

Hi all, There're about more than 200 pcs mainboards needed to check the hardware infomation(bios version, manufacturer name, chipset info, controller info, etc).Is there any powerful perl module to do this job? I have tried Rex::Hardware, while it shows more info about software system. thanks, PH

Replies are listed 'Best First'.
Re: Checking mainboard
by NetWallah (Abbot) on Sep 14, 2012 at 03:52 UTC
    This is probably much more than you need, but the combinamtion of GLPI and OCS Inventory NG (Latter is more relevant to your requirements) will probably do the job, and then some. Both are free. Don't be put-off by the initial French - both sites have little flag icons that shows them in English.

    For your purposes, you could probably get by with just OCS, and if the standard plug-in does not provide enough information, you can easily add your own (perl) code.

                 I hope life isn't a big joke, because I don't get it.

Re: Checking mainboard
by Khen1950fx (Canon) on Sep 14, 2012 at 05:47 UTC
    #!/usr/local/bin/perl use strict; use warnings; use Parse::DMIDecode; my $decoder = Parse::DMIDecode->new( dmidecode => "/usr/sbin/dmidecode", nowarnings => 1, ); $decoder->probe; my @keywords = $decoder->keywords; foreach my $keyword (@keywords) { printf("%s => %s\n", $keyword, $decoder->keyword($keyword) ); }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://993618]
Approved by ww
Discipulus redskins .. well native american..
[1nickt]: So if I was to offer any editorial advice it would be to (1) make it endure time passing (2) make it positive (3) make it about you and your beliefs
[1nickt]: (Disicpulus The new best choice is maybe "First People"
[karlgoethebier]: Discipulus: This is called "Volksverhetzung" in German which means
[karlgoethebier]: incitement of the people and it is prohibited by law
[1nickt]: The best sign I have sign in a protest march was carried by a kid of about 10 years "If you build a wall my generation will tear it down."
[1nickt]: ... sign I have seen ...
[1nickt]: Now that one made me hopeful! First time not angry in a long time when I saw that kid.
[Discipulus]: i propend for removing: why? because we are so few that we must find i minimal common divisor, this is certainly Perl not our (anyway private) thougths. And i say this still wondering because i love a lot freedom of expression. And i say this not for roho
[1nickt]: Discipulus that was the point of my story of taking the sticker off my truck. I know there are lots of people in the world who if I knw their private beliefs I might want to argue with them. And they with me. But life cannot all be arguments!

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (10)
As of 2017-06-22 12:12 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (519 votes). Check out past polls.