You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
291 B
18 lines
291 B
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");
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|