The script works fine if you hit refresh after it errors out. This website is hosted on an Intranet webserver running IIS 6 and Windows 2003 Server. The version of Perl on the server is 5.8.4. My code is passed a username from an html page (theLookupID) and searches Active Directory for a username and prints out their fullname as well as user id. Here is the code:

use Win32::OLE qw (in);
use CGI qw(:standard);
print header;
print start_html('Active Directory query results');

my $theLookupID = param('theLookupID');

my $strName    = $theLookupID;
my $strBase    = "<LDAP://ou=my,dc=foo,dc=bar,dc=com>;"; # BaseDN shou
+ld be the search base
my $strFilter  = "(&(objectCategory=user)(samaccountname=$strName));";
+           # Valid LDAP search filter
my $strAttrs   = "AdsPath,cn;";         # Comma-seperated list
my $strScope   = "Subtree";             # Should be on of Subtree, One
+level or Base

my $oUser;

$Win32::OLE::Warn = 3;
my $objConn = Win32::OLE->CreateObject("ADODB.Connection");
$objConn->{Provider} = "ADsDSOObject";
$objConn->Open;
my $objRS = $objConn->Execute($strBase . $strFilter . $strAttrs . $str
+Scope);
$objRS->MoveFirst;
while (not $objRS->EOF) {
    print $objRS->Fields(1)->Value," - ";
    $strLdap = $objRS->Fields(0)->Value;
    $oUser = Win32::OLE->GetObject("$strLdap");
    print "$oUser->{samaccountname}<br>";
    $objRS->MoveNext;
}

print end_html;
[download]

Also, here is the error message I receive on the webpage before I refresh:

Table does not exist. Win32::OLE(0.1701) error 0x80040e37 in METHOD/PR
+OPERTYGET "Execute" at D:\www\infra\cgi-bin\lookup.pl line 35 Content
+-Type: text/html; charset=ISO-8859-1
[download]

Any ideas?