16 lines
315 B
Plaintext
16 lines
315 B
Plaintext
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
|
|
|