vbs 的 VBS和UAC用戶賬戶控制實現代碼

雖然不少人以爲這個功能很雞肋，可是以VBS的角度來看，UAC仍是多多少少有點用的。在UAC的限制下，直接雙擊VBS文件只能在標準用戶權限下運行，不少事情是作不了的，好比複製自身到windows文件夾，或者寫入註冊表的開機啓動項等等。在XP下很是猖獗的暴風一號病毒，放到Win7下也就只能改改文件夾屬性爲隱藏罷了，其餘什麼都作不了。固然了，一些不明真相的同窗喜歡把UAC功能關掉，而後裝個叫什麼359仍是361的所謂安全軟件。我也很差多說什麼，否則會遭到圍觀的。

雙擊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系統那樣隨心所欲了。