28 lines
691 B
Plaintext
28 lines
691 B
Plaintext
' Copyright (c) Microsoft Corporation, All Rights Reserved
|
|
'***************************************************************************
|
|
'
|
|
' WMI Sample Script - Subclass creation (VBScript)
|
|
'
|
|
' This script demonstrates how to create a subclass.
|
|
'
|
|
'***************************************************************************
|
|
|
|
on error resume next
|
|
Set t_Service = GetObject("winmgmts://./root/default")
|
|
Set t_Class = t_Service.Get
|
|
t_Class.Path_.Class = "MyBaseClass"
|
|
t_Class.Put_
|
|
|
|
|
|
Set t_SubClass = t_Service.Get("MyBaseClass").SpawnDerivedClass_
|
|
t_Subclass.Path_.Class = "SPAWNCLASSTEST00"
|
|
|
|
t_Subclass.Put_
|
|
|
|
if err <> 0 then
|
|
WScript.Echo Err.Number, Err.Description, Err.Source
|
|
end if
|
|
|
|
|
|
|