[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
hentai87

Rank: 3Rank: 3

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

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

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

VBS：
  1. CreateObject("WScript.Shell").Run "1.bat",0
复制代码
bat加入以下代码自动获取管理员，cmd会启动2次，用VBS隐藏bat只会隐藏第一次的黑色窗口
bat：
  1. cd /d %~dp0

  2. %1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
复制代码
收藏 分享

WHY

Rank: 6Rank: 6

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

  6. bat = Left(WSH.ScriptFullName, InStrRev(WSH.ScriptFullName,"\")) & "1.bat"

  7. CreateObject("WScript.Shell").Run chr(34) & bat & chr(34), 0
复制代码
2

评分人数

TOP

zaqmlp

Rank: 5Rank: 5

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

评分人数

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

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. %1 PowerShell -Command "& {start-process '%0' -Verb RunAs -Args 'rem'}" & exit
复制代码

TOP

老刘1号

Rank: 8Rank: 8

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

评分人数

TOP

WHY

Rank: 6Rank: 6

帖子
1440 
积分
3185 
技术
554  
捐助
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
  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

hentai87

Rank: 3Rank: 3

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

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

TOP

WHY

Rank: 6Rank: 6

帖子
1440 
积分
3185 
技术
554  
捐助
0  
注册时间
2015-7-19 
8楼
发表于 2019-3-6 20:24 | 只看该作者
回复 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

Rank: 3Rank: 3

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

回复 8# WHY


有用了，谢谢

TOP

smss

Rank: 5Rank: 5

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

  2. ::%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)&&exit
复制代码

TOP

返回列表