strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
    If colProcessList.Count = 0 Then
	Dim WSHShell
	Set WSHShell = WScript.CreateObject("WScript.Shell")
	WSHShell.Run "notepad.exe", 1, false
	Set WSHShell = Nothing
	WSCRIPT.QUIT(0)
    End If