125 lines
4.3 KiB
JavaScript
125 lines
4.3 KiB
JavaScript
//+---------------------------------------------------------------------
|
|
//
|
|
// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
|
|
// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
|
|
// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
|
|
// PARTICULAR PURPOSE.
|
|
//
|
|
// Copyright 1999, Microsoft Corporation. All Rights Reserved.
|
|
//
|
|
// SCRIPT: JSQuery
|
|
//
|
|
// PURPOSE: Illustrates how to execute an Indexing Service query
|
|
// using Microsoft JScript. The query uses the GroupBy
|
|
// property of the Query object to create a chaptered
|
|
// recordset of all files of a specified type in all
|
|
// directories that contain the specified file type.
|
|
//
|
|
// PLATFORM: Windows 2000
|
|
//
|
|
//----------------------------------------------------------------------
|
|
|
|
var strGroupBy; // Name of GroupBy column.
|
|
var intI, intJ; // Index variables.
|
|
var objQ; // Query object.
|
|
var strRecord; // Output record of query results.
|
|
var objRS_Child; // Child RecordSet object.
|
|
var objRS_Parent; // Parent RecordSet object.
|
|
var intRS_Child_Count; // Number of current record of child RecordSet.
|
|
var intRS_Parent_Count; // Number of current record of parent RecordSet.
|
|
var objU; // Utility object.
|
|
|
|
// Create a Query object.
|
|
objQ = new ActiveXObject("IXSSO.Query");
|
|
|
|
// Set the properties of the Query object.
|
|
objQ.Columns = "filename, directory, size, write";
|
|
objQ.Query = "#filename *.asp";
|
|
objQ.GroupBy = "directory[a]";
|
|
objQ.Catalog = "system";
|
|
objQ.OptimizeFor = "recall";
|
|
objQ.AllowEnumeration = true;
|
|
objQ.MaxRecords = 20000;
|
|
|
|
// Create a Utility object.
|
|
objU = new ActiveXObject("IXSSO.Util");
|
|
|
|
// Add the physical path and all subdirectories.
|
|
objU.AddScopeToQuery(objQ, "\\", "deep");
|
|
|
|
// Output the Query properties.
|
|
WScript.Echo(" Columns = " + objQ.Columns);
|
|
WScript.Echo(" Query = " + objQ.Query);
|
|
WScript.Echo(" GroupBy = " + objQ.GroupBy);
|
|
WScript.Echo(" Catalog = " + objQ.Catalog);
|
|
WScript.Echo(" CiScope = " + objQ.CiScope);
|
|
WScript.Echo(" CiFlags = " + objQ.CiFlags);
|
|
WScript.Echo(" OptimizeFor = " + objQ.OptimizeFor);
|
|
WScript.Echo(" AllowEnumeration = " + objQ.AllowEnumeration);
|
|
WScript.Echo(" MaxRecords = " + objQ.MaxRecords);
|
|
|
|
// Create a parent (grouped) RecordSet object for the Query.
|
|
objRS_Parent = objQ.CreateRecordSet("nonsequential");
|
|
|
|
// Determine the name of the GroupBy column.
|
|
strGroupBy = "";
|
|
for (intI=0; intI<objRS_Parent.Fields.Count; intI++) {
|
|
if (objRS_Parent(intI).Name != "Chapter") {
|
|
if (strGroupBy != "")
|
|
strGroupBy = strGroupBy + " " + objRS_Parent(intI).Name
|
|
else
|
|
strGroupBy = objRS_Parent(intI).Name;
|
|
};
|
|
};
|
|
|
|
// Read through the parent RecordSet object.
|
|
intRS_Parent_Count = 0;
|
|
while (!objRS_Parent.EOF) {
|
|
intRS_Parent_Count = intRS_Parent_Count + 1;
|
|
strRecord = (intRS_Parent_Count + ". ").slice(0,4);
|
|
|
|
// Extract values for non-chaptered columns.
|
|
for (intI=0; intI<objRS_Parent.Fields.Count; intI++) {
|
|
if (objRS_Parent(intI).Name != "Chapter")
|
|
strRecord = strRecord + " " + objRS_Parent(intI).Value;
|
|
};
|
|
|
|
// Output the values for non-chaptered columns.
|
|
WScript.Echo(strRecord);
|
|
|
|
// Create a child RecordSet object for the chaptered columns.
|
|
objRS_Child = objRS_Parent.Fields("Chapter").Value;
|
|
|
|
// Read through the child (chaptered) RecordSet object.
|
|
intRS_Child_Count = 0;
|
|
while (!objRS_Child.EOF) {
|
|
intRS_Child_Count = intRS_Child_Count + 1;
|
|
strRecord = (intRS_Parent_Count + "." + intRS_Child_Count + ". ").slice(0,8);
|
|
|
|
// Extract values for chaptered columns.
|
|
for (intJ=0; intJ<objRS_Child.Fields.Count; intJ++) {
|
|
if (objRS_Child(intJ).Name != "Chapter") {
|
|
if (objRS_Child(intJ).Name != strGroupBy)
|
|
strRecord = strRecord + " " + objRS_Child(intJ).Value;
|
|
};
|
|
};
|
|
|
|
// Output the values for chaptered columns.
|
|
WScript.Echo(strRecord);
|
|
objRS_Child.MoveNext;
|
|
};
|
|
|
|
// Close the child RecordSet object.
|
|
objRS_Child.Close;
|
|
objRS_Child = null;
|
|
|
|
// Move to the next record in the parent RecordSet object.
|
|
objRS_Parent.MoveNext;
|
|
};
|
|
|
|
// Close the parent RecordSet object.
|
|
objRS_Parent.Close;
|
|
objRS_Parent = null;
|
|
|
|
WScript.Echo("Done!");
|