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.
15 lines
315 B
15 lines
315 B
On Error Resume Next
|
|
|
|
Set Service = GetObject("winmgmts://./root/default")
|
|
Set aClass = Service.Get
|
|
aClass.Path_.Class = "SINGLETONTEST00"
|
|
aClass.Qualifiers_.Add "singleton", false
|
|
|
|
aClass.Qualifiers_("singleton").Value = true
|
|
|
|
aClass.Put_ ()
|
|
|
|
if Err <> 0 Then
|
|
WScript.Echo Err.Description
|
|
End if
|
|
|