Set Processes = GetObject("winmgmts://localhost") 
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process") 
myProc = False 
For Each Proc In myProcEnum 
    If Proc.Name = "notepad.exe" Then 
        myProc = True 
    End If 
Next 
If Not myProc Then 
    WScript.Echo "Что то я НЕ вижу что запущен Блокнот." & vbNewLine & "Ща я его запушу!..." 
    Set WshShell = CreateObject("WScript.Shell") 
    WshShell.Run "notepad.exe", 1, true 

End If