Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Get User WINNT Logon Name?

Posted on 2004-04-23
12
Medium Priority
?
351 Views
Last Modified: 2010-04-11
I am writing an Intranet app and need to get the user WINNT login name to allow access to the application.  I am using ASP.NET to write the app.  How do I capture the users WINNT logon name?
Thus far I have the following and it is not working:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        Dim authUserName As String
        Dim aspUserName As String
        authUserName = User.Identity.Name
        aspUserName = Principal.WindowsIdentity.GetCurrent.Name
        Dim userNameOnly As String = authUserName
        userNameOnly = userNameOnly.Replace("XXXX9999\", "")

       
         If authUserName = "XXXX9999\ABC" Then
            ///*** Allow user to view page****\\\
        Else
            ///*** Display message not allowed to view page****\\\
           
        End If

    End Sub
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Thank you.

LadyGail
0
Comment
Question by:LadyGail
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 3
  • 2
  • +1
12 Comments
 
LVL 5

Expert Comment

by:bitter_chicken
ID: 10901298
Hey ladygail
I've used this code before, but it is VB6 - I have absolutely NO IDEA of the differences between VB6  <> VB.NET so I'll post it here unchanged, hope it helps.

----------------------------------------------------------------------------------------------

Option Explicit
'*******************************************************************
'* Project Location = C:\PROJECTX
'* This code is copyright (c), 1999 Andrea VB Programming News Group
'*******************************************************************
'************** API's
' Used to Get the logged on User Name - see GetPCUser Function
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'**********************
'* Public Variables etc
Public FileName As String   '* Hold the loaded project name
'* You can use an array but I found it better in this case to use the collection
Public LineHold1 As New Collection   '* collections to hold parsed information from .vbp file
Public LineHold2 As New Collection
'* Microsoft Word Object - Use Project on the menu then select
'* References then select Microsoft Office 9.0 Objects I have Office 2000
'* for Word 97 use 8.0 objects

Public Function GetPCUser() As String
Dim szBuffer As String, lBuffSize As Long, RetVal As Boolean

'* Create the buffer
szBuffer = Space(255)

lBuffSize = Len(szBuffer)

RetVal = GetUserName(szBuffer, lBuffSize)
If RetVal Then
    '* Strip off the null character on the User name
    GetPCUser = Left$(szBuffer, InStr(szBuffer, vbNullChar) - 1)
   
Else
    '* nope nothing there??
     GetPCUser = "UnknownUser"
End If
End Function

0
 

Author Comment

by:LadyGail
ID: 10901471
Not really, it need the code to run in asp.net.
0
 
LVL 5

Expert Comment

by:bitter_chicken
ID: 10901629
oh well sorry

)-;

bc
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 14

Expert Comment

by:JohnK813
ID: 10902189
Don't know if you can access environmental variables in ASP, but you can give this a shot:

Environ("USERNAME")

(also, sometimes the username may be listed under the "USER" or "UNAME" environmental variables)
0
 

Author Comment

by:LadyGail
ID: 10902324
Environ("USERNAME") writes--ASPNET to the browser.
0
 
LVL 14

Expert Comment

by:JohnK813
ID: 10902917
OK, that's probably because it's looking at the USERNAME on your server (and ASPNET is considered the user here), not the USERNAME of the computer accessing your page.

Hmmm... I don't know how to do this, sorry.  You may want to look into capturing the IP address or hostname, and converting that into a username (assuming each person has their own computer and only use that computer).

Another idea would be to use a cookie - the user enters their username once, and it's stored for future use.
0
 

Author Comment

by:LadyGail
ID: 10903038
Thank you.
I got it to work.
0
 
LVL 14

Expert Comment

by:JohnK813
ID: 10903069
May I ask how?  Using Environ()?
0
 

Author Comment

by:LadyGail
ID: 10903106
Initially, the code I posted was shared with me by a co-worker.
However, I was getting errors using his code as posted above.
At this suggestion I looked through ALL of the files in his project to determine which file would result in the script functioning properly. Thus I happened to the file(s) that made the above script work.  Which file, I don't know.
But it works.
0
 

Author Comment

by:LadyGail
ID: 12508789
My working solutions is listed:

            Dim authUserName As String
            Dim aspUserName As String
            authUserName = User.Identity.Name
            aspUserName = Principal.WindowsIdentity.GetCurrent.Name
            Dim userNameOnly As String = authUserName
            userNameOnly = userNameOnly.Replace("D0960001\", "")

            If Trim(userNameOnly) = Trim(DSPageData2.Tables("ViewUsers").Rows(0).Item("User1")) Then
                If Trim(userNameOnly) = Trim(DSPageData2.Tables("ViewUsers").Rows(0).Item("User2")) Then
                    If Trim(userNameOnly) = Trim(DSPageData2.Tables("ViewUsers").Rows(0).Item("User3")) Then
                        If Trim(userNameOnly) = Trim(DSPageData2.Tables("ViewUsers").Rows(0).Item("User4")) Then
                        Else
                            Response.Redirect("../ErrorMessage/UnauthorizedAccess.aspx")
                        End If
                    End If
            End If
        End If

Thank you.

LadyGail

0
 

Accepted Solution

by:
modulo earned 0 total points
ID: 12535560
Closed, 125 points refunded.

modulo
Community Support Moderator
Experts Exchange
0

Featured Post

Looking for the Wi-Fi vendor that's right for you?

We know how difficult it can be to evaluate Wi-Fi vendors, so we created this helpful Wi-Fi Buyer's Guide to help you find the Wi-Fi vendor that's right for your business! Download the guide and get started on our checklist today!

Question has a verified solution.

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

Hey fellow admins! This time, I have a little fairy tale for you. As many tales do, it starts boring and then gets pretty gory. I hope you like it. TL;DR: It is about an important security matter, you should read it if you run or administer Windows …
Check out what's been happening in the Experts Exchange community.
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…

610 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