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.
 
 
 
 
 
 

58 lines
1.8 KiB

//***************************************************************************
//This script tests the manipulation of context values, in the case that the
//context value is an array type
//***************************************************************************
var Context = new ActiveXObject ("WbemScripting.SWbemNamedValueSet");
Context.Add ("n1", new Array (1, 20, 3));
var arrayValue = new VBArray (Context("n1").Value).toArray();
var str = "The initial value of n1 is [1,20,3]: {";
for (var i = 0; i < arrayValue.length; i++)
{
str = str + arrayValue[i];
if (i < arrayValue.length - 1)
str = str + ", ";
}
str = str + "}"
WScript.Echo (str);
WScript.Echo ("");
//Verify we can report the value of an element of the context value
var v = new VBArray (Context("n1").Value).toArray ();
WScript.Echo ("By indirection n1[0] has value [1]:",v[0]);
//Verify we can set the value of a single named value element
Context("n1")(1) = 14;
WScript.Echo ("After direct assignment n1[1] has value [14]:",
(new VBArray(Context("n1").Value).toArray ())[1]);
//Verify we can set the value of a single named value element
v[1] = 11;
Context("n1").Value = v;
WScript.Echo ("After direct assignment n1[1] has value [11]:",
(new VBArray(Context("n1").Value).toArray ())[1]);
//Verify we can set the value of an entire context value
Context("n1").Value = new Array (5, 34, 178871);
WScript.Echo ("After direct array assignment n1[1] has value [34]:",
(new VBArray(Context("n1").Value).toArray ())[1]);
arrayValue = new VBArray (Context("n1").Value).toArray();
str = "After direct assignment the entire value of n1 is [5,34,178871]: {";
for (var i = 0; i < arrayValue.length; i++)
{
str = str + arrayValue[i];
if (i < arrayValue.length - 1)
str = str + ", ";
}
str = str + "}"
WScript.Echo (str);
WScript.Echo ("");