21 lines
494 B
Perl
21 lines
494 B
Perl
|
|
|
|
use OLE;
|
|
use Win32;
|
|
|
|
$locator = CreateObject OLE 'WbemScripting.SWbemLocator';
|
|
$service = $locator->ConnectServer (".", "root/default");
|
|
$class = $service->Get ("__cimomidentification");
|
|
$subclass = $class->SpawnDerivedClass_ () || die;
|
|
print "$class->{Path_}->{class}\n";
|
|
$subclass->{Path_}->{Class} = "wibble";
|
|
print "$subclass->{Path_}->{Class}\n";
|
|
$subclass->Put_ ();
|
|
|
|
# $class->{Path_}->{Class} = "wibble";
|
|
# print "$class->{Path_}->{Class}\n";
|
|
# $class->Put_ ();
|
|
|
|
|
|
|