I don't know if anyone has posted this. This script elevates your program without using temporary VBScript file or PowerShell.

elevate.bat

@if (@X == @Y) @end /*
@echo off
setlocal enableextensions enabledelayedexpansion
set rargs=
for /f usebackq^ tokens^=1*^ eol^= %%a in ('%*') do set rargs=%%b
cscript //nologo //e:jscript "%~f0" %1
exit /b
*/
WScript.CreateObject("Shell.Application").ShellExecute(WScript.Arguments(0), WScript.CreateObject("WScript.Shell").Environment("Process").Item("rargs"), "", "runas");