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.
62 lines
1.9 KiB
62 lines
1.9 KiB
'***************************************************************************
|
|
'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
|