469,275 Members | 1,871 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,275 developers. It's quick & easy.

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

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

%>

--


Jul 19 '05 #1
6 5919
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&usern ame=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" <je*********@gratefuldead.com> wrote in message
news:%2****************@TK2MSFTNGP11.phx.gbl...
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

Jul 19 '05 #2
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.
"Ray at <%=sLocation%>" <ra*@ajf8jalskdfna.sefrhja7yasdf.com> wrote in
message news:#c*************@TK2MSFTNGP11.phx.gbl...
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&usern ame=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" <je*********@gratefuldead.com> wrote in message
news:%2****************@TK2MSFTNGP11.phx.gbl...
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


Jul 19 '05 #3
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.
Jul 19 '05 #4
worked like a charm, thank you.

--
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" <ad******@devbuilder.org> wrote in message
news:3f*********************@news.frii.net...
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.

Jul 19 '05 #5
Are you sure those aren't ex-girlfriends emailing you? ;o)

Sorry, couldn't resist.

-Andrew

* * * Sent via DevBuilder http://www.devbuilder.org * * *
Developer Resources for High End Developers.
Jul 19 '05 #6
:-)

--
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" <ad******@devbuilder.org> wrote in message
news:3f*********************@news.frii.net...
Are you sure those aren't ex-girlfriends emailing you? ;o)

Sorry, couldn't resist.

-Andrew

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

Jul 19 '05 #7

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

2 posts views Thread by Xerxes | last post: by
2 posts views Thread by Richard | last post: by
7 posts views Thread by Dave A | last post: by
10 posts views Thread by Noozer | last post: by
1 post views Thread by | last post: by
reply views Thread by suresh191 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.