Код:

<?xml version="1.0" encoding="Windows-1251"?>
<root>
	<id>3904</id>
	<sos_login>848hRRB9Th</sos_login>
	<pfr_xmls>
		<pfr_xml code="014-001" no="014-001-052241">

<регистрационнаяИнформация>
	<датаВремяФормирования>2011-11-09T13:05:05</датаВремяФормирования>
	<списокСубъектов>
		<субъект идентификаторСубъекта="014-001-052241" типСубъекта="АбонентСЭД" имя="Name of firm">
			<списокСертификатов типПодписанта="руководитель">
				<сертификат активный="true">
MIIEZjCCBB
				</сертификат>
			</списокСертификатов>
		</субъект>
	</списокСубъектов>
</регистрационнаяИнформация>


		</pfr_xml>
		<pfr_xml code="014-004" no="014-004-012910">

<регистрационнаяИнформация>
	<датаВремяФормирования>2011-11-09T13:05:05</датаВремяФормирования>
	<списокСубъектов>
		<субъект идентификаторСубъекта="014-004-012910" типСубъекта="АбонентСЭД" имя="Name of Firm">
			<списокСертификатов типПодписанта="руководитель">
				<сертификат активный="true">
MIIEZjCCBB
				</сертификат>
			</списокСертификатов>
		</субъект>
	</списокСубъектов>
</регистрационнаяИнформация>
		</pfr_xml>
	</pfr_xmls>
</root>

Код:

Dim DOMDocument1, Node1, tmpStr1
Set DOMDocument1 = CreateObject("MSXML2.DOMDocument")
With DOMDocument1
    .Load "C:\XML\" & basenameNEW
    if .parseError.reason <> "" Then
        MsgBox .parseError.reason,vbCritical
        WScript.Quit
    End if
    Set currNode = domdocument1.documentElement
	
	login = currNode.childNodes(1).text 'Копирую значение Логина
	WScript.Echo currNode.childNodes(1).text
	'XML1 = currNode.childNodes(2).text
	'WScript.Echo currNode.childNodes(2).text
End With

'ТУТ ДОЛЖЕН ИДТИ ВРОДЕ КАК ЦИКЛ FOR EACH. 
'ТОЛЬКО НЕ ПОНИМАЮ С КАКИМИ ПАРАМЕТРАМИ.


'Ниже сейчас разбираю одну XML. Вернее придется разобрать один из сертификатов.Но в цикле.
'Option Explicit
Dim DOMDocument, Node, tmpStr
Set DOMDocument = CreateObject("MSXML2.DOMDocument")

'Далее надо загрузить XML с первым сертификатом.

With DOMDocument
    .Load "C:\XML\" & basename 'Я так понимаю, это не надо. 
    if .parseError.reason <> "" Then
        MsgBox .parseError.reason,vbCritical
        WScript.Quit
    End if
    With .documentElement.SelectSingleNode("списокСубъектов")
        tmpStr = ""
        For Each Node in .SelectNodes("pfr_xmls")
            'tmpStr = tmpStr & "Идентификатор субъекта: " & Node.GetAttribute("идентификаторСубъекта") & vbCrlf
            'tmpStr1 = tmpStr & "Тип субъекта: " & Node.GetAttribute("идентификаторСубъекта") & vbCrlf
            'tmpStr2 = tmpStr & "имя: " & Node.GetAttribute("имя") & vbCrlf
			sNomer = Node.GetAttribute("идентификаторСубъекта")
            firm = Node.GetAttribute("имя")
            
		Next
		firm = Replace(firm,"'","")
		firm = Replace(firm,"""", "")
		firm = Replace(firm,"»", "")
		firm = Replace(firm,"«", "")
	
    End With
End With