35 lines
832 B
Perl
35 lines
832 B
Perl
#!perl -w
|
|
# Copyright (c) Microsoft Corporation
|
|
#***************************************************************************
|
|
#
|
|
# WMI Sample Script - Object Collection (Perl Script)
|
|
#
|
|
# This script illustrates how SWbemObjectSet collections are manipulated.
|
|
#
|
|
#***************************************************************************
|
|
use strict;
|
|
use Win32::OLE;
|
|
|
|
my ($disks,$disk);
|
|
|
|
eval { $disks = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2")->
|
|
InstancesOf("CIM_LogicalDisk"); };
|
|
unless($@)
|
|
{
|
|
print "\nThere are ", $disks->{Count}, " Disks \n";
|
|
|
|
eval { $disk = $disks->Item("Win32_LogicalDisk.DeviceID=\"C:\""); };
|
|
unless($@)
|
|
{
|
|
print $disk->{Path_}->{Path}, "\n";
|
|
}
|
|
else
|
|
{
|
|
print STDERR Win32::OLE->LastError, "\n";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print STDERR Win32::OLE->LastError, "\n";
|
|
}
|