Launch process after delay if not running

Dim procName
Dim waitSeconds
procName = "Notepad.exe"
waitSeconds = 30

WScript.Sleep waitSeconds*1000
sComputerName = "."
Set objWMIService = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")
sQuery = "SELECT * FROM Win32_Process"
Set objItems = objWMIService.ExecQuery(sQuery)
'iterate all item(s)
Dim procRunning
procRunning = False
For Each objItem In objItems
  If objItem.Name = procName Then
     procRunning = True
  End If
   'WScript.Echo "Process [Name:" & objItem.Name & "]"
Next

If procRunning = False Then
   CreateObject("WScript.Shell").Run "%comspec% /c start "&procName, 0, True
End If