21 lines
540 B
Plaintext
21 lines
540 B
Plaintext
on error resume next
|
|
set s = GetObject("winmgmts:root\default")
|
|
Set t_Class = s.Get
|
|
t_Class.Path_.Class = "EXECNQUERYTEST01"
|
|
Set Property = t_Class.Properties_.Add ("p", 19)
|
|
Property.Qualifiers_.Add "key", true
|
|
t_Class.Put_
|
|
|
|
set e = s.ExecNotificationQuery _
|
|
("select * from __instancecreationevent where targetinstance isa 'EXECNQUERYTEST01'")
|
|
|
|
if err <> 0 then
|
|
Wscript.Echo err.number, err.description, err.source
|
|
end if
|
|
|
|
c = e.Count
|
|
|
|
if err <> 0 then
|
|
Wscript.Echo err.number, err.description, err.source
|
|
end if
|