バッチファイル(*.bat) を管理者として実行するための VBScript

runas.vbs

Set objShell=CreateObject("Shell.Application") 
   objShell.ShellExecute "cmd.exe", _
   """" & "/k e:\runas.bat" & """", _
   "", _
   "runas", _
   1

SYNTAX

Shell.ShellExecute( _
  ByVal sFile As BSTR, _
  [ ByVal vArguments As Variant ], _
  [ ByVal vDirectory As Variant ], _
  [ ByVal vOperation As Variant ], _
  [ ByVal vShow As Variant ] _
) As Integer

vOperation が肝で、ここに動詞"runas"を指定する。