windows-server-2003/admin/wmi/wbem/scripting/test/vbscript/stress/simpleprop.vbs

'***************************************************************************
'This script tests the manipulation of property values, in the case that the
'property is a not an array type
'***************************************************************************
On Error Resume Next
while true
Set Service = GetObject("winmgmts:root/default")


Set Class = Service.Get()
Class.Path_.Class = "SIMPLEPROPTEST00"
Set Property = Class.Properties_.Add ("p1", 19)
Property.Value = 12567
WScript.Echo "The initial value of p1 is [12567]:", Class.Properties_("p1")

'****************************************
'First pass of tests works on non-dot API
'****************************************

WScript.Echo ""
WScript.Echo "PASS 1 - Use Non-Dot Notation"
WScript.Echo ""

'Verify we can report the value of an element of the property value
v = Class.Properties_("p1")
WScript.Echo "By indirection p1 has value [12567]:",v

'Verify we can report the value directly
WScript.Echo "By direct access p1 has value [12567]:", Class.Properties_("p1")

'Verify we can set the value of a single property value element
Class.Properties_("p1") = 234
WScript.Echo "After direct assignment p1 has value [234]:", Class.Properties_("p1")

'****************************************
'Second pass of tests works on dot API
'****************************************

WScript.Echo ""
WScript.Echo "PASS 2 - Use Dot Notation"
WScript.Echo ""

'Verify we can report the value of a property using the "dot" notation
WScript.Echo "By direct access p1 has value [234]:", Class.p1

'Verify we can report the value of a property using the "dot" notation
v = Class.p1
WScript.Echo "By indirect access p1 has value [234]:", v

'Verify we can set the value using dot notation
Class.p1 = -1
WScript.Echo "By direct access via the dot notation p1 has been set to [-1]:", Class.p1


Class.Put_ ()

if Err <> 0 Then
	WScript.Echo Err.Description
	Err.Clear
End if

wend