小編給大家分享一下admin.vbs 以管理員身份運(yùn)行程序的vbs命令有哪些，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

伽師ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書(shū)未來(lái)市場(chǎng)廣闊！成為創(chuàng)新互聯(lián)公司的ssl證書(shū)銷(xiāo)售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：13518219792（備注：SSL證書(shū)合作）期待與您的合作！

1、以管理員身份運(yùn)行程序的命令admin.vbs，用來(lái)提升權(quán)限去運(yùn)行一些cmd命令等

'以管理員身份運(yùn)行程序的命令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 = "以管理員身份運(yùn)行程序。" & vbCrLf _ 
& vbCrLf _ 
& WScript.ScriptName & " [program] [parameters]..." & vbCrLf _ 
& vbCrLf _ 
& "program 要運(yùn)行的程序" & vbCrLf _ 
& "parameters 傳遞給 program 的參數(shù)" & vbCrLf _ 
& vbCrLf 
WScript.Echo HelpStr 
end function

建議放到%SystemRoot%\system32目錄下，對(duì)喜歡玩cmd而且操作系統(tǒng)是win7的人有點(diǎn)用處。
偶爾用到某些命令(如reg.exe)需要管理員權(quán)限，直接在cmd中 admin reg add ... 即可。

2、如果是想用vbs以管理員權(quán)限運(yùn)行自身需要如下命令

將其添加到文件開(kāi)頭

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文件添加以管理員權(quán)限運(yùn)行選項(xiàng)

單擊“開(kāi)始”按鈕，在搜索輸入框中輸入“regedit”并回車(chē)運(yùn)行打開(kāi)注冊(cè)表編輯器，依次單擊轉(zhuǎn)到
“HKEY_CLASSES_ROOT\VBSFile\Shel”項(xiàng)，單擊“編輯”菜單，指向“新建”，選擇“項(xiàng)”，新建一個(gè)名為“runas”的項(xiàng)，然后再重復(fù)新建項(xiàng)操作，在其下再建立一個(gè)“command”項(xiàng)，單擊“command”項(xiàng)，在右側(cè)窗口上雙擊修改“默認(rèn)”值的數(shù)據(jù)，將其數(shù)據(jù)修改為：
C:\windows\system32\wScript.exe “%1” %*
再單擊“編輯”菜單，指向“新建”，選擇“字符串值”，新建一個(gè)名為“IsolatedCommand”的值并雙擊該值，將其數(shù)據(jù)也改為：
C:\windows\system32\wScript.exe “%1” %*
確認(rèn)無(wú)誤后，關(guān)閉注冊(cè)表編輯器，當(dāng)你在資源管理器上用鼠標(biāo)右鍵單擊VBS文件時(shí)，經(jīng)常會(huì)發(fā)現(xiàn)多出了一個(gè)“以管理員身份運(yùn)行”的選項(xiàng)，選擇它即可讓腳本以足夠的權(quán)限運(yùn)行。

4、VBS使用管理員權(quán)限啟動(dòng)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是無(wú)法傳遞參數(shù)的

5、自動(dòng)以管理員身份運(yùn)行批處理(bat)文件

在日常運(yùn)維工作中，為方便對(duì)windows用戶進(jìn)行系統(tǒng)安裝或配置等，使用Windows自帶的批處理(bat文件)是一種最為簡(jiǎn)單快速的方法。

但是，批處理腳本不會(huì)默認(rèn)已管理員身份運(yùn)行，一般情況下，我會(huì)將腳本命名為"XXXXXX(請(qǐng)右鍵點(diǎn)擊，用管理員身份運(yùn)行!).bat"，但總有些用戶會(huì)忽略這條提示，直接運(yùn)行，此時(shí)由于權(quán)限不足，導(dǎo)致腳本運(yùn)行失敗。

我們可以使用一種變通的方法，讓bat啟動(dòng)時(shí)，首先調(diào)用vbs腳本，通過(guò)vbs腳本，以管理員身份調(diào)用該bat的 runas 部分

我們的腳本可以寫(xiě)在runas 下，這樣就點(diǎn)擊該bat腳本，就可以已管理員身份運(yùn)行了

示例代碼如下

@ECHO OFF
setlocal EnableDelayedExpansion
color 3e
title 添加服務(wù)配置
 
PUSHD %~DP0 & cd /d "%~dp0"
%1 %2
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :runas","","runas",1)(window.close)&goto :eof
:runas
 
::填寫(xiě)自己的腳本
 
echo 執(zhí)行完畢,任意鍵退出
 
pause >nul
exit

以上是“admin.vbs 以管理員身份運(yùn)行程序的vbs命令有哪些”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)站題目：admin.vbs以管理員身份運(yùn)行程序的vbs命令有哪些-創(chuàng)新互聯(lián)
網(wǎng)頁(yè)路徑：http://aaarwkj.com/article40/ccjeho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供搜索引擎優(yōu)化、品牌網(wǎng)站設(shè)計(jì)、微信公眾號(hào)、外貿(mào)建站、網(wǎng)站營(yíng)銷(xiāo)、網(wǎng)站內(nèi)鏈

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)