Set objShell = CreateObject("WScript.Shell")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'GiderosStudio.exe'")
If colProcesses.Count = 0 Then
    Wscript.Echo "Gideros Studio is not running."
	
	objShell.Run ("GiderosStudio") 'run

	wscript.echo "Starting..."
	'wait til it opens, 2 seconds should be enough time

	WScript.Sleep 2000
	objShell.SendKeys"%(f)"		'file menu
	objShell.SendKeys "{DOWN}"
	objShell.SendKeys "{DOWN}"
	objShell.SendKeys "{ENTER}"
	objShell.SendKeys "{ENTER}"	'open most recent project

Else
	objShell.AppActivate (" - Gideros")	' get focus for sendkeys
End If
	

objShell.SendKeys"^(r)"