windows批处理脚本更改文本

将ip 192.168.1.1更改为域名www.baibai.com

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit cd /d "%~dp0"
@echo on &setlocal enabledelayedexpansion
for /F "tokens=*" %%i in ('where openvpn') do set foo=%%i
set file=%foo%
set source=192.168.1.1
set replaced=www.baibai.com
for /R "%file%\..\..\config\" %%b in (*.ovpn) do (
	for /f "tokens=*" %%i in ('type "%%b"') do (
    echo %%i
    set str=%%i
    set "str=!str:%source%=%replaced%!"
    echo !str!>>"%%b-temp"
) 
move "%%b-temp" "%%b"
)
@echo off