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.
20 lines
540 B
20 lines
540 B
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
|