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.
15 lines
325 B
15 lines
325 B
on error resume next
|
|
Set t_Service = GetObject("winmgmts://./root/default")
|
|
Set t_Class = t_Service.Get("__SystemClass")
|
|
|
|
Set t_SubClass = t_Class.SpawnDerivedClass_
|
|
t_Subclass.Path_.Class = "SPAWNCLASSTEST00"
|
|
|
|
t_Subclass.Put_
|
|
|
|
if err <> 0 then
|
|
WScript.Echo Err.Number, Err.Description, Err.Source
|
|
end if
|
|
|
|
|
|
|