' Code: Dmitry Stremkouski 
' Date: 30.11.2006
' License: GPL
' Usage: FolderURI PostmasterLogin PostmasterPassword

' example:
' cscript //nologo ListFoldersForUser.vbs http://exserv/exchange/testuser/inbox/message.eml superv1sor myPassw0rd
' note:
' superv1sor ought have access rights to testuser's mailbox

Dim obArgs
Dim cArgs

Set obArgs = WScript.Arguments
cArgs = obArgs.Count

DoXML

Sub DoXML
Dim objX, strR, objXD, objDE
Set objX = CreateObject("Microsoft.XMLHTTP")
objX.Open "PROPFIND", obArgs.Item(0), FALSE, obArgs.Item(1), obArgs.Item(2)

strR = "<?xml version='1.0'?>"
strR = strR & "<d:propfind xmlns:d='DAV:' xmlns:e='urn:schemas:httpmail:'>"
strR = strR & "<d:prop><e:datereceived/></d:prop>"
strR = strR & "<d:prop><e:hasattachment/></d:prop></d:propfind>"
objX.SetRequestHeader "Content-type:", "text/xml"
objX.SetRequestHeader "Depth", "0"
objX.send(strR)

set docback = objX.responseXML

Dim objNodeList
Set objNodeList = docback.getElementsByTagName("*")
For i = 0 to (objNodeList.length -1)
  Set objNode = objNodeList.nextNode
  WScript.Echo objNode.NamespaceURI & " " & objNode.NodeName
  WScript.Echo objNode.XML
Next

End Sub