WSH(vbs, jse)を管理者権限で実行する

program

http://brainremix.blogspot.jp/2010/05/vbscript-and-uac-elevation.html

' 管理者権限に昇格
' WScript.Arguemnts.Count = 0:GUI 1:CUI
do while WScript.Arguments.Count = 0 and WScript.Version >= 5.7

  ' Check WScript5.7~ and Vista~
  Set wmi = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
  Set os = wmi.ExecQuery("SELECT *FROM Win32_OperatingSystem")
  For Each value in os
    if left(value.Version, 3) < 6.0 then exit do  'Exit if not vista
  Next
 
  ' Run this script as admin.
  Set sha = CreateObject("Shell.Application")
  sha.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ uac", "", "runas"
 
  WScript.Quit
loop

' todo:
'【ここに管理者権限で実行したい処理を書く】