[Iska]

файл - C:\prog\test1.xml »

Образец файла упакуйте в архив и приложите к сообщению.

то нужно заменить данный файл (C:\prog\test1.xml) файлом - D:\waq\test_new.xml . »

А может есть вариант проще — что-то заменить/удалить внутри существующего, не?

[ospekt00]

Вот архив с файлом, нет к сожалению нужно именно заменять файл на тот который лежит на диске D:\.
Заранее Благодарю.

[Iska]

Гмм… А почему Вы его обозвали test1.vbs ?

Примерно так:

Скрытый текст

Код:

Option Explicit

Dim strSourceFile
Dim strRestoreFile

Dim objFSO


strSourceFile = "C:\prog\test1.xml"
strRestoreFile = "D:\waq\test_new.xml"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
	If objFSO.FileExists(strRestoreFile) Then
		With WScript.CreateObject("Microsoft.XMLDOM")
			.load strSourceFile
			
			If Not .selectSingleNode("/head/Postgre[Server = '192.168.0.11']") Is Nothing Then
				objFSO.CopyFile strRestoreFile, strSourceFile, True
			End If
		End With
	Else
		WScript.Echo "Can't find file for restore [" & strRestoreFile & "]."
		WScript.Quit 2
	End If
Else
	WScript.Echo "Can't find source file [" & strSourceFile & "]."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

[ospekt00]

Огромное Вам спасибо, скрипт работает, но я неправильно поставил задачу немного)),
я написал:

Если есть строка содержащая данный тег, то нужно заменить данный файл (C:\prog\test1.xml) файлом - D:\waq\test_new.xml . »

а надо было: Если нет такой стороки...., но я это исправил удалив Not из If Not .selectSingleNode("/head/Postgre[Server = '192.168.0.11']") Is Nothing Then
И все заработало!!!
Может Вы подскажите где есть ресурсы на которых можно почитать про работу VBSа с XML и др. файлами.
Спасибо!!!

[Iska]

Задать запрос в Google вида «vbscript xml» и посмотреть несколько первых ссылок. На русском вкратце можно посмотреть Сценарии объектной модели документа DOM XML средствами OLE-Automation.