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系统那样随心所欲了。