批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[系统相关] 【已解决】VBS隐藏启动bat,bat自动获取管理员则隐藏失效,怎么解决

本帖最后由 hentai87 于 2019-3-7 12:43 编辑

VBS隐藏启动bat,bat自动获取管理员则隐藏失效,怎么解决

VBS:
CreateObject("WScript.Shell").Run "1.bat",0

bat加入以下代码自动获取管理员,cmd会启动2次,用VBS隐藏bat只会隐藏第一次的黑色窗口
bat:
cd /d %~dp0
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit

先用 vbs 获取管理员权限,vbs 调用的 bat 也就以管理员身份运行了。
Test.vbs
  1. If WSH.Arguments.Count = 0 Then
  2.     CreateObject("Shell.Application").ShellExecute "WScript.exe", chr(34) & WSH.ScriptFullName&chr(34) & " arg",, "runas", 1
  3.     WSH.Quit
  4. End If
  5. bat = Left(WSH.ScriptFullName, InStrRev(WSH.ScriptFullName,"\")) & "1.bat"
  6. CreateObject("WScript.Shell").Run chr(34) & bat & chr(34), 0
复制代码
1

评分人数

TOP

shellexecute的最后一个参数也可以隐藏
1

评分人数

提供bat代写,为你省时省力省事,支付宝扫码头像支付
QQ: 956535081

TOP

本帖最后由 ivor 于 2019-10-12 08:37 编辑

把代码放到批处理第一行,调用自身管理员身份运行
  1. %1 PowerShell -Command "& {start-process '%0' -Verb RunAs -Args 'rem'}" & exit
复制代码

TOP

CreateObject("Shell.Application").ShellExecute "cmd.exe", "/c 1.bat",, "runas", 0
1

评分人数

TOP

回复 5# 老刘1号


    不错,以前没注意这些细节,可以省掉参数判断,省掉 Run 了。
官方文档在这里:https://docs.microsoft.com/en-us ... /shell-shellexecute
不过 bat 放在第2个参数可能需要指定绝对路径
Test.vbs
  1. bat = Left(WSH.ScriptFullName, InStrRev(WSH.ScriptFullName,"\")) & "1.bat"
  2. CreateObject("Shell.Application").ShellExecute "cmd.exe", "/c """ & bat & """", , "runas", 0
复制代码
更直接的办法:
Test.vbs
  1. CreateObject("Shell.Application").ShellExecute "1.bat", , , "runas", 0
复制代码
1.bat
  1. @echo off
  2. pushd "%~dp0"
  3. echo;Your Code
复制代码
1

评分人数

TOP

回复 6# WHY

似乎不支持使用%AppData%这种路径。。。还挺重要的,因为用户名会变

TOP

回复 7# hentai87


    假设你的批处理位于 %AppData%\abc\1.bat
vbs
  1. bat = CreateObject("WScript.Shell").SpecialFolders("AppData") + "\abc\1.bat"
  2. CreateObject("Shell.Application").ShellExecute bat, , , "runas", 0
复制代码
1

评分人数

TOP

本帖最后由 hentai87 于 2019-3-6 22:31 编辑

回复 8# WHY


有用了,谢谢

TOP

返回列表