vbs run as administrator win7

vba vbs ps bat regex xml

If WScript.Arguments.Named.Exists("elevated") = False Then

'Launch the script again as administrator

CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1

WScript.Quit

Else

'Change the working directory from the system32 folder back to the script's folder.

Set oShell = CreateObject("WScript.Shell")

oShell.CurrentDirectory = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)

MsgBox "Now running with elevated permissions"

End If