use strict;
use Win32::OLE;

#Set in Ixsso.query
my $catalogPath = "d:\\resumes";
my $ixssoQueryRef;
my $ixssoUtilRef;
eval{
   my $classId = "ixsso.query";
   $ixssoQueryRef = Win32::OLE->new($classId);
   $ixssoUtilRef = Win32::OLE->new("IXSSO\.Util");

#Commented out
if(0){
   my $conn = Win32::OLE->new('ADODB.Connection'); 
   my $test = Win32::OLE->new('ADODB.Recordset');

   $conn->Open('provider=msidxs');
}
   
                        
   #$test = $Win32::OLE->QueryObjectType($ixssoQueryRef);
   my $queryString = "<some query string>";

   $ixssoQueryRef->Catalog($catalogPath);
   $ixssoQueryRef->Query($queryString);

   $ixssoQueryRef->MaxRecords(1);
   $ixssoQueryRef->AllowEnumeration(0);
   $ixssoQueryRef->Dialect("1");
   
   $ixssoUtilRef->AddScopeToQuery($ixssoQueryRef, "\\", "deep");
   $test = $ixssoQueryRef->CreateRecordSet("nonsequential");
     
};
if($@){
  print "Error: $@\n";
}