[VBScript] コマンドラインから UAC 昇格 ref: http://qiita.com/zetamatta/items/f3310533fcd5f25e7f3f

please.vbs

Option Explicit
Dim program
If WScript.Arguments.Count <= 0 Then
    program = "CMD.EXE"
Else
    program = WScript.Arguments(0)
End If
Dim argv : argv = ""
If WScript.Arguments.Count >= 1 then
    Dim i
    For i=1 To WScript.Arguments.Count-1
        argv = argv & " " & WScript.Arguments(i)
    Next
End If
Dim shellApp : Set shellApp = CreateObject("Shell.Application")
shellApp.ShellExecute program,Trim(argv), "" , "runas"
Set shellApp = Nothing