
CODE: [Copy to clipboard][ Last edited by bat-zw on 2010-2-6 at 13:51 ]@echo off&setlocal enabledelayedexpansion
cd.>temp.txt
for /f "tokens=1* delims=:" %%a in ('findstr /n .* refresh.ini') do (
set "str=%%b"
if "!str:~-6!" equ "office" set /a n+=1
if "!n!" equ "2" (
echo !str:office=%computername%!>>temp.txt
) else (
echo.!str!>>temp.txt
)
)
del /q refresh.ini&ren temp.txt refresh.ini
start refresh.ini
CODE: [Copy to clipboard]@echo off
set name=%computername%
set str=office
set file=refresh.ini
mshta vbscript:Execute("moveTo screen.width,0:With CreateObject(""Scripting.FileSystemObject""):s=Replace(.OpenTextFile(""%file%"").ReadAll,""%str%"",""%name%""):.OpenTextFile(""%file%"",2).Write s:End With:Close")
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |