[mariolast]

Аесли надо в текстовый файл писать?
Задача стоит в следующем.
Создать в текущем каталоге готовый BAT-файл для переноса текущих IP настроек на другой компьютер и файл с именем компьютера
Содержание батника

Код:

CLS
echo off
 
ipconfig | find "IPv4" > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > ip.txt)
 
ipconfig | find "Маска"  > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > mask.txt)
 
ipconfig | find "шлюз" > temp.txt
for /f "delims=: tokens=1-26" %%C in (temp.txt) do (echo %%D > gate.txt)
pause 
vbs_getIP.vbs
 
del temp.txt
del gate.txt
del mask.txt
del ip.txt
del setip.txt

Содержание vbs скрипта

Код:

Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset =  "UTF-8"
ADODBStream.Open()
ADODBStream.LoadFromFile("ip.txt")
Text = ADODBStream.ReadText()
ADODBStream.Close()
 
dim str
str = Cstr(Text)
str1=""
 
for i=1 to len(str)
    i1=mid(str,i,1) 
    iC=Asc(i1)
    if (iC>45 and iC<58) then
         str1=str1+i1   
    end if
next
varIP=str1
 
REM ***************************************************
REM *       Забираем маску из файла     *
REM ***************************************************
 
Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset =  "UTF-8"
ADODBStream.Open()
ADODBStream.LoadFromFile("mask.txt")
Text = ADODBStream.ReadText()
ADODBStream.Close()
 
str = Cstr(Text)
str1=""
 
for i=1 to len(str)
    i1=mid(str,i,1) 
    iC=Asc(i1)
    if (iC>45 and iC<58) then
         str1=str1+i1   
    end if
next
varMASK=str1
 
REM ***************************************************
REM *       Забираем шлюз из файла      *
REM ***************************************************
 
Set ADODBStream = CreateObject("ADODB.Stream")
ADODBStream.Type = 2
ADODBStream.Charset =  "UTF-8"
ADODBStream.Open()
ADODBStream.LoadFromFile("gate.txt")
Text = ADODBStream.ReadText()
ADODBStream.Close()
 
str = Cstr(Text)
str1=""
 
for i=1 to len(str)
    i1=mid(str,i,1) 
    iC=Asc(i1)
    if (iC>45 and iC<58) then
         str1=str1+i1   
    end if
next
varGATE=str1
 
REM ***************************************************
REM *   Формируем текст батника для NETSH   *
REM ***************************************************
 
str1 = "netsh interface ip set address name="+chr(34)+"Подключение по локальной сети"+chr(34)+ " static  " + varIP + " " + varMASK + " " + varGATE+" 1"
 
REM *****************************************************
REM *   пишем строку  для запуска батника  в файл *
REM *****************************************************
 
msgbox str1,,"Кошки правят!"
 
test = "setip.bat"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set TestTeam = objFSO.OpenTextFile(test, 2, True)
Set File = objFSO.GetFile(test)    
TestTeam.WriteLine str1
TestTeam.close