I've gone through the link and converted it in to a VBScript file, which you can easily run. Note that the computer will automatically restart.
Code:
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill, strServKill, strName
strComputer = "."
strName = "'Windows Media Center Receiver'"
call KillServ (strComputer, strName, strServKill)
strName = "'Windows Media Center Scheduler'"
call KillServ (strComputer, strName, strServKill)
strName = "'ehmsas.exe'"
call KillProc (strComputer, strName, strProcessKill)
strName = "'ehrecvr.exe'"
call KillProc (strComputer, strName, strProcessKill)
strName = "'ehsched.exe'"
call KillProc (strComputer, strName, strProcessKill)
strName = "'ehshell.exe'"
call KillProc (strComputer, strName, strProcessKill)
strName = "'ehtray.exe'"
call KillProc (strComputer, strName, strProcessKill)
strName = "'mcGlidHost.exe'"
call KillProc (strComputer, strName, strProcessKill)
Set objFSO = CreateObject ("Scripting.FileSystemObject")
objFSO.DeleteFolder ("c:\ProgramData\Microsoft\eHome\mcepg*")
objFSO.DeleteFile ("c:\ProgramData\Microsoft\eHome\mcepg*")
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\WINDOWS\system32\shutdown.exe -r -t 0"
WScript.Quit
Sub KillServ (strComputer, strName, strServKill)
strServKill = strName
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name="& strServKill"} Where " _
& "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
objService.StopService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = " & strServKill )
For each objService in colServiceList
errReturn = objService.StopService()
Next
End Sub
Sub KillProc (strComputer, strName, strProcessKill)
strProcessKill = strName
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
End Sub
MediaCenterReset.vbs