@echo off
%1 %2
ver|find "5.">nul&&goto :st
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :st","","runas",1)(window.close)&goto :eof
 
:st
copy "%~0" "%windir%\system32\"
@echo off
rem //设置变量 
set NAME="以太网"
rem //以下属性值可以根据需要更改
set ADDR=10.10.100.[color=Red][b]1[/b][/color]
set MASK=255.255.255.0
set GATEWAY=10.10.100.1
set DNS1=221.228.255.1

echo 正在设置静态IP，请稍等...
rem //可以根据你的需要更改
echo IP地址 = %ADDR%
echo 掩码 = %MASK%
echo 网关 = %GATEWAY%
netsh interface ipv4 set address %NAME% static %ADDR% %MASK% %GATEWAY% 
echo 首选DNS = %DNS1% 
netsh interface ipv4 set dns %NAME% static %DNS1%
echo 静态IP已设置！
pause
复制代码

PowerShell "dir *.txt | ?{$_.BaseName -match '\((\d+)\)$'} | forEach{$s = (gc $_) -replace '(?<=set ADDR=(?:\d+\.){3})\d+',$matches[1]; sc $_ $s}"
复制代码