Dim objXML, fileXML
Dim node, item, mesg

fileXML = "addr.xml"

Set objXML = WScript.CreateObject("MSXML.DOMDocument")
objXML.load(fileXML)

For Each node In objXML.getElementsByTagName("�l���")
  mesg = ""

  For Each item In node.childNodes
    If mesg <> "" Then
      mesg = mesg & ", "
    End If
    mesg = mesg & item.nodeName & ":" & item.firstChild.nodeValue
  Next
  WScript.Echo mesg
Next