' Run a script in Elevated Mode
file2run      = WScript.Arguments.Item(0)
RASscript      = "C:\Windows\RunAsSmartscreen.vbs"
Set objShell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject") 
objShell.ShellExecute "wscript.exe", RASscript & " " & Chr(34) & file2run & Chr(34), "", "runas", 1
WScript.Quit