vbs读取xml值失败,请问怎么处理.

我需要写一个VBS读取以下格式XML的内容,期中inum="846051000004226"处理不了,请问哪位朋友可以帮忙看一下.

2016-09-01T00:01:11.056
23
31642191, 39107
39901
00001127871472659262
<
/result>

2016-09-01T00:01:11.254
27
31642191, 39104
39901
00001127881472659264



2016-09-01T00:01:22.233
17
31642191, 39105
39901
00001127891472659279

msgbox GetXML("AA.xml")

Function GetXml (ByVal strXmlFilePath)
Dim xmlDoc,xmlRoot
Dim num

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load strXmlFilePath  
If xmlDoc.parseError.errorCode <> 0 Then
        GetXml "Error:"  & Chr(13) &  xmlDoc.parseError.reason
        Exit Function            
End If
Set xmlRoot = xmlDoc.documentElement.selectSingleNode("//results")              

num=xmlRoot.childNodes.length-1

For i=0  To num
    tmpInum=""
    tmpStartedat=xmlRoot.childNodes.item(i).childNodes.item(0).text
    tmpDuration=xmlRoot.childNodes.item(i).childNodes.item(1).text
    tmpOtherparties=xmlRoot.childNodes.item(i).childNodes.item(2).text
    tmpSkills=xmlRoot.childNodes.item(i).childNodes.item(3).text
    tmpSwitchcallid=xmlRoot.childNodes.item(i).childNodes.item(4).text          

    strXML=strXML & i & "," & tmpInum & "," & tmpStartedat & "," &    tmpDuration & "," & tmpOtherparties & "," & tmpSkills  & "," & tmpSwitchcallid & vbcrlf        

Next  

GetXml = strXML

End Function

tmpInum=xmlRoot.childNodes.item(i).attributes.getNamedItem("inum").text