VBScriptを管理者権限で実行する方法

VBScript 実行時に管理者権限で再実行することで実現できます。

以下のコードを Shift-JIS か UTF-16 BOM エンコーディングで保存して実行します。(UTF8 は VBScript が対応していないので NG です)

Option Explicit
On Error Resume Next

' 引数がない場合、Script自身を再度、管理者権限で実行する
If Wscript.Arguments.Count = 0 Then
    ' 管理者として実行
    AppExecute "wscript.exe", """" & WScript.ScriptFullName & """" & " runas", "runas", True
    WScript.Quit
End If

' ここから管理者権限が必要な処理を記載
…

以上です～