返回列表 发帖
hentai87

Rank: 3Rank: 3

帖子
159 
积分
203 
技术
0  
捐助
0  
注册时间
2016-7-19 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2019-3-5 21:36 | 只看该作者

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

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

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

smss

Rank: 5Rank: 5

帖子
631 
积分
885 
技术
51  
捐助
0  
注册时间
2018-11-29 
10楼
发表于 2021-5-23 17:26 | 只看该作者
可以带参数 我也没搞明白
%2 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c "^&chr(34)^&"%~2"^&chr(34)^&" ::","%cd%","runas",1)(window.close)&&exit
::%2 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c "^&chr(34)^&"%~0"^&chr(34)^&" "^&chr(34)^&"%~1"^&chr(34)^&" ::","%cd%","runas",1)(window.close)&&exitCOPY

TOP

hentai87

Rank: 3Rank: 3

帖子
159 
积分
203 
技术
0  
捐助
0  
注册时间
2016-7-19 
9楼
发表于 2019-3-6 22:12 | 只看该作者
本帖最后由 hentai87 于 2019-3-6 22:31 编辑

回复 8# WHY


有用了，谢谢

TOP

WHY

Rank: 6Rank: 6

帖子
1496 
积分
3298 
技术
573  
捐助
0  
注册时间
2015-7-19 
8楼
发表于 2019-3-6 20:24 | 只看该作者
回复 7# hentai87


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

评分人数

TOP

hentai87

Rank: 3Rank: 3

帖子
159 
积分
203 
技术
0  
捐助
0  
注册时间
2016-7-19 
7楼
发表于 2019-3-6 19:51 | 只看该作者
回复 6# WHY

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

TOP

WHY

Rank: 6Rank: 6

帖子
1496 
积分
3298 
技术
573  
捐助
0  
注册时间
2015-7-19 
6楼
发表于 2019-3-6 19:24 | 只看该作者
回复 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", 0COPY
更直接的办法：
Test.vbs
CreateObject("Shell.Application").ShellExecute "1.bat", , , "runas", 0COPY
1.bat
@echo off
pushd "%~dp0"
echo;Your CodeCOPY
1

评分人数

TOP

老刘1号

Rank: 8Rank: 8

帖子
1000 
积分
1791 
技术
205  
捐助
50  
注册时间
2016-4-17 
5楼
发表于 2019-3-6 12:40 | 只看该作者
CreateObject("Shell.Application").ShellExecute "cmd.exe", "/c 1.bat",, "runas", 0
1

评分人数

TOP

ivor

Rank: 6Rank: 6

帖子
979 
积分
3381 
技术
172  
捐助
40  
注册时间
2012-1-7 
4楼
发表于 2019-3-6 09:13 | 只看该作者
本帖最后由 ivor 于 2019-10-12 08:37 编辑

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

TOP

zaqmlp

Rank: 5Rank: 5

帖子
974 
积分
1275 
技术
94  
捐助
0  
注册时间
2017-10-30 
3楼
发表于 2019-3-5 23:43 | 只看该作者
shellexecute的最后一个参数也可以隐藏
1

评分人数

提供bat代写，为你省时省力省事，支付宝扫码头像支付
微信: unique2random

TOP

WHY

Rank: 6Rank: 6

帖子
1496 
积分
3298 
技术
573  
捐助
0  
注册时间
2015-7-19 
2楼
发表于 2019-3-5 23:13 | 只看该作者
先用 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), 0COPY
2

评分人数

TOP

返回列表