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.
85 lines
2.9 KiB
85 lines
2.9 KiB
var Service = GetObject("winmgmts:root/default");
|
|
|
|
//Create a simple embeddable object
|
|
var Class = Service.Get();
|
|
Class.Path_.Class = "INNEROBJ01";
|
|
var Property = Class.Properties_.Add ("p", 19);
|
|
Class.Properties_.Add ("q", 8).Value = "resnais";
|
|
Property.Qualifiers_.Add ("fred", "wibbley");
|
|
Property.Qualifiers_.Add ("dibnah", "wobbley");
|
|
Class.Qualifiers_.Add ("stavisky", "providence");
|
|
Class.Qualifiers_.Add ("muriel", "brouillard");
|
|
Class.Put_();
|
|
var Class = Service.Get ("INNEROBJ01");
|
|
Class.p = 8778;
|
|
|
|
//Create a class that uses that object
|
|
var Class2 = Service.Get();
|
|
Class2.Path_.Class = "EMBOBJTEST01";
|
|
Class2.Properties_.Add ("p1", 13).Value = Class;
|
|
|
|
|
|
//Now modify the path
|
|
Class.Path_.Class = "LAGUERRE";
|
|
WScript.Echo ("The current value of EMBOBJTEST01.p1.Path_.Class is [LAGUERRE]:", Class2.p1.Path_.Class);
|
|
WScript.Echo ();
|
|
|
|
//Modify the qualifier set of the class
|
|
Class.Qualifiers_.Remove ("muriel");
|
|
Class.Qualifiers_.Add ("fumer", "pasdefumer");
|
|
var Qualifier = Class.Qualifiers_("stavisky");
|
|
Qualifier.Value = "melo";
|
|
|
|
WScript.Echo ("Qualifiers of EMBOBJTEST01.p1 are [(fumer,pasdefumer),(stavisky,melo)]:");
|
|
for (e = new Enumerator (Class2.p1.Qualifiers_); !e.atEnd(); e.moveNext())
|
|
{
|
|
var Qualifier = e.item();
|
|
WScript.Echo (Qualifier.Name, Qualifier.Value);
|
|
}
|
|
|
|
WScript.Echo ("Qualifier [stavisky] has flavor [-1,-1,-1]:", Class2.p1.Qualifiers_("stavisky").IsOverridable,
|
|
Class2.p1.Qualifiers_("stavisky").PropagatesToInstance,
|
|
Class2.p1.Qualifiers_("stavisky").PropagatesToSubclass);
|
|
|
|
var Qualifier = Class.Qualifiers_("stavisky");
|
|
Qualifier.IsOverridable = false;
|
|
Qualifier.PropagatesToInstance = false;
|
|
Qualifier.PropagatesToSubclass = false;
|
|
|
|
WScript.Echo ("Qualifier [stavisky] has flavor [0,0,0]:", Class2.p1.Qualifiers_("stavisky").IsOverridable,
|
|
Class2.p1.Qualifiers_("stavisky").PropagatesToInstance,
|
|
Class2.p1.Qualifiers_("stavisky").PropagatesToSubclass);
|
|
|
|
//Modify the qualifier set of the property
|
|
Class.Properties_("p").Qualifiers_.Remove ("fred");
|
|
Class.Properties_("p").Qualifiers_.Add ("steeple", "jack");
|
|
Class.Properties_("p").Qualifiers_("dibnah").Value = "demolition";
|
|
|
|
WScript.Echo ();
|
|
WScript.Echo ("Qualifiers of EMBOBJTEST01.p1.p are [(steeple,jack),(dibnah,demolition)]:");
|
|
for (e = new Enumerator (Class2.p1.Properties_("p").Qualifiers_); !e.atEnd(); e.moveNext())
|
|
{
|
|
var Qualifier = e.item();
|
|
WScript.Echo (Qualifier.Name, Qualifier.Value);
|
|
}
|
|
|
|
|
|
//Modify the property set of the property
|
|
Class.Properties_.Remove ("q");
|
|
Class.Properties_.Add ("r", 19).Value = 27;
|
|
Class.Properties_("p").Value = 99;
|
|
|
|
WScript.Echo();
|
|
WScript.Echo ("Properties of EMBOBJTEST01.p1 are [(p,99),(r,27)]:");
|
|
for (e = new Enumerator (Class2.p1.Properties_); !e.atEnd(); e.moveNext())
|
|
{
|
|
var Property = e.item();
|
|
WScript.Echo (Property.Name, Property.Value);
|
|
}
|
|
|
|
|
|
Class2.Put_();
|
|
|
|
|
|
|
|
|