复制代码 代码如下:

'以管理员身份运行程序的命令admin.vbs

Set objWMIServices = GetObject("winmgmts:{impersonationLevel=impersonate}!.rootcimv2")

Set objWbemObjectSet = objWMIServices.ExecQuery(_

"SELECT * FROM Win32_Process WHERE " &_

"ExecutablePath='" & Replace(WScript.FullName,"","") & "' and " & _

"CommandLine LIKE '%" & WScript.ScriptName & "%'")

for each objWbemObject in objWbemObjectSet

cmdline = objWbemObject.CommandLine

next

if WScript.Arguments.Count then

file = WScript.Arguments(0)

if file="/?" then

call ShowHelp()

WScript.Quit

end if

Set RegEx = new RegExp

RegEx.IgnoreCase = true

RegEx.Global = true

RegEx.Pattern = "|/|||(|)|[|]|{|}|^|$|.|*|?|+"

temp1 = RegEx.Replace(WScript.ScriptName, "$&")

temp2 = RegEx.Replace(file, "$&")

RegEx.Global = false

RegEx.Pattern = "^.*?" & temp1 & "[""s]*" & temp2 & """?s*"

args = RegEx.Replace(cmdline, "")

'WScript.Echo file, args

else

file = "cmd.exe"

'args = "/k cd /d """ & CreateObject("WScript.Shell").CurrentDirectory & Chr(34)

end if

'核心代码

Set sh = CreateObject("Shell.Application")

call sh.ShellExecute( file, args, , "runas" )

function ShowHelp()

dim HelpStr

HelpStr = "以管理员身份运行程序。" & vbCrLf _

& vbCrLf _

& WScript.ScriptName & " [program] [parameters]..." & vbCrLf _

& vbCrLf _

& "program 要运行的程序" & vbCrLf _

& "parameters 传递给 program 的参数" & vbCrLf _

& vbCrLf

WScript.Echo HelpStr

end function

建议放到%SystemRoot%system32目录下，对喜欢玩cmd而且操作系统是win7的人有点用处。

偶尔用到某些命令(如reg.exe)需要管理员权限，直接在cmd中 admin reg add ... 即可。