Files
WindowsXP/admin/wmi/wbem/scripting/test/perl/derivation.pl
2025-04-27 07:49:33 -04:00

19 lines
291 B
Perl

use OLE;
use Win32;
# Get a favorite class from CIMOM
$locator = CreateObject OLE 'WbemScripting.SWbemLocator';
$service = $locator->ConnectServer (".", "root/cimv2");
$class = $service->Get ('Win32_BaseService');
$d = $class->{Derivation_};
print ("{ @$d }\n");