Solved

How can i convert a asp VB script into a asp.net VB script.

Posted on 2008-10-17
2
399 Views
Last Modified: 2011-09-20
What this script does is it shows the user account that is logged on and there phone number from active directory.

I have this code working in asp.
but i cannot get the code to work in asp.net

Can someone help me out.
<%@ LANGUAGE=VBSCRIPT %>

<%Option Explicit%>

 

<%

 ' Check to see if the session variable is already populated.

  If Session("LOGON_USER") = "" Then

    ' Check to see if the user has logged on at all.

    If Request.ServerVariables("LOGON_USER") = "" Then

      ' Force authentication if not.

      Response.Clear

      Response.Status = "401 Access Denied"

      Response.End

    Else

      ' Store the client's user name in a session variable.

      Session("LOGON_USER") = Request.ServerVariables("LOGON_USER")

      ' Strip out an NT domain from the user name.

      If InStr(Session("LOGON_USER"),"\") then

                    Session("LOGON_USER") = Mid(Session("LOGON_USER"), InStr(Session("LOGON_USER"), "\") + 1)

 

      End If

    End If

  End If

Function getADUserInfo(strUID)

        on error resume next

        strGeneralLookupError = false

    strBase = "<LDAP://DC=[domain], DC=[domain ext ie local or com]>"

        strFilter = "(sAMAccountName=" & strUID & ")" 

        strAttributes = "cn, mail, company, givenName, sn, ADsPath, name, sAMAccountName, telephoneNumber"

        'strAttributes = "cn, company, givenName, sn, ADsPath, name, sAMAccountName, telephoneNumber"

        strScope = "subtree"    

        strFullCommand = strBase & ";" & strFilter & ";" & strAttributes & ";" & strScope

        set rsADUserInfo = Server.CreateObject("ADODB.Recordset")

        set     rsADUserInfo = connAD.Execute(strFullCommand)

        if err.number <> 0 then

                strGeneralLookupError = true

        end if

        set getADUserInfo = rsADUserInfo

        set rsADUserInfo = Nothing

End Function

 

Sub getUserData(p_strUserID)

        on error resume next

        set rsUserData = Server.CreateObject("ADODB.Recordset")

        set rsUserData = getADUserInfo(p_strUserID)

        if not rsUserData.EOF then

                strUserGN = rsUserData("givenName")

                strUserSN = rsUserData("sn")

                strUserOU = rsUserData("company")

                strUserEmail = rsUserData("mail")

                strUserPhone = rsUserData("telephoneNumber")

        else

                strADLookupSuccess = false

        end if

        rsUserData.Close

        set rsUserData = Nothing

End Sub

 

on error resume next

 

response.expires = 0

 

DIM connAD, rsUserData, rsADUserInfo

DIM strUserGN, strUserSN, strUserOU, strUserEmail, strUserPhone

DIM strBase, strFilter,strAttributes, strScope, strFullCommand

DIM strGeneralLookupError, strADLookupSuccess

DIM strUserID

 

strUserGN = "The user can not be found in the system."

strGeneralLookupError = false

strADLookupSuccess = true

 

set connAD = Server.CreateObject("ADODB.Connection")

connAD.Provider = "ADsDSOObject"

connAD.Properties("User ID") = "[domain]\[user account]" ' ### remember to make sure this user has rights to access AD

connAD.Properties("Password") = "[password]"

connAD.Properties("Encrypt Password") = true

connAD.Open

 

strUserID = Session("LOGON_USER")

call getUserData(strUserID)

 

connAD.Close

set connAD = Nothing

%>

 

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title>ASP Code to access AD with LDAP Page</title>

</head>

<body>

<%=strUserGN%> 

<%=strUserSN%><br />

<%=strUserOU%><br />

<%=strUserEmail%><br />

<%=strUserPhone%><br />

</body>

</html>

Open in new window

0
Comment
Question by:phoenixfire425
2 Comments
 
LVL 7

Accepted Solution

by:
maXXXeE earned 125 total points
ID: 22739954
For a start, asp.net uses VB.Net or C# and not VBScript.

ASP.Net is a very different thing compared to  ASP 3(or classic asp), u cant just copy the asp3 code and get it running.

u could check out this url
http://www.startvbdotnet.com/aspsite/asp/
0
 
LVL 6

Author Comment

by:phoenixfire425
ID: 22950035
Thank you that was a little useful
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Suggested Solutions

IntroductionWhile developing web applications, a single page might contain many regions and each region might contain many number of controls with the capability to perform  postback. Many times you might need to perform some action on an ASP.NET po…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now