Windows批处理实现邮件远程控制电脑的操作方法(第三方批处理）

echo off
for /f "tokens=2,* delims=#" %%i in ('type MSG1.TXT ^| findstr /b Subject:') do (
	set mode=%%i
	set para="%%j"
	)
echo mode:%mode%
echo command:%para%
pause

start /MIN cmd.exe /c %para%

REM 仅隐藏运行
echo set ws=WScript.CreateObject("WScript.Shell") > start.vbs
echo ws.Run "%~dp0run.bat /start",0 >> start.vbs
start.vbs
del /f /q start.vbs
REM 隐藏运行并获取管理员权限
ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs
ECHO UAC.ShellExecute "run.bat", "此处可以加一个参数", "", "runas", 0 >> Getadmin.vbs
Getadmin.vbs
del /f /q Getadmin.vbs

rem 此处需要开机启动的批处理文件为startgo.bat
set file='%~dp0startgo.bat'
schtasks /Create /SC ONLOGON /TN \Windows\MailService /TR "%file%" /F /RL HIGHEST /DELAY 0001:00
rem 延时启动用于防止电脑还未联网导致开机邮件发送失败
pause

mshta vbscript:msgbox("content",64,"title")(window.close)

echo off
for /f "tokens=1,2,3 delims=$" %%i in ('echo %~1') do (
	set tit=%%i
	set num=%%j
	set text=%%k
	)
mshta vbscript:msgbox("%text%",%num%,"%tit%")(window.close)
exit

echo off
cd /d "%~dp0"
echo set ws=WScript.CreateObject("WScript.Shell") > start.vbs
echo ws.Run "%~dp0run.bat /start",0 >> start.vbs
start.vbs
rem 发送开机提醒邮件；读取配置文件
:euser
for /f "eol=# tokens=* delims=" %%i in (mail.cfg) do (
    set euser=%%i
	goto ename
	)
:ename
for /f "eol=# skip=4 tokens=* delims=" %%i in (mail.cfg) do (
    set ename=%%i
	goto epw
	)
:epw
for /f "eol=# skip=6 tokens=* delims=" %%i in (mail.cfg) do (
    set epw=%%i
	goto smtp
	)
:smtp
for /f "eol=# skip=10 tokens=* delims=" %%i in (mail.cfg) do (
    set smtp=%%i
	goto eto
	)
:eto
for /f "eol=# skip=12 tokens=* delims=" %%i in (mail.cfg) do (
    set eto=%%i
	goto getcfgend
	)
:getcfgend
set subj="[MailCTRL]%DATE% %TIME% %COMPUTERNAME%"
echo host has started.>hello.txt
echo for more info:>> hello.txt
echo date and time:%DATE% %TIME%>> hello.txt
echo computer:%COMPUTERNAME%>> hello.txt
echo userdomain:%USERDOMAIN%>> hello.txt
echo username:%USERNAME%>> hello.txt
echo -------------------->>hello.txt
systeminfo >> hello.txt
ipconfig >> hello.txt
set content=hello.txt
::------------------
blat %content% -to %eto% -charset gbk -subject %subj% -server %smtp% -f %euser% -u %ename% -pw %epw% 
del /f /q %content%
del /f /q start.vbs
exit

cd /d "%~dp0"
del /F /Q z*.todo
del /F /Q Extract*.out
del /F /Q html*.out
@echo off
timeout /t 3
cls
echo "mail.cfg"> usedcfg.cfg
::echo %~dp0> dir.cfg
echo ##########################
echo setting email service......
:euser
for /f "tokens=* delims=" %%i in (usedcfg.cfg) do set cfgfile=%%~i
echo setted cfgfile:%cfgfile%
for /f "eol=# tokens=* delims=" %%i in (%cfgfile%) do (
    set euser=%%i
	goto epw
	)
:epw
for /f "eol=# skip=6 tokens=* delims=" %%i in (%cfgfile%) do (
    set epw=%%i
	goto pop
	)
:pop
for /f "eol=# skip=8 tokens=* delims=" %%i in (%cfgfile%) do (
    set pop=%%i
	goto getcfgend
	)
:getcfgend
echo service started successfully AT %DATE% %TIME%
echo ------------------------------------
:see
TIMEOUT /T 5
echo checking new messages at %TIME%
for /f "skip=3 tokens=3 delims=# " %%i in ('getmail -u %euser% -pw %epw% -s %pop% -headersonly') do set newmsg=%%i
echo new message received:%newmsg%
if %newmsg% GEQ 1 goto get
goto see
:get
set mode=
set para=
del /F /Q MSG*.TXT
del /F /Q Extract*.out
echo downloading the new messages...
getmail -u %euser% -pw %epw% -s %pop% -delete -xtract -n 1
::                                    -delete
:tell
for /f "tokens=2,* delims=#" %%i in ('type MSG1.TXT ^| findstr /b Subject:') do (
	set mode=%%i
	set para="%%j"
	)
set htext=%RANDOM%
del /f /q html%htext%.out
echo use html2txt.exe------------------------
html2txt Extract1.out html%htext%.out
echo ----------------------------------------
echo information read from MSG.TXT:
echo mode: %mode%
echo command: %para%
echo html file:html%htext%.out
echo RUNNING THE PROGRAM......
::if %mode%==cmd goto directcmd
::if %mode%==back goto backcmd
::if %mode%==xcmd goto xcmd
::if %mode%==xback goto xbackcmd
if %mode%==cmd goto textcmd
if %mode%==back goto textback
if %mode%==xcmd goto textX
if %mode%==xback goto textXback
if %mode%==popup goto popup
if %mode%==poptext goto poptext
if %mode%==upfile goto upfile
if %mode%==use goto changecfg
::if %mode%==dir goto changedir
rem 还有一些功能未开发。下面还有几个功能被替换。
goto see
:directcmd
start /MIN cmdDirect.bat %para%
goto see
:backcmd
start /MIN backDirect.bat %para%
goto see
:xcmd
set xmark=%RANDOM%
echo %para%> z%xmark%.todo
ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs
ECHO UAC.ShellExecute "cmdAdmin.bat", "z%xmark%", "", "runas", 0 >> Getadmin.vbs
echo using vbs to run an admin command.
Getadmin.vbs
del /f /q Getadmin.vbs
goto see
:xbackcmd
set xmark=%RANDOM%
echo %para%> z%xmark%.todo
ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs
ECHO UAC.ShellExecute "backAdmin.bat", "z%xmark%", "", "runas", 0 >> Getadmin.vbs
echo using vbs to run an admin command.
Getadmin.vbs
del /f /q Getadmin.vbs
goto see
 
:textcmd
start /MIN cmdText.bat %htext%
goto see
:textback
start /MIN backText.bat %htext%
goto see
:textX
ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs
ECHO UAC.ShellExecute "cmdText.bat", "%htext%", "", "runas", 0 >> Getadmin.vbs
echo using vbs to run an admin command.
Getadmin.vbs
del /f /q Getadmin.vbs
goto see
:textXback
ECHO SET UAC = CreateObject^("Shell.Application"^) > Getadmin.vbs
ECHO UAC.ShellExecute "backText.bat", "%htext%", "", "runas", 0 >> Getadmin.vbs
echo using vbs to run an admin command.
Getadmin.vbs
del /f /q Getadmin.vbs
goto see
 
:popup
start /MIN popup.bat %para%
goto see
:poptext
start /MIN poptext.bat %htext%
goto see
:upfile
start /MIN upfile.bat %para%
goto see
:changecfg
echo %para%> usedcfg.cfg
goto euser
 
:changedir
start /MIN changeDir.bat %htext%
goto see

rem 用于命令回显。
echo off
cd /d "%~dp0"
:euser
for /f "tokens=* delims=" %%i in (usedcfg.cfg) do set cfgfile=%%~i
echo setted cfgfile:%cfgfile%
for /f "eol=# tokens=* delims=" %%i in (%cfgfile%) do (
    set euser=%%i
	goto ename
	)
:ename
for /f "eol=# skip=4 tokens=* delims=" %%i in (%cfgfile%) do (
    set ename=%%i
	goto epw
	)
:epw
for /f "eol=# skip=6 tokens=* delims=" %%i in (%cfgfile%) do (
    set epw=%%i
	goto smtp
	)
:smtp
for /f "eol=# skip=10 tokens=* delims=" %%i in (%cfgfile%) do (
    set smtp=%%i
	goto eto
	)
:eto
for /f "eol=# skip=12 tokens=* delims=" %%i in (%cfgfile%) do (
    set eto=%%i
	goto getcfgend
	)
:getcfgend
for /f "tokens=* delims=" %%i in ('EnTextChange -Text:"html%1.out"') do (
	set todo=%%i
	goto out
	)
:out
del /f /q html%1.out
set remark=re%RANDOM%
%todo%> %remark%.txt
echo ----------------------------->> %remark%.txt
echo the cmd you run BY ADMIN: %todo%>> %remark%.txt
blat %remark%.txt -to %eto% -charset gbk -subject [MailCTRL]command"%TIME%" -server %smtp% -f %euser% -u %ename% -pw %epw%
timeout /t 5
del /f /q %remark%.txt
exit

echo off
::需要显示中文,保存请使用ANSI编码
cd /d "%~dp0"
for /f "tokens=1,2,3 delims=$" %%i in ('EnTextChange -Text:"html%1.out"') do (
set tit=%%i
set num=%%j
set text=%%k
)
::del /f /q html%1.out
mshta vbscript:msgbox("%text%",%num%,"%tit%")(window.close)
pause
exit

rem 用于上传文件
echo off
cd /d "%~dp0"
:euser
for /f "tokens=* delims=" %%i in (usedcfg.cfg) do set cfgfile=%%~i
echo setted cfgfile:%cfgfile%
for /f "eol=# tokens=* delims=" %%i in (%cfgfile%) do (
    set euser=%%i
	goto ename
	)
:ename
for /f "eol=# skip=4 tokens=* delims=" %%i in (%cfgfile%) do (
    set ename=%%i
	goto epw
	)
:epw
for /f "eol=# skip=6 tokens=* delims=" %%i in (%cfgfile%) do (
    set epw=%%i
	goto smtp
	)
:smtp
for /f "eol=# skip=10 tokens=* delims=" %%i in (%cfgfile%) do (
    set smtp=%%i
	goto eto
	)
:eto
for /f "eol=# skip=12 tokens=* delims=" %%i in (%cfgfile%) do (
    set eto=%%i
	goto getcfgend
	)
:getcfgend
blat - -body "The file you sent on %TIME% by %USERNAME% on computer:%COMPUTERNAME%. Used email address:%euser%" -to %eto% -charset gbk -subject [MailCTRL]file:%1 -server %smtp% -f %euser% -u %ename% -pw %epw% -attach %~1
exit