Run Batch Script As Admin [VBS]

[[-]] VBS/Batch - Run Script As Admin [[-]]

VBS File:
Set objShell = CreateObject("Shell.Application")
Set objShellShell = CreateObject("WScript.Shell")
strScriptPath = objShellShell.CurrentDirectory & "\replace with your file name.bat"

objShell.ShellExecute "cmd.exe", "/c """ & strScriptPath & """", "", "runas", 1

Save this as RunAsAdmin.vbs. Then, create a batch script to run this.

For example:
@echo off
RunAsAdmin.vbs >nul
exit