显示基本的bios信息代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】显示基本的bios信息

作者:work24 / 发布于2014/1/17/ 310

#! perl



# WMI query to list all properties and values of the Win32_BIOS class

# This Perl script was generated using the WMI Code Generator, Version 1.30

#http://www.robvanderwoude.com/updates/wmigen.html



useWin32::OLE('in');



useconstant wbemFlagReturnImmediately => 0x10;

useconstant wbemFlagForwardOnly => 0x20;



if($ARGV[0] ) {

$computer=$ARGV[0];

}else{

$computer=".";

}



my$objWMIService= Win32::OLE->GetObject("winmgmts://$computer/root/CIMV2") ordie"WMI connection failed.\n";

my$colItems=$objWMIService->ExecQuery("SELECT * FROM Win32_BIOS","WQL", wbemFlagReturnImmediately | wbemFlagForwardOnly );



foreachmy$objItem( in$colItems) {

print"Name : ".$objItem->{ Name } ."\n";

print"Version : ".$objItem->{ Version } ."\n";

print"Manufacturer : ".$objItem->{ Manufacturer } ."\n";

print"SMBIOSBIOS Version : ".$objItem->{ SMBIOSBIOSVersion } ."\n";

print"\n";

}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　bios信息　

同语言下

可能有用的

work24贡献的其它代码(2)