• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 350
  • Last Modified:

cgi script fails until refreshed in IE - then it works

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 should 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, Onelevel or Base

my $oUser;

use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objConn = Win32::OLE->CreateObject("ADODB.Connection");
$objConn->{Provider} = "ADsDSOObject";
$objConn->Open;
my $objRS = $objConn->Execute($strBase . $strFilter . $strAttrs . $strScope);
$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;

#############################################

Any ideas?
0
concept99
Asked:
concept99
  • 4
  • 3
1 Solution
 
jmcgOwnerCommented:
You should probably mention exactly what error is reported and whether there's any useful information to be found in the web server logs.

You have two copies of the "use Win32::OLE" statement with different parameters. Maybe you should just have one?

I'm just guessing, since there's not much to go on.
0
 
concept99Author Commented:
I removed the second Win32::OLE.

Also, here is the error message I receive on the webpage:
###############
Table does not exist. Win32::OLE(0.1701) error 0x80040e37 in METHOD/PROPERTYGET "Execute" at D:\www\infra\cgi-bin\lookup.pl line 35 Content-Type: text/html; charset=ISO-8859-1
###############


Also, nothing relating to this in the webserver logs.
0
 
jmcgOwnerCommented:
This message is complaining about something on line 35 of a file named lookup.pl -- the file you showed us doesn't have as many as 35 lines in it.

The "table does not exist" error would indicate that you may have spelled something wrong -- but I'm still just guessing.Why would it fail some of the time and work other times?
0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

 
concept99Author Commented:
Sorry about that, I removed some commented lines from the script. Here is what line 35 is:

my $objRS = $objConn->Execute($strBase . $strFilter . $strAttrs . $strScope);

0
 
jmcgOwnerCommented:
It makes sense that it would be that line.

I googled the error number and the error message (something you might want to try, too) but I didn't find anything that enlightened me about how this script of yours could both work and not work.

Before I throw my hands up in the air and say I can't help you, I'll throw out a couple more possibilities:

1) have you looked at the Net::LDAP module?

http://search.cpan.org/~gbarr/perl-ldap-0.3202/

It looks to me that this module may simplify the overall LDAP interaction, if what you're doing is fairly routine.

2) is it possible you have two LDAP servers, one with the data you want and one without?

0
 
concept99Author Commented:
I did do a google search and found the following:
http://support.microsoft.com/default.aspx?scid=kb;en-us;296254

This could be a solution to my problem, but I was curious to see if anyone else had experienced this type of issue.
0
 
jmcgOwnerCommented:
Possibly, but like the other mentions I found with Google, there were all sorts of suggestions for things to try if your lookup always failed -- but you say it works some of the time.
0
 
Computer101Commented:
PAQed, with points refunded (125)

Computer101
E-E Admin
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now