Testing Your Schema

Dim Rec
Dim Rs
Dim strQ
Dim strURL
Set Rec = CreateObject("ADODB.Record")
Set Rs = CreateObject("ADODB.Recordset")

'specify your own domain and root folder for the strURL variable
strURL = "file://./backofficestorage/microsoft.com/public folders/myapp/"

strQ = "SELECT * from scope('shallow traversal of "
strQ = strQ & Chr(34) & strURL & Chr(34) & "')"

Rec.Open strURL


Rs.Open strQ, Rec.ActiveConnection

Rs.MoveFirst


Do Until Rs.EOF
   For x = 0 To Rs.Fields.Count - 1
      Wscript.Echo "Name: " & Rs(x).Name
      On Error Resume Next
      Wscript.Echo "Value: " & Rs(x).Value
   Next
   Wscript.Echo "Next Record-----------------------"
   Rs.MoveNext
Loop

Rs.Close
Rec.Close