Ken Cornetet helped me find the solution:


* Use plain-text authentication, which fixed the issue.


-----Original Message-----
From: Steven Manross [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, October 05, 2005 12:47 AM
To: Zeltov Alex; perl-win32-users@listserv.ActiveState.com
Subject: RE: Win32::OLE(0.1701) error 0x80005000 when adding a computer to
AD using Perl

Hmmm.. I think this is a permissions delegation issue.. Is the IIS
Server "trusted for delegation"?

This is of course a security risk... But so is opening IE.. :)

Steven 
________________________________

From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Zeltov Alex
Sent: Tuesday, September 20, 2005 1:06 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: Win32::OLE(0.1701) error 0x80005000 when adding a computer to
AD using Perl


 I am running into a problem, when I execute a simple script to add a
computer to an AD when I do it through a cgi script.

This is the code that I am running:

my $strBase = "OU=iLab - iLab Gatekeeper,OU=InfrApps - Infrastructure
Managed
Apps,OU=Applications,OU=US-DC1,DC=resdm50,DC=ilab,DC=siemensmedasp,DC=co
m";
my $strComp = "alex";      # e.g. joe-xp
my $strDescr = "none";      # e.g. Joe's Windows XP workstation

use Win32::OLE;
$Win32::OLE::Warn = 3;
# $ADS_USER_FLAG_ENUM
my $ADS_UF_WORKSTATION_TRUST_ACCOUNT = 0x1000;

my $objCont = Win32::OLE->GetObject("LDAP://" . $strBase);
my $objComp = $objCont->Create("computer", "cn=" . $strComp);
$objComp->Put("sAMAccountName", $strComp . "\$");
#$objComp->Put("description", $strDesc);
$objComp->Put("userAccountControl", $ADS_UF_WORKSTATION_TRUST_ACCOUNT);
$objComp->SetInfo;

This code works fine when I run it as a stand alone program. 

When it runs under IIS, as cgi I am running into this error:

The specified CGI application misbehaved by not returning a complete set
of HTTP headers. The headers it did return are:


Win32::OLE(0.1701) error 0x80005000
    after character 0 in
"LDAP://OU=US-DC1,DC=resdm50,DC=ilab,DC=siemensmedasp,DC=com" at
F:\ttx218\dev\joincomputer.pl line 22
     eval {...} called at F:\ttx218\dev\joincomputer.pl line 22

I have integrated windows authentication enabled, so the script runs
under the same security permissions when i run it as IIS or as stand
alone.

Has anyone encountered this issue?  

I have googled this error and found a couple of threads having similar
issue

http://lists.ee.ethz.ch/realmen/msg00035.html

Unfortunately no resolution but they are getting the same OLE error.

 
------------------------------------------------------------------------
-------
This message and any included attachments are from Siemens Medical
Solutions 
USA, Inc. and are intended only for the addressee(s). 
The information contained herein may include trade secrets or privileged
or 
otherwise confidential information. Unauthorized review, forwarding,
printing, 
copying, distributing, or using such information is strictly prohibited
and may 
be unlawful. If you received this message in error, or have reason to
believe 
you are not authorized to receive it, please promptly delete this
message and 
notify the sender by e-mail with a copy to
[EMAIL PROTECTED] 

Thank you
        

-------------------------------------------------------------------------------
This message and any included attachments are from Siemens Medical Solutions 
USA, Inc. and are intended only for the addressee(s).  
The information contained herein may include trade secrets or privileged or 
otherwise confidential information.  Unauthorized review, forwarding, printing, 
copying, distributing, or using such information is strictly prohibited and may 
be unlawful.  If you received this message in error, or have reason to believe 
you are not authorized to receive it, please promptly delete this message and 
notify the sender by e-mail with a copy to [EMAIL PROTECTED] 

Thank you
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to