nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Querying AD to Get Current User

RocknRoll

Hi All,

I am using following code below too:-

use Win32: Smiley Surprised

LE;
$user=Win32: Smiley Surprised

LE->GetObject(”LDAP://CN=user name,CN=Users,DC=mynetwork,DC=com”);
print $user->{’displayname’}, “\n”;

Recieved following error:-
Global symbol "$user" requires explicit package

Any help would be great. Thanks.

TS 6.5
OS Win2003

Find more posts tagged with

Comments

nipper

put this line in

my $user="";

before the OLE call

RocknRoll

put this line in

my $user="";

before the OLE call

Hi Nipper,

Thanks for quick reply..

This is the code I have now:-

#!E:\Interwoven\TeamSite\iw-perl\bin\iwperl.exe

use Win32: Smiley Surprised

LE;
use strict;

my $user="";

$user=Win32: Smiley Surprised

LE->GetObject("LDAP://CN=user name,CN=Users,DC=mynetwork,DC=com");

print $user->{'displayname'}, "\n";

print <
$user
EOF

I get ===> Can't find string terminator "EOF" anywhere before EOF. I think I am missing something obvious. Any Assistance please? Thanks.

SortCrosstabByDateInParameter.rptdesign

nipper

I prefer using qq instead of <<

Something like:


my $var= qq( <?xml version='1.0' encoding='UTF-8'?>
<substitution><default>$user</default></substitution>
);

print $var."\n";

With the EOF, it must be the 1st character in the line (not tabbed or spaced over).

HTH

Andy

ISCBorisB

Hi Nipper,

Thanks for quick reply..

This is the code I have now:-

#!E:\Interwoven\TeamSite\iw-perl\bin\iwperl.exe

use Win32:LE;
use strict;

my $user="";

$user=Win32:LE->GetObject("LDAP://CN=user name,CN=Users,DC=mynetwork,DC=com");

print $user->{'displayname'}, "\n";

print <
$user
EOF

I get ===> Can't find string terminator "EOF" anywhere before EOF. I think I am missing something obvious. Any Assistance please? Thanks.

Make sure that there is an empty line after EOF. For example

print <&ltEOF;
<?xml version='1.0' encoding='UTF-8'?>
<substitution><default>$user</default></substitution>
EOF

exit 0;   # Optional

RocknRoll

Make sure that there is an empty line after EOF. For example
print <&ltEOF;
<?xml version='1.0' encoding='UTF-8'?>
<substitution><default>$user</default></substitution>
EOF

exit 0;   # Optional

Hi Nipper & Boris,

Thanks for the assistance! Now, I receive DCT error as followed:-

Root cause:
SAX Parse:The processing instruction target matching "[xX][mM][lL]" is not allowed.

Here's my IPL attached:-

ISCBorisB

Hi Nipper & Boris,

Thanks for the assistance! Now, I receive DCT error as followed:-

Root cause:
SAX Parse:The processing instruction target matching "[xX][mM][lL]" is not allowed.

Here's my IPL attached:-

Well, you did not attach anything...Anyway, in your context SAX errors often happen when either your substitution is a malformed XML
or (that may be very subtle) resulting XML becomes malformed after applying a substitute. Anyway - log and check your inline output.
Post it if you have doubts

RocknRoll

Well, you did not attach anything...Anyway, in your context SAX errors often happen when either your substitution is a malformed XML
or (that may be very subtle) resulting XML becomes malformed after applying a substitute. Anyway - log and check your inline output.
Post it if you have doubts

Currently - I am getting Hashref... I need to have string that will read username. Any Suggestions?

Adam Stoller

Your code:

#!E:\Interwoven\TeamSite\iw-perl\bin\iwperl.exe

use Win32:LE;
#use strict;

my $user="";

$user=Win32:LE->GetObject("LDAP://CN=user name,CN=Users,DC=mynetwork,DC=com");

print $user->{'displayname'}, "\n";

print <<EOF;
<?xml version='1.0' encoding='UTF-8'?>
<substitution><default>$user</default></substitution>
EOF

The print line above will break the script for inline usage. The code should probably look something like:

#!E:\Interwoven\TeamSite\iw-perl\bin\iwperl.exe

use Win32:LE;
use strict;
use warnings;

my $user=Win32:LE->GetObject("LDAP://CN=user name,CN=Users,DC=mynetwork,DC=com");

print qq(<?xml version='1.0' encoding='UTF-8'?>
<substitution><default>$user->{displayname}</default></substitution>
);

I'm guessing on some of it since I don't have an AD server to try this code out against.

RocknRoll

Your code:

#!E:\Interwoven\TeamSite\iw-perl\bin\iwperl.exe

use Win32:LE;
#use strict;

my $user="";

$user=Win32:LE->GetObject("LDAP://CN=user name,CN=Users,DC=mynetwork,DC=com");

print $user->{'displayname'}, "\n";

print <<EOF;
<?xml version='1.0' encoding='UTF-8'?>
<substitution><default>$user</default></substitution>
EOF

The print line above will break the script for inline usage. The code should probably look something like:

#!E:\Interwoven\TeamSite\iw-perl\bin\iwperl.exe

use Win32:LE;
use strict;
use warnings;

my $user=Win32:LE->GetObject("LDAP://CN=user name,CN=Users,DC=mynetwork,DC=com");

print qq(<?xml version='1.0' encoding='UTF-8'?>
<substitution><default>$user->{displayname}</default></substitution>
);

I'm guessing on some of it since I don't have an AD server to try this code out against.

Hi Fish,

I ran the code against the AD server and received nothing as in no username. Any other suggestions would be great?

PS - I am trying to capture the username from AD in DCT field called Current User.

nipper

Try running this straight from the command line. Are you getting anything from AD ?

RocknRoll

Try running this straight from the command line. Are you getting anything from AD ?

Hi Nipper!

Nope! Its blank. I am just puzzled now.

nipper

Did you ever get anything back from AD ?

I, like fish, will be of little help on the AD part as I do not have the servers to test with.

RocknRoll

Did you ever get anything back from AD ?

I, like fish, will be of little help on the AD part as I do not have the servers to test with.

Originally - I was getting HashRef.. I am attaching that part of code for reference.

nipper

That hashref was my bad.

I had you do the my $user as a normal variable. It should have been my %user; showing it is a hash

ISCBorisB

Originally - I was getting HashRef.. I am attaching that part of code for reference.

I *think* that the syntax should be something like that:
my $user = Win32: Smiley Surprised

LE->GetObject('LDAP://Your_LDAP_Server/CN=...');

If no LDAP host is given:
my $user = Win32: Smiley Surprised

LE->GetObject('LDAP:///CN=...'); # Yes, three slashes not two

You may also want to check last OLE Error after GetObject. Like that:
print $user->LastError(); # Remove this line after debugging is done