http://www.roth.net/blog Helping the Perl world cope with Windows Wed, 20 Jan 2010 09:22:44 +0000 hourly 1 http://wordpress.org/?v=3.0 http://www.roth.net/blog/index.php/script-repository/comment-page-1/#comment-1077 dineshkhanna Wed, 20 Jan 2010 09:22:44 +0000 http://www.roth.net/forums/?page_id=3#comment-1077 Need help in Perl scripting to get system details in windows XP operating system.Currently I am using win32 class to get the system details like RAM size, processor speed ,Hard disk capacity and fetching the list of installed software.I would like to write the Perl script to get the above system details without using win32 class. I will be great if you could able to guide me to write the Perl script to get the above system details without using win32 class. Below is the sample code which I am currently using to get Hard Disk capacity in Perl, use strict; use Win32::OLE('in'); use constant wbemFlagReturnImmediately => 0x10; use constant wbemFlagForwardOnly => 0x20; my @computers = ($_[0]); foreach my $computer (@computers) { my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n"; my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", wbemFlagReturnImmediately | wbemFlagForwardOnly); foreach my $objItem (in $colItems) { print "\n"; print "Hard Disk capacity : $objItem->{Size}\n"; print "\n"; } } Need help in Perl scripting to get system details in windows XP operating system.Currently I am using win32 class to get the system details like RAM size, processor speed ,Hard disk capacity and fetching the list of installed software.I would like to write the Perl script to get the above system details without using win32 class.
I will be great if you could able to guide me to write the Perl script to get the above system details without using win32 class.
Below is the sample code which I am currently using to get Hard Disk capacity in Perl,
use strict;
use Win32::OLE(‘in’);
use constant wbemFlagReturnImmediately => 0×10;
use constant wbemFlagForwardOnly => 0×20;
my @computers = ($_[0]);
foreach my $computer (@computers)
{
my $objWMIService = Win32::OLE->GetObject(“winmgmts:\\\\$computer\\root\\CIMV2″) or die “WMI connection failed.\n”;
my $colItems = $objWMIService->ExecQuery(“SELECT * FROM Win32_DiskDrive”, “WQL”,
wbemFlagReturnImmediately | wbemFlagForwardOnly);
foreach my $objItem (in $colItems)
{
print “\n”;
print “Hard Disk capacity : $objItem->{Size}\n”;
print “\n”;
}
}

]]>