@echo off

------------------------------------------------------------------------------------
for /f "tokens=15 delims= " %%i in ('ipconfig ^| find /i "IP Address"') do set i=%%i
for /f "tokens=1,2,3 delims=." %%i in ("%i%") do (set a=%%i.%%j.%%k)

echo %a%

set ipp=10

------------------------------------------------
if "%a%" == "192.168.9"   goto :next9
goto :next

------------------------------
:next9
set ipp=20

------------------------------
:next
echo %ipp%

echo 如何将这里的ipp变量值，传送到zcom.bat文件里面？


------------------------------------------------------------------------------------
for /f "delims=:" %%i in ('findstr /n "^:zcom-copy$" "%~f0"') do (
    more +%%i "%~f0" > c:\zcom.bat
)


copy /y c:\zcom.bat "%userprofile%\「开始」菜单\程序\启动"
ping 127.0.0.1 -n 5 >nul 2>nul


exit






——————————————————————————————————————————————
:zcom-copy
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit
:begin
rem 下边开始写批处代码了

ping 127.0.0.1 -n %ipp% >nul 2>nul

echo 如何将最开始的ipp变量值，传送到这里来？
。。。。其他bat代码。。。。
复制代码

/*&cls
@echo off
set test=测试
for /l %%a in (1 1 5) do set /a n+=%%a
echo;-----------------------------------------------------------------
(for /f "delims=:" %%囧 in ('findstr /n "^:ExtraCodes$" "%~f0"') do (
    rem 调用js"传参" %test%和%n%
    more +%%囧 "%~f0"|cscript -nologo -e:jscript "%~f0" "%%test%%|%test%" "%%n%%|%n%"
))>"生成.bat"
exit
*/
var battxt = WScript.StdIn.ReadAll();
for(var i=0; i<WScript.Arguments.length; i++)
{
    var tmp = WScript.Arguments(i).split('|');
    var reg = RegExp(tmp[0],'g');
    battxt = battxt.replace(reg, tmp[1]);
}
WSH.echo(battxt);
/*
----------------------------------------------------------------------
:ExtraCodes
@echo off
echo %test%
echo %n%
pause
rem */
复制代码

@echo off
call xxx.bat
echo.%ipp%
复制代码