'  This script file is called rather than using the   Start,  Shutdown method.
'
'
	Dim WshShell

	Set WshShell = WScript.CreateObject ("WScript.Shell")

'	NOTE:  Change the file locations in the following line to match your system.
	WshShell.Run "E:\PowerTools\PTToy\PTToy.exe  E:\PowerTools\PTToy\Heater.toy"
'
'
'	Need a delay in here
'
'
	delay (2) 'call delay (seconds)
	MsgBox x & " seconds" 'done after x seconds

	set WshShell = wscript.CreateObject("Shell.Application")

'	NOTE:  Remove the apostrophe (') at the beginning of the next line, to enable shutdown of Windows
'	WshShell.ShutdownWindows

Sub delay(x)
	Dim starttime 'dim the vars

	starttime = timer 'get the origin time
	Do until round(timer) = round(starttime) + x 
		'wait until timer = startime + x
	loop
End Sub