IIS6 NTLM Authentication

Wed, 02 Nov 2005 05:31:38 -0800

Title: RE: INTERNAL ERROR: PerlParse did not exit clean!!!!

Hi Guys,

 

I was wondering if someone could offer some help. I've got an IIS6 server running on Windows 2003 and I'm trying to authenticate using windows integrated security. I can make it through the first two phases of NTLM authentication but not the third. I don't, yet, have access to a C++ compiler so that I can compile the kerberos perl modules so for now I am stuck with NTLM. I've set up IIS6 to accept both NTLM and kerberos. Can anyone spot any glaring errors in the following test code?

use warnings;
use Net::SSLeay;
use SOAP::Lite;
use SOAP::Transport::HTTP;
use Crypt::SSLeay;
use LWP::Protocol::https;
use LWP::UserAgent;
use Authen::NTLM;
use XML::Parser;
use URI::_foreign;
use SOAP::Lite +trace =>
    qw(transport debug);
use LWP::Debug qw(+);
use HTTP::Request::Common;
my @protocols='https';
$user='user';
$pwd='FOOBAR';


my $url = '';

# Set up the ntlm client and then the base64 encoded ntlm handshake message
my $ua = new LWP::UserAgent(keep_alive=>1,
        protocols_allowed=>[EMAIL PROTECTED]);
$ua->agent('Mozilla/5.0+');

$ua->credentials('IP:443', '', '$user', '$pwd');

$request = GET $url;
print "--Performing request now...-----------\n";
$response = $ua->request($request);
print "--Done with request-------------------\n";

if ($response->is_success) {print "It worked!->" . $response->code . "\n"}
else {print "It didn't work!->" . $response->code . "\n"}

 

--Richard

 

_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to