Здравствуйте!
Помоги пожалуйста, такая ситуация:
Есть файл (текстовый), в нем нужно найти некое слово (конфиг файл, найти нужно параметр) и заменить его своим значением.
По существу - есть конфиг файл, нужно чтобы скрипт правил старое имя хоста на новое (как взять и вставить новое название хоста и вставить его в конфиг файл я не знаю, знаю только cmd-hostname :)_)
Собственно, хелп :(..?..

White OwlЧитаешь лог построчно, пишешь все строки в другой файл. Если в очередной строке нашлось то что надо поменять, меняешь и пишешь измененную строку.
Здравствуйте!
Как вариант:

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Test.txt", ForReading)

Do Until objFile.AtEndOfStream
strLine1 = objFile.ReadLine
If InStr(strLine1,"Слово") Then
strDuplicateLine = Replace(strDuplicateLine, "Слово", "Замена")
End If
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile("Test.txt", ForWriting)
objFile.Write strText
objFile.Close

Вопрос - что не так? :( Скрипт просто стирает все что есть в текстовом файле..

Разобрался с основным, немогу только вставить запись имени ПК (т.е. слово "Замена" нужно заменить на ComputerName,")

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Test.txt", ForReading)

strText = objFile.ReadAll
objFile.Close

strOldText = "Слово"
strNewText = "Замена"

strNewText = Replace(strText, strOldText, strNewText)

Set objFile = objFSO.OpenTextFile("Test.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

============== Имя пк ===============
dim objnet
Set objnet = wscript.CreateObject("wscript.network")
wscript.echo "" & objNet.ComputerName,""

Подскажите пожалуйста, как можно вставить имя пк в "Заменяемую" запись???

Hugo121Так не работает?
Спасибо за отклик! Нет, Ваш вариант не работает :(
Т.е. выскакивает попап, который определяет имя пк, но в текстовый файл это самое имя не записывается, связка - найти текст "111" и заменить его на "objNet.ComputerName" ни к чему не приводит..

Hugo121У меня работает...
user поменял? 111 в тексте есть? сам файл на десктопе есть?
Заработало, подлянка была в том что запускал на висте, которую уже давно сносить надо!
Большое спс за переделанный скрипт :)
Тему можно закрывать!