[Dragokas]

apozlevich, попробуйте комбинированный сценарий:

main.cmd

Код:

@echo off
SetLocal
Set $Query=http://www.nirsoft.net/pad/acm.xml
Set $Node=XML_DIZ_INFO/Program_Info/Program_Name

for /f "delims=" %%A in ('cscript.exe //nologo "xml_parse.vbs" "%$Query%" "%$Node%"') do set "$RetValue=%%A"

echo.%$RetValue%
pause

XML_parse.vbs

Код:

Option Explicit
'On Error Resume Next
dim sQuery, sRetValue, objRemXML

Sub XMLRequest(sQuery, objRemXML)
    Set objRemXML = CreateObject("Microsoft.XMLDOM")
    objRemXML.async = False
    objRemXML.Load (sQuery)
End Sub

Sub XMLParse(objRemXML, sNode, sRet)
    Dim objXMLret
    Set objXMLret = objRemXML.SelectSingleNode(sNode)
    If Err.Number <> 0 Then
        'MsgBox "Error of IPRange"
      Else
        If Not objXMLret Is Nothing Then sRet = objXMLret.Text
    End If
End Sub

sQuery = WScript.Arguments(0)

'Initialize
Call XMLRequest(sQuery, objRemXML)

Call XMLParse(objRemXML, WScript.Arguments(1), sRetValue)

Wscript.Echo sRetValue

Set objRemXML = Nothing