Leaked source code of windows server 2003
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.
 
 
 
 
 
 

84 lines
1.8 KiB

WScript.Echo ("");
WScript.Echo ("Create an Object Path");
WScript.Echo ("");
var d = new ActiveXObject("WbemScripting.SWbemObjectPath");
d.Path = '\\ALANBOS3\ROOT\DEFAULT:Foo.Bar=12,Wibble="Hah"';
DumpPath(d);
d.RelPath = "Hmm.G=1,H=3";
WScript.Echo ();
DumpPath(d);
WScript.Echo ();
WScript.Echo ("Extract an Object Path from a class");
WScript.Echo ();
var c = GetObject("winmgmts:").Get();
c.Path_.Class = "PATHTEST00";
var p = c.Put_();
DumpPath(p);
WScript.Echo ();
WScript.Echo ("Extract an Object Path from a singleton");
WScript.Echo ();
var i = GetObject("winmgmts:root/default:__cimomidentification=@");
var p = i.Path_;
DumpPath(p);
WScript.Echo ();
WScript.Echo ("Extract an Object Path from a keyed instance");
WScript.Echo ();
var i = GetObject('winmgmts:{impersonationLevel=Impersonate}!win32_logicaldisk="C:"');
var p = i.Path_;
DumpPath(p);
WScript.Echo ();
WScript.Echo ("Clone keys");
WScript.Echo ();
var newKeys = p.Keys.Clone();
DumpKeys (newKeys);
WScript.Echo ();
WScript.Echo ("Change Cloned keys");
WScript.Echo ();
//Note that the cloned copy of Keys _should_ be mutable
newKeys.Add ("fred", 23);
newKeys.Remove ("DeviceID");
DumpKeys (newKeys);
function DumpPath(p)
{
WScript.Echo ("Path=", p.Path);
WScript.Echo ("RelPath=",p.RelPath);
WScript.Echo ("Class=", p.Class);
WScript.Echo ("Server=", p.Server);
WScript.Echo ("Namespace=", p.Namespace);
WScript.Echo ("DisplayName=", p.DisplayName);
WScript.Echo ("ParentNamespace=", p.ParentNamespace);
WScript.Echo ("IsClass=", p.IsClass);
WScript.Echo ("IsSingleton=", p.IsSingleton);
DumpKeys (p.Keys);
}
function DumpKeys (keys)
{
var e = new Enumerator (keys);
for (;!e.atEnd();e.moveNext ())
{
var key = e.item ();
WScript.Echo ("KeyName:", key.Name, "KeyValue:", key.Value );
}
}