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.
20 lines
494 B
20 lines
494 B
|
|
|
|
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_ ();
|
|
|
|
|
|
|