czjt1234

'在系统为Win7或Vista时提升VBS脚本权限
Sub DoUACRunScript()
       
        Dim objOS
        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
                        End If
                End If
        Next
       
End Sub