VBScript 実行時に管理者権限で再実行することで実現できます。
以下のコードを Shift-JIS か UTF-16 BOM エンコーディングで保存して実行します。(UTF8 は VBScript が対応していないので NG です)
vbs
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
' ここから管理者権限が必要な処理を記載
…
以上です～