（Perl）使用WMI获取系统信息

Posted 2021-02-26

# useful links:
# (WMI space definition) http://msdn.microsoft.com/en-us/library/aa394084(VS.85).aspx
# (OLE usage on CPAN) http://cpan.uwinnipeg.ca/htdocs/Win32-OLE/Win32/OLE.html#Object_methods_and_properties

#!/usr/bin/perl -w
 
# use binperl.exe wmi.pl to run.
# have fun!
# 2009/6/17 twitter.com/vinocui
# 
# useful links:
# (WMI space definition) http://msdn.microsoft.com/en-us/library/aa394084(VS.85).aspx
# (OLE usage on CPAN)    http://cpan.uwinnipeg.ca/htdocs/Win32-OLE/Win32/OLE.html#Object_methods_and_properties
#
 
use Win32::OLE;
 
#my $wmi = Win32::OLE->GetObject("winmgmts://./root/cimv2") or die "failed to retrieve cimv2.";
# winmgmts means to access WMI service.
 
my $wmi = Win32::OLE->GetObject("WinMgmts://./root/cimv2") or die "Failed: GetObject
";
my $list, my $v;
 
 
$list = $wmi->InstancesOf("Win32_Processor") or die "Failed: InstancesOf
";
 
foreach $v (Win32::OLE::in $list){
    print "CPU:
";
    print "	", $v->{Name}, "
";
    print "	", $v->{Caption}, "
";
}
 
$list = $wmi->InstancesOf("Win32_OperatingSystem") or die "Failed: InstancesOf
";
 
foreach $v (Win32::OLE::in $list){
    print "OS:
";
    print "	", $v->{Name}, "
";
}
 
0;