[网络连接] [已解决]批处理获取ip地址并判断的代码，能否进一步简化？

for /f "tokens=2 delims=:" %%b in ('ipconfig^|find /i "ip"') do set fsip=%%b

echo %fsip%

Set fsip=%fsip: =%

echo 去掉ip前面的空格

echo %fsip%
echo "%fsip%"|findstr "10.10.9.200 10.10.93.100 10.10.94.200 10.10.127.200">nul&&exit

后面是别的代码
复制代码

@echo off
for /f "tokens=15 delims= " %%i in ('ipconfig ^| find /i "IP Address"') do (
    set fsip=%%i
)
echo %fsip%
if "%fsip%" equ "10.10.9.200" (
    goto :end
) else if "%fsip%" equ "10.10.93.100" (
    goto :end
) else if "%fsip%" equ "10.10.94.200" (
    goto :end
) else if "%fsip%" equ "10.10.127.200" (
    goto :end
)

for /f "tokens=1,2,3 delims=." %%i in ("%fsip%") do (
    set a=%%i.%%j.%%k
)
set Gateway=%a%.1
echo %a%.1
if "%a%" equ "10.10.9" (
    set a=%a%.200
) else if "%a%" equ "10.10.93" (
    set a=%a%.100
) else if "%a%" equ "10.10.94" (
    set a=%a%.200
) else if "%a%" equ "10.10.127" (
    set a=%a%.200
)

:end
复制代码

@echo off

:stat

md d:\0beifen >nul 2>nul
md d:\0beifen\soft >nul 2>nul

copy /y 00-00robocopy.exe "c:\windows\system32\" >nul 2>nul
copy /y 开通局域网共享(访问本机无需验证即可进入).reg "c:\WINDOWS\system32\" >nul 2>nul

rem 获取本机ip
for /f "tokens=14 delims=: " %%b in ('ipconfig^|find /i "ip"') do set fsip=%%b
echo %fsip%
pause

rem 获取本机ip前3段
for /f "tokens=1,2,3 delims=." %%i in ("%fsip%") do (
    set a=%%i.%%j.%%k
)
echo %a%
pause


if "%fsip%" equ "10.10.9.200" (
    goto :set0
) else if "%fsip%" equ "10.10.93.100" (
    goto :set0
) else if "%fsip%" equ "10.10.94.200" (
    goto :set0
) else if "%fsip%" equ "10.10.127.200" (
    goto :set0
)
goto :set1


cls
;--------------------------------------------------------------------------------------------------
:set0
;--------------------------------------------------------------------------------------------------
cls

echo 设定文件服务器为：%fsip%
pause

regedit /s 开通局域网共享(访问本机无需验证即可进入).reg
net user Guest /active:yes

reg add "HKLM\SYSTEM\CurrentControlSet\Control\Lsa" /v forceguest /t reg_dword /d 0  /f
rem 取消“使用简单文件共享”方式

net share soft=d:\0beifen\soft

exit


cls
;--------------------------------------------------------------------------------------------------
:set1
;--------------------------------------------------------------------------------------------------
cls

if "%a%" equ "10.10.9" (
    set a=%a%.200
) else if "%a%" equ "10.10.93" (
    set a=%a%.100
) else if "%a%" equ "10.10.94" (
    set a=%a%.200
) else if "%a%" equ "10.10.127" (
    set a=%a%.200
) else (
    echo 本机ip非设定范围！
    exit
)
echo %a%
pause

:ptaget
ping.exe %a% -n 1 -w 300 >nul&&goto :lineon||goto :lineoff

:lineoff
echo 文件服务器：%a%----离线
pause
ping 127.0.0.1 -n 60
goto :ptaget



cls
;--------------------------------------------------------------------------------------------------
:lineon
;--------------------------------------------------------------------------------------------------
cls

echo 文件服务器：%a%----在线
pause

rem 创建文件夹的快捷方式
cls
SET link=%UserProfile%\桌面\常用软件.url  
ECHO [InternetShortcut]>"%link%" 
ECHO URL=d:\0beifen\soft>>"%link%" 
ECHO WorkingDirectory=%SystemRoot%>>"%link%" 
ECHO ShowCommand=7>>"%link%" 
ECHO IconFile=C:\WINDOWS\system32\url.dll>>"%link%" 
ECHO IconIndex=^0>>"%link%" 
ECHO HotKey=>>"%link%" 
cls

echo 文件服务器为：%a%，下载数据到本地
pause

:nextaaa

ping.exe %a% -n 1 -w 300 >nul&&goto :lineon1||goto :lineoff1

:lineoff1
echo 文件服务器：%a%----离线
ping 127.0.0.1 -n 120
goto :nextaaa

:lineon1
00-00robocopy "\\%a%\soft" "d:\0beifen\soft" /mir
ping 127.0.0.1 -n 120

goto :nextaaa

;--------------------------------------------------------------------------------------------------
cls
复制代码