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; } } }

Not able to pull active directory Names

sandy123

Hi

I have written a small perl program to pull the first name and last name from the active directory if we provide the id of the user. This perl program works fine when I run it on command line. But when I try to copy the code by making neccessary changes to WFT file and invoke the WF so that I can display the first name and last name in the approver dropdown, I am not able to pull them. THe dropdown comes empty.
I even tried to logging into log file but the approver dropdown always comes empty.

Not sure why the code is not working when embedded in the workflow.
Any clues will help.

Teamsite version - Interwoven 6.7.1 SP1

Thanks,
Sandeep

Find more posts tagged with

Comments

Sailesh

Hi

I have written a small perl program to pull the first name and last name from the active directory if we provide the id of the user. This perl program works fine when I run it on command line. But when I try to copy the code by making neccessary changes to WFT file and invoke the WF so that I can display the first name and last name in the approver dropdown, I am not able to pull them. THe dropdown comes empty.
I even tried to logging into log file but the approver dropdown always comes empty.

Not sure why the code is not working when embedded in the workflow.
Any clues will help.

Teamsite version - Interwoven 6.7.1 SP1

Thanks,
Sandeep

If your program is pulling the names correctly then check the code where you are displaying them? If you can share you code, may be can suggest answer.

ie_width_issue_report.rptdesign

ISCBorisB

Hi

I have written a small perl program to pull the first name and last name from the active directory if we provide the id of the user. This perl program works fine when I run it on command line. But when I try to copy the code by making neccessary changes to WFT file and invoke the WF so that I can display the first name and last name in the approver dropdown, I am not able to pull them. THe dropdown comes empty.
I even tried to logging into log file but the approver dropdown always comes empty.

Not sure why the code is not working when embedded in the workflow.
Any clues will help.

Teamsite version - Interwoven 6.7.1 SP1

Thanks,
Sandeep

Chances are, you are missing some required Environment Variables in the TS thread. Log them out from your code and compare
to the command line Variables, see what's missing. If that's indeed the case, set Environment variables explicitly in the
code, make sure to use a BEGIN{...} Block

sandy123

Here is the code.
==================================================
sub iw_ADgetrole
{
my($grp) = @_;
my($html) = "";
print ALLOG " I am insided iw_ADgetrole \n";

# my @groupMembers = enumDomainGroups($groupName);
# 08-10-07 call new function
# my @groupMembers = getGroupMembers($groupName);

((my ($grp) = @_) == 1) || die "usage: getGroupMembers \n";

if (Win32: Smiley Surprised

LE->LastError( )){
die Win32: Smiley Surprised

LE->LastError();
print ALLOG "Error is".Win32: Smiley Surprised

LE->LastError();
}

my @groupMembers;
print ALLOG " Group name is $grp \n";

# get ADO object, set the provider, open the connection
my $ADO = Win32: Smiley Surprised

LE->new("ADODB.Connection");
$ADO->{Provider} = "ADsDSOObject";
$ADO->Open("ADSI Provider");
my $ADSPath = "LDAP://DC=prod,DC=travp,DC=net";
# prepare and then execute the query

my $groups = $ADO->Execute("<$ADSPath>;(&(objectclass=group)(cn=$grp));distinguishedName;SubTree");
$grp = $groups->Fields(0)->{Value};
print ALLOG " Group name is $grp \n";

$groups->Close;

# cn = e-id, givenName = first name, sn = last name, sAMAccountName = windows login id
#my $users = $ADO->Execute("<$ADSPath>;(&(objectclass=user)(memberOf=$grp));cn,givenName,sn;SubTree");

# using sAMAAccountName instead of cn allows us to put this in anytime
my $users = $ADO->Execute("<$ADSPath>;(&(objectclass=user)(memberOf=$grp));sAMAccountName,givenName,sn;SubTree");
until ($users->EOF){
push(@groupMembers, [$users->Fields(0)->{Value} , $users->Fields(1)->{Value} , $users->Fields(2)->{Value}]);
$users->MoveNext;
}
$users->Close;

$ADO->Close;

$html = "< select size='1'>\n\n";

foreach $_ (@groupMembers)
{
#$html .= "" . $$_[2] .", ".$$_[1]. "\n";
$html .= "" . $$_[2] . "\n";
}
$html .= "\n";

return($html);
}

$iw_ADapprovers1_html = iw_ADgetrole("iw_Clock_Globe_Approver");
==========================================================

This is the code which I am using inside the template_script section. I am not getting any value for $grp or $users and becuase of which It is not going in the foreach loop where I am building the html.

Have guys done any thing like this?

Thanks in advance for helping.

ChartForEachGroup.rptdesign

Adam Stoller

Please read ISCBorisB's post again - carefully.

sandy123

I am sorry I did not understand what ISCBorisB meant by the Environment Variables in the TS thread. Can you please tell me what it means ?

ISCBorisB

I am sorry I did not understand what ISCBorisB meant by the Environment Variables in the TS thread. Can you please tell me what it means ?

As far as I recall, your platform is Windows. So, log-in to the TS server and type 'set' Command without parameters in your
command prompt. An output is Shell's Environment Variables, note them somewhere or simply type c:\> set >myEnvVars.txt

Now, in your code Log-out the Environment Variables that TS bothered to supply to your script. Like that:

Your_LOG_Function_Here(qq($_ = $ENV{$_}\n)) foreach(keys(%ENV));
This Environment Variable List will differ from the one you've obtained by 'set'.

It is probable that some variables are critical for your code to function. Unfortunately this aspect of packages functionality
is sometimes poorly if at all documented, you'd have to use trial and error in such case. When you set Environment variables
in the code make sure you do that at pre-compile phase. Like that:

BEGIN {
$ENV{'VariableName'} = 'VariableValue';
...
}

sandy123

Thanks for your reply ISCBorisB. I did the things you asked for and found some differences in the environment variables which I got by 'set' and which I got in WF. And dont see any thing is missing.

Also one more thing I am able to connect to Active directory and fetch the use id's (aliases) for specific group. But I am unable to get the Full names i.e. first name and last name. Since I am able to communicate with Active directory and able to fetch the user id's, I dont think there is any problem with the enviornment variables.

I am attaching the list of env variables i got from WF code and one i got from set command. Let me know if I am missing out some Important difference.

Thank you for help !

ISCBorisB

Also one more thing I am able to connect to Active directory and fetch the use id's (aliases) for specific group. But I am unable to get the Full names i.e. first name and last name. Since I am able to communicate with Active directory and able to fetch the user id's, I dont think there is any problem with the enviornment variables

If that's the case your environment is (probably) correct. My guess would be that you have a bug somewhere in
HTML generation. You'd have to debug your code to find exactly where it fails. If I were you I would start by
analyzing the source of WF Instantiation screen, check generated fragments. You know, "View Source" and start from there.

sandy123

There is no problem in the HTML part. I am not getting the results itself from the active directory.

my $objRS = $ADO->Win32: Smiley Surprised

LE::Execute("<>;(&(objectClass=group)(objectCategory=group)(sAMAccountName=All Claim Users));sAMAccountName,distinguishedName;subtree");

print "Value == ".$objRS->RecordCount;

In the above code, I am getting $objRS->RecordCount = 1 when I run the perl program from command line. But when I run exact above code in WF it returns me 0.

I am gone crazy now, finding no clues.
Any Ideas why there is difference?

ISCBorisB

There is no problem in the HTML part. I am not getting the results itself from the active directory.

my $objRS = $ADO->Win32:LE::Execute("<>;(&(objectClass=group)(objectCategory=group)(sAMAccountName=All Claim Users));sAMAccountName,distinguishedName;subtree");

print "Value == ".$objRS->RecordCount;

In the above code, I am getting $objRS->RecordCount = 1 when I run the perl program from command line. But when I run exact above code in WF it returns me 0.

I am gone crazy now, finding no clues.
Any Ideas why there is difference?

Just in case - in the command-line mode, have you tested your script with the perl or iwperl interpreter?
If it's perl, try iwperl and make sure that it works. Note that in the past the following change often helped
me in dealing with CPAN packages in the TeamSite Environment. Add that to the beginning of your script, see if
it helps

BEGIN {
$ENV{'SystemRoot'} = q(C:\WINDOWS);
};

SortByGroup.rptdesign

sandy123

I was not able to fix the issue. But i did it using Teams.xml. In which I kept full names of the users. I was getting the userid's from the Active directory and then i parse the XML using these user id's as Key and fetch the full names.

Thank you all for your responses.