media center auto restart

Hi, and a Merry Xmas to all

I've got vista64 running media center that regularly crashes, with a message box "restart or terminate". Is there built in way to auto restart unnatended, like I can with a service, without resorting to vbscript running a loop.

:;args
dim arg
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
arg="f2.vbs"
arg=arg & " " & objArgs(0)
For I = 1 to objArgs.Count - 1
arg = arg & " " & objArgs(I)
Next
Return = WshShell.Run(arg, 0, False)
set WshShell = Nothing

::runner
dim win, arg
Set WshShell = CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
win=objArgs(0)
arg=objArgs(1)
Set objArgs = WScript.Arguments
For I = 2 to objArgs.Count - 1
arg = arg & " " & objArgs(I)
Next
Do While True
WshShell.Run arg, win, True
Loop

Best regards

Mr.G