Dim message,parameter,objarguments, fs

set fs = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objarguments = WScript.Arguments

parameter= objarguments(0) * 60 + objarguments(1) -1
	
scriptname = Wscript.ScriptFullName
scriptpath = fs.getparentfoldername(scriptname)
Set f = fs.GetFolder(scriptpath)
Set file = f.CreateTextFile("Timer.txt", True)
message =  "" & eval(parameter)
file.write ""& message &""