Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: BIOS calls?

by Khen1950fx (Canon)
on Jul 29, 2011 at 05:14 UTC ( #917388=note: print w/replies, xml ) Need Help??


in reply to BIOS calls?

On my system, interrupt calls to the BIOS aren't possible, but there are ways to get information about the BIOS. Here's a script that I use to get BIOS and boot info. It requires Parse::DMIDecode and Linux::Bootloader.
#!/usr/bin/perl use strict; use warnings; use Parse::DMIDecode qw(@TYPES %GROUPS); use Data::Dumper::Concise; use Linux::Bootloader; my $dmi = Parse::DMIDecode->new( dmidecode => "/usr/sbin/dmidecode", nowarnings => 1, ); $dmi->probe; print $dmi->keyword("bios-address"), "\n", Dumper($dmi->keyword("bios-characteristics")), "\n", Dumper($dmi->keyword("bios-currently-installed-language")), "\n" +, Dumper($dmi->keyword("bios-installable-languages")), "\n", $dmi->keyword("bios-release-date"), "\n", $dmi->keyword("bios-rom-size"), "\n", $dmi->keyword("bios-runtime-size"), "\n", $dmi->keyword("bios-vendor"), "\n", $dmi->keyword("bios-version"), "\n"; my $bootloader = new Linux::Bootloader(); my $config_file = '/boot/grub/grub.conf'; $bootloader->read($config_file); $bootloader->print_info('all');
For those of you using Windows, you'll find something similar here.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://917388]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2019-06-24 20:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Is there a future for codeless software?



    Results (99 votes). Check out past polls.

    Notices?