1、以管理員身份運行程序的命令admin.vbs，用來提升權限去運行一些cmd命令等
'以管理員身份運行程序的命令admin.vbs
Set objWMIServices = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
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 ... 即可。
2、如果是想用vbs以管理員權限運行自身需要如下命令
將其添加到文件開頭
Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.Length = 0 Then
Set ObjShell = CreateObject("Shell.Application")
ObjShell.ShellExecute "wscript.exe" _
, """" WScript.ScriptFullName """ RunAsAdministrator", , "runas", 1
WScript.Quit
End if
3、Windows 10 為VBS文件添加以管理員權限運行選項
單擊“開始”按鈕，在搜索輸入框中輸入“regedit”并回車運行打開注冊表編輯器，依次單擊轉到
“HKEY_CLASSES_ROOT\VBSFile\Shel”項，單擊“編輯”菜單，指向“新建”，選擇“項”，新建一個名為“runas”的項，然后再重復新建項操作，在其下再建立一個“command”項，單擊“command”項，在右側窗口上雙擊修改“默認”值的數據，將其數據修改為：
C:\windows\system32\wScript.exe “%1” %*
再單擊“編輯”菜單，指向“新建”，選擇“字符串值”，新建一個名為“IsolatedCommand”的值并雙擊該值，將其數據也改為：
C:\windows\system32\wScript.exe “%1” %*
確認無誤后，關閉注冊表編輯器，當你在資源管理器上用鼠標右鍵單擊VBS文件時，經常會發現多出了一個“以管理員身份運行”的選項，選擇它即可讓腳本以足夠的權限運行。
4、VBS使用管理員權限啟動BAT
Set objShell = CreateObject(“WScript.Shell”)
strPath = Replace(WScript.ScriptFullName, 文件名, “”)
objShell.Run("runas /user:administrator " strPath “cmd.Bat”)
WScript.Sleep 1000
objShell.SendKeys “password{ENTER}”
WScript.Sleep 1000
注意：runas是無法傳遞參數的
5、自動以管理員身份運行批處理(bat)文件
在日常運維工作中，為方便對windows用戶進行系統安裝或配置等，使用Windows自帶的批處理(bat文件)是一種最為簡單快速的方法。
但是，批處理腳本不會默認已管理員身份運行，一般情況下，我會將腳本命名為"XXXXXX(請右鍵點擊，用管理員身份運行!).bat"，但總有些用戶會忽略這條提示，直接運行，此時由于權限不足，導致腳本運行失敗。
我們可以使用一種變通的方法，讓bat啟動時，首先調用vbs腳本，通過vbs腳本，以管理員身份調用該bat的 runas 部分
我們的腳本可以寫在runas 下，這樣就點擊該bat腳本，就可以已管理員身份運行了
示例代碼如下
@ECHO OFF
setlocal EnableDelayedExpansion
color 3e
title 添加服務配置
PUSHD %~DP0 cd /d "%~dp0"
%1 %2
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :runas","","runas",1)(window.close)goto :eof
:runas
::填寫自己的腳本
echo 執行完畢,任意鍵退出
pause >nul
exit
以上就是admin.vbs 以管理員身份運行程序的vbs命令的詳細內容，更多關于管理員身份運行程序的資料請關注腳本之家其它相關文章！
