47 lines
959 B
Perl
47 lines
959 B
Perl
#!perl -w
|
|
# Copyright (c) Microsoft Corporation
|
|
#***************************************************************************
|
|
#
|
|
# WMI Sample Script - Subclass creation (Perl Script)
|
|
#
|
|
# This script demonstrates how to create a subclass.
|
|
#
|
|
#'***************************************************************************
|
|
use strict;
|
|
use Win32::OLE;
|
|
|
|
my ($tService, $tClass, $tSubClass);
|
|
close(STDERR);
|
|
MAIN:
|
|
{
|
|
eval
|
|
{
|
|
$tService = Win32::OLE->GetObject("winmgmts://./root/default");
|
|
$tClass = $tService->Get();
|
|
};
|
|
unless($@)
|
|
{
|
|
$tClass->Path_->{Class} = "MyBaseClass";
|
|
eval { $tClass->Put_(); };
|
|
unless($@)
|
|
{
|
|
eval { $tSubClass = $tService->Get("MyBaseClass")->SpawnDerivedClass_(); };
|
|
unless ($@)
|
|
{
|
|
$tSubClass->Path_()->{Class} = "SPAWNCLASSTEST00";
|
|
eval { $tSubClass->Put_(); };
|
|
last MAIN if ($@);
|
|
}
|
|
}
|
|
last MAIN if ($@);
|
|
}
|
|
last MAIN if ($@);
|
|
exit(0);
|
|
}
|
|
print Win32::OLE->LastError, "\n";
|
|
exit(1);
|
|
|
|
|
|
|
|
|