Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run("c:\Windows\notepad.exe")
WScript.Quit