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.
29 lines
673 B
29 lines
673 B
On Error Resume Next
|
|
|
|
Set S = GetObject("winmgmts:root/default")
|
|
|
|
Set C = S.Get
|
|
C.Path_.Class = "PUTCLASSTEST00"
|
|
Set P = C.Properties_.Add ("p", 19)
|
|
P.Qualifiers_.Add "key", true
|
|
C.Put_
|
|
|
|
Set C = GetObject("winmgmts:[locale=ms_409]!root/default:PUTCLASSTEST00")
|
|
|
|
Set I = C.SpawnInstance_
|
|
|
|
WScript.Echo "Relpath of new instance is", I.Path_.Relpath
|
|
I.Properties_("p") = 11
|
|
WScript.Echo "Relpath of new instance is", I.Path_.Relpath
|
|
|
|
Set NewPath = I.Put_
|
|
WScript.Echo "path of new instance is", NewPath.path
|
|
WScript.Echo "locale of new instance is", NewPath.locale
|
|
|
|
If Err <> 0 Then
|
|
WScript.Echo Err.Number, Err.Description
|
|
Err.Clear
|
|
End If
|
|
|
|
|
|
|