запрета запуска нескольких копий одного приложения

//VB скрипт для запрета запуска нескольких копий одного приложения
 bitVersion =  "'64'"
    strPath =  "Microsoft\Windows\Start Menu\Programs\OBS Studio"
 strProcess =  "OBS Studio (64bit).lnk"
 runProcess = "'OBS Studio (64bit).lnk'"
strcomputer = "."

set objwmiservice = getobject("winmgmts:" _
    & "{impersonationlevel=impersonate}!\\" _
    & strcomputer & "\root\cimv2")

set colprocesses = objwmiservice.execquery( _
    "select name from win32_process " _
    & "where name = " & runProcess)

if colprocesses.count = 0 then
   set objshell = wscript.createobject("wscript.shell")
   set objenv = objshell.environment("process")
      If bitVersion = "'64'" Then
         ProgramFilesPath = "%ProgramData%"
          End If
    objshell.run """" + ProgramFilesPath + "\" + strPath + "\" + strProcess + ""
else
   msgbox "Копия программы уже запущена. ", 48, "Внимание"
end if