Passing value from one script on one page to another script on another page.

[Robert Cohen]

Hi All,
I have what is an easy question for you all, but I have not idea (this
is in vbscript). I have this script below that works great. It figures out
the user logged in and gives the AD information about the user.
On another webpage, I have a staff directory which lists all the users.
What I would like to do is create a link on the staff directory that will
open up this information page with the user specified (instead of the logged
in user) What I would like to know is how should the link be set up to pass
the value (the value of the oUser.sAMAccountName that is being clicked) and
to put it into the script below. I know how to set up a hyperlink but need
to know how it should read (is it like
www.bbhtx.org/information.asp?oUser.sAMAccountname="rcohen" or something
like that)? And how would I declare the value in the new page? Please
advise.

<%
d = Request.ServerVariables("REMOTE_USER")
p = Instr(d, "\")
logonUser = Right(d, Len(d) - p)

On Error Resume Next
Dim oContainer

Dim FileSystem

Set
oContainer=GetObject("LDAP://ou=Staff,DC=baltimorebehavioralhealth,DC=org")

EnumerateUsers oContainer

Set oContainer = Nothing

Sub EnumerateUsers(oCont)
Dim oUser
For Each oUser In oCont
Select Case LCase(oUser.Class)
Case "user"

If oUser.sAMAccountName= logonUser Then

Response.Write "<h2>" & oUser.FullName & "'s Basic Information" &
"</h2><TABLE BORDER=0> <TR><TH></TH><TH></TH></TR>"
Response.Write "<tr><td><b>First Name:</b></td><td></td><td>" &
oUser.givenName & ""
Response.Write "<tr><td><b>Last Name:</b></td><td></td><td>" & oUser.sn &
"</td></tr>"
Response.Write "<tr><td><b>Extension:</b></td><td></td><td>" &
oUser.TelephoneNumber & "</td></tr>"
Response.Write "<tr><td><b>Title:</b></td><td></td><td>" & oUser.Title &
"</td></tr>"
Response.Write "<tr><td><b>Department:</b></td><td></td><td>" &
oUser.Department & "</td></tr>"
Response.Write "<tr><td><b>Office:</b></td><td></td><td>" &
oUser.physicalDeliveryOfficeName & "</td></tr>"
Response.Write "<tr><td><b>Mobile Phone:</b></td><td></td><td>" &
oUser.Mobile & "</td></tr>"

strManager = oUser.Manager
If strManager <> "" Then
Set objManager = GetObject("LDAP://" & oUser.Manager)
strCN = objManager.displayname
strNTName = objManager.sAMAccountName
End If

Response.Write "<tr><td><b>Manager: </b></td><td></td><td>" & strCN &
"</td></tr>"

Response.Write "<tr><td><b>Directly Reports to " & oUser.givenName &
":</b></td><td></td><td></td></tr>"

strDirectReports = _
oUser.GetEx("directReports")

For Each strValue in strDirectReports
Set strDirect = GetObject("LDAP://" & strValue)
strCN = strDirect.displayname

Response.Write "<tr><td></td><td></td><td>" & strCN & "</td></tr>"
Next


LogonUser = oUser.sAMAccountName & ".jpg"
%></table><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica">
<p><img border="0" src="Pictures/Staff/<% =LogonUser %>" width="150"
height="200"></p>

<%
Response.Write "<h3>Additional Information For Administrative Purposes
Only</h3>"
%> <!--mstheme--></font><TABLE BORDER=0>
<TR><TH><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica"></TH>
<TH><!--mstheme--><font face="Trebuchet MS, Arial, Helvetica"></TH>
</TR>
<%
Response.Write "<tr><td><b>profilePath:</td><td></b>" & oUser.ProfilePath &
"</td></tr>"
Response.Write "<tr><td><b>scriptPath:</td><td></b>" & oUser.ScriptPath &
"</td></tr>"
Response.Write "<tr><td><b>homeDirectory:</td><td></b>" &
oUser.HomeDirectory & "</td></tr>"
Response.Write "<tr><td><b>homeDrive:</td><td></b>" & oUser.HomeDrive &
"</td></tr>"
Response.Write "<tr><td><b>Account Created:</td><td></b>" &
oUser.whenCreated & "</td></tr>"



End If

Case "organizationalunit" , "container"

EnumerateUsers oUser
End Select
Next
End Sub

%>

--

 

[Ray at]

If you only have one domain and all your users are in the same OU, you'd
just have to pass the username, like:

site.com/showuser.asp?user=username

But, if your users are stored in all different container or you have
different domains, you'd have to have to pass that info, to:


site.com/showuser.asp?dc=domain2&dc=com&ou=Accounting&username=jsmith

With that, you could do:

<%
Dim sOU, sCN, sDC, aOU, aCN, aDC
Dim sUsername
sOU = Request.Querystring("ou") : aOU = Split(sOU, ", ")
sCN = Request.Querystring("cn") : aCN = Split(sCN, ", ") '''no container in
this example
sDC = Request.Querystring("dc") : aDC = Split(sDC, ", ")
sUsername = Request.Querystring("username")

sLDAP = "LDAP://"
For iCounter = 0 To UBound(aOU)
sLDAP = sLDAP & "ou=" & aOU(iCounter) & ","
Next

For iCounter = 0 To UBound(aCN)
sLDAP = sLDAP & "cn=" & aCN(iCounter) & ","
Next


For iCounter = 0 To UBound(aDC)
sLDAP = sLDAP & "dc=" & aDC(iCounter) & ","
Next

sLdap = Left(sLDAP, Len(sLDAP) - 1)



Then, do:

Set oContainer = GetObject(sLDAP)
'''code, code, code
If oUser.sAMAccountName= sUsername Then...


'''I'm sure there's a much more graceful way to build the ldap string out of
a querystring than what I demonstrated...

Ray at home

 

[Robert Cohen]

Okay, I have my first page with the output of for example:

http://www.bbhtx.org/Information2.asp?logonUser=dallen

or

http://www.bbhtx.org/Information2.asp?logonUser=rcohen

The question that I am having a hard time is using that value in the new
page. For example if I do

Passed Value= <% =logonuser %>

my output is:

Passed Value=

I would have fiqured it would be Passed Value=dallen or Passed Value= rcohen
with the respective code.

What am I doing wrong?

--
Sorry, I am no longer including my e-mail address as I am getting to much
spam. I really have no desire to enlarge "it" by three inches, that is even
if I get e-mailed 10 times a day from different e-mail addresses so I can't
block it.
Besides I finally came to believe what others have said, if you have a
question, you should ask the group as others might benefit from it. Anyone
on the group who I converse with off topic or on the side, can easily find
my e-mail address.

 

[Andrew Durstewitz]

Your need...

LogonUser = Request.QueryString("logonUser")

That will set the value of LogonUser equal to the URL String Variable
logonUser

-Andrew

* * * Sent via DevBuilder http://www.devbuilder.org * * *
Developer Resources for High End Developers.