@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
xcopy ".\RoomIt.bat" "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\" /y