List 11　ADOコンポーネントを使った検索例

---

  1： Dim objConn, objRec
  2： 
  3： ' ADODB.Connectionオブジェクトを使って
  4： ' Exchange 2000 Serverと接続する
  5： 
  6： ' ADODB.Connectionオブジェクトを取得
  7： Set objConn = CreateObject("ADODB.Connection")
  8： ' OLE DB プロバイダを設定
  9： objConn.Provider = "ExOLEDB.DataSource"
 10： ' URLを開く
 11： objConn.Open "http://www.foobar.co.jp/public/"
 12： 
 13： ' SQL文を実行し，ADODB.Recordsetオブジェクトを得る
 14： ' もしサブディレクトリも含めて検索するならば，FROM句の部分を
 15： ' FROM SCOPE('deep traversal of "/public/"')のようにする
 16： Set objRec = objConn.Execute( _
   　                "SELECT ""DAV:href"", ""DAV:displayname"", ""DAV:getcontentlength"" " & _
   　                " FROM ""/public/"" WHERE ""DAV:creationdate"" > '2000-08-01'")
 17： 
 18： ' 取得したプロパティを画面に表示する
 19： While not objRec.EOF
 20：   WScript.Echo "URL=" & objRec.Fields("DAV:href").Value
 21：   WScript.Echo "表示名=" & objRec.Fields("DAV:displayname").Value
 22：   WScript.Echo "サイズ=" & objRec.Fields("DAV:getcontentlength").Value
 23：   objRec.MoveNext
 24： Wend
 25： 
 26： objRec.Close
 27： Set objRec = Nothing
 28： 
 29： objConn.Close
 30： Set objConn = Nothing