您似乎有两种可能的方案想要结束。

Secario 1.将这两个脚本从视图中隐藏，您将在此处启动run.vbs，它将隐藏这两个脚本：

运行.vbs

Set oShell = CreateObject ("Wscript.Shell")
oShell.Run "D:getCmdPID.bat", 0, false

admin.bat

@echo off
title=mycmd
echo test
NET SESSION
IF %ERRORLEVEL% NEQ 0 GOTO ELEVATE
GOTO ADMINTASKS

:ELEVATE
CD /d %~dp0
MSHTA "javascript: var shell = new ActiveXObject('shell.application'); shell.ShellExecute('%~nx0', '', '', 'runas', 1);close();"
EXIT

:ADMINTASKS
::(Do whatever you need to do here)
pause
EXIT

getCmdPID.bat

@echo off
for /f "tokens=2 delims=," %%a in (
  'tasklist /v /fo csv ^| findstr /i "mycmd"'
) do (
  set "mypid=%%~a"
)
echo %mypid%
::here should be modifications
start admin.bat
pause

或者，在方案2中，您希望用户看到getCmDPID.bat文件，但隐藏admin.bat，但在这里，您需要以隐藏模式启动getCmdPID.bat file, which will call run.vbs and in turn will calladmin.bat。

运行.vbs

Set oShell = CreateObject ("Wscript.Shell")
oShell.Run "D:admin.bat", 0, false

admin.bat

@echo off
title=mycmd
echo test
NET SESSION
IF %ERRORLEVEL% NEQ 0 GOTO ELEVATE
GOTO ADMINTASKS

:ELEVATE
CD /d %~dp0
MSHTA "javascript: var shell = new ActiveXObject('shell.application'); shell.ShellExecute('%~nx0', '', '', 'runas', 1);close();"
EXIT

:ADMINTASKS
::(Do whatever you need to do here)
pause
EXIT

getCmdPID.bat

@echo off
for /f "tokens=2 delims=," %%a in (
  'tasklist /v /fo csv ^| findstr /i "mycmd"'
) do (
  set "mypid=%%~a"
)
echo %mypid%
::here should be modifications
"D:
un.vbs"
pause