Solved

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

Posted on 2008-10-17
2
404 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

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

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…
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

749 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