@echo off
setlocal enabledelayedexpansion
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("""%~f0""","::",,"runas",1)(close)&exit /b
cd /d "%~dp0"
::先清理所有远程连接
net use * /del /y
::通过服务器访问IP，账户和密码自动连到接服务器。（其中ip后面的e,指的是服务器共享盘符。）
net use x: \\192.168.1.180\ipe$ "123456" /user:"admin"
cls
for /f "tokens=1,*" %%l in ('getmac ^|find /i "-"') do set mac=%%l
set today=%date:~0,4%-%date:~5,2%-%date:~8,2%
set tome=%time:~0,2%-%time:~3,2%-%time:~6,2%
::自动拷贝本地图片到服务器E盘指定目录，并重新命名。(此时如果不加f|，代码会停止并询问拷贝的目标是文件还是目录，加上后会自动确认是文件。)
@echo f | copy "D:\Desktop\0000.jpg" "\\192.168.1.180\e\test\%today%_%tome%_%mac%.jpg"
set tpme=%time:~0,2%:%time:~3,2%:%time:~6,2%
::显示一段文字信息，并写入到服务器指定文件中。
echo,%today%_%tpme%_%mac%.jpg 配置记录上传成功 >>\\192.168.1.180\e\test\Key.log >nul 2>nul
::将本地文本合并到服务器端的文本，并累加到文件后面。
@echo y |copy \\192.168.1.180\e\test\log.log +.\log.log \\192.168.1.180\e\test\log.log >nul 2>nul
::断开连接状态
net use * /del /y >nul 2>nul
