[zion87]

вообщем сам пока не сильно разбираюсь во всем этом деле, но могу предложить этот вариант:

Код:

@echo off
set s=0
set p=5
:start_1
set /a s=%s%+1
if %s%==255 goto next_ip
ping -n 1 -l 5 10.108.%p%.%s%|Find /I "TTL="|| goto start_1
goto read
:next_ip
set s=0
set p=8
:start_2
set /a s=%s%+1
ping -n 1 -l 5 192.168.%p%.%s%|Find /I "TTL="|| goto start_2
if %s%==255 exit
:read
echo fName = "111.ini" >temp.vbs
echo iStrok = 1 >>temp.vbs
echo repTxt = "IP=192.168.%p%.%s%" >>temp.vbs
copy temp.vbs + chang.vbs
start/wait temp.vbs
del temp.vbs
exit

для замены ip в файле 111.ini использовал скрипт chang.vbs скачать его можно здесь

если ссылка не сработает, то вот код из скрипта

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(fName, 1, False)   
AllTxt = F.ReadAll()                        
F.Close                                       
AllTxt = Replace(AllTxt, vbLf, "")          
Mas = Split(AllTxt, vbCr)                      
nStrok = UBound(Mas)         
AllTxt = ""
If nStrok + 1 >= iStrok Then
    Mas(iStrok - 1) = repTxt                  
    For i = 0 To nStrok
        If i <> nStrok Then
            AllTxt = AllTxt + Mas(i) + vbCrLf  
        Else
            AllTxt = AllTxt + Mas(i)         
        End If
    Next
    Set F = FSO.OpenTextFile(fName, 2, False)   
    F.Write AllTxt                             
    F.Close                                
End If