Код:
Option Explicit
Dim strSourceFile
Dim objXMLDOMNode
Dim objXMLDOMElement
If WScript.Arguments.Count = 1 Then
strSourceFile = WScript.Arguments.Item(0)
If WScript.CreateObject("Scripting.FileSystemObject").FileExists(strSourceFile) Then
With WScript.CreateObject("MSXML2.DOMDocument")
If .load(strSourceFile) Then
Set objXMLDOMNode = .SelectSingleNode("/Config/MediaPath[@Path='Vehicles']")
If objXMLDOMNode Is Nothing Then
Set objXMLDOMElement = .CreateElement("MediaPath")
objXMLDOMElement.SetAttribute "Path", "Vehicles"
.SelectSingleNode("/Config").appendChild objXMLDOMElement
Set objXMLDOMElement = Nothing
.save strSourceFile
Else
Set objXMLDOMNode = Nothing
End If
Else
WScript.Echo "Can't load source file [" & strSourceFile & "]."
WScript.Quit 3
End If
End With
Else
WScript.Echo "Can't find source file [" & strSourceFile & "]."
WScript.Quit 2
End If
Else
WScript.Echo "Usage: wscript.exe """ & WScript.ScriptFullName & """ <Source file>"
WScript.Quit 1
End If
WScript.Quit 0
Не убирайте инструкцию Option Explicit!
