WHY

先用 vbs 获取管理员权限，vbs 调用的 bat 也就以管理员身份运行了。
Test.vbs

If WSH.Arguments.Count = 0 Then
    CreateObject("Shell.Application").ShellExecute "WScript.exe", chr(34) & WSH.ScriptFullName&chr(34) & " arg",, "runas", 1
    WSH.Quit
End If

bat = Left(WSH.ScriptFullName, InStrRev(WSH.ScriptFullName,"\")) & "1.bat"
CreateObject("WScript.Shell").Run chr(34) & bat & chr(34), 0
复制代码

WHY

回复 5# 老刘1号


    不错，以前没注意这些细节，可以省掉参数判断，省掉 Run 了。
官方文档在这里：https://docs.microsoft.com/en-us ... /shell-shellexecute
不过 bat 放在第2个参数可能需要指定绝对路径
Test.vbs

bat = Left(WSH.ScriptFullName, InStrRev(WSH.ScriptFullName,"\")) & "1.bat"
CreateObject("Shell.Application").ShellExecute "cmd.exe", "/c """ & bat & """", , "runas", 0
复制代码

更直接的办法：
Test.vbs

CreateObject("Shell.Application").ShellExecute "1.bat", , , "runas", 0
复制代码

1.bat

@echo off
pushd "%~dp0"
echo;Your Code
复制代码

WHY

回复 7# hentai87


    假设你的批处理位于 %AppData%\abc\1.bat
vbs

bat = CreateObject("WScript.Shell").SpecialFolders("AppData") + "\abc\1.bat"
CreateObject("Shell.Application").ShellExecute bat, , , "runas", 0
复制代码