雙擊VBS文件系統不會自動彈出UAC窗口是一個很大的問題，因為這大大限制了VBS的功能，很多事情都做不了，怎么解決呢？請看下面的代碼
復制代碼代碼如下:
For Each objOS in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
If InStr(objOS.Caption,"XP") = 0 Then
If WScript.Arguments.length = 0 Then
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
Call Main()
End If
Else
Call Main()
End If
Next
Sub Main()
MsgBox "UAC demon"
End Sub
這是我根據這個網站的代碼改寫的，判斷系統版本，如果是XP（普通用戶一般都是XP，如果是2003的話請自己改寫）則直接運行代碼，否則調用Shell.Application對象的ShellExecute方法，以管理員權限運行腳本。這樣，我們的VBS程序在Vista/Win7系統下也可以像在XP系統那樣為所欲為了。
原文：http://demon.tw/programming/vbs-uac-elevation.html
