Network Security

Is there a way to get Windows login username?

•

Join Date: Jul 2007

Posts: 19

Reputation: mohammadalipak is an unknown quantity at this point

Solved Threads: 0

mohammadalipak mohammadalipak is offline

Offline

Newbie Poster

Is there a way to get Windows login username?

Aug 21st, 2007

I'm logging employees' internet access for compliance with company policy. As soon as an employee visits a blocked site, he is redirected to a warning page (on the intranet). This warning page gets their IP addresses & emails them to the IT department. I also need their usernames.I have found 3 different solutions which all work from //localhost/ (when the page is run from the client's PC). However, this warning page will be on the intranet & I need to know whether it would work from the intranet or not? Or what modifications do I need to make? Here are the 3 ways:
1. ASP

 Help with Code Tags 
 asp Syntax (Toggle Plain Text) 
<%
Response.Write Request.ServerVariables("LOGON_USER")
%>
<%
Response.Write Request.ServerVariables("LOGON_USER")
%>

2. VBScript

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
<SCRIPT LANGUAGE="VBScript">
Dim objNet
On Error Resume Next 'If fail to create object then display error
' (press no message)
Set objNet = CreateObject("WScript.NetWork")
If Err.Number <> 0 Then 'If err
MsgBox "Do not press ""No"" If your browser warns you."
Document.Location = "info.html" 'Display document by placing name again
End if
 
Dim strInfo
strInfo = "User Name is " & objNet.UserName & vbCRLF & _
"Computer Name is " & objNet.ComputerName & vbCRLF & _
"Domain Name is " & objNet.UserDomain
MsgBox strInfo
 
document.write(strInfo)
 
Set objNet = Nothing 'Destroy the Object
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Dim objNet
On Error Resume Next 'If fail to create object then display error
' (press no message)
Set objNet = CreateObject("WScript.NetWork")
If Err.Number <> 0 Then 'If err
MsgBox "Do not press ""No"" If your browser warns you."
Document.Location = "info.html" 'Display document by placing name again
End if

Dim strInfo
strInfo = "User Name is " & objNet.UserName & vbCRLF & _
"Computer Name is " & objNet.ComputerName & vbCRLF & _
"Domain Name is " & objNet.UserDomain
MsgBox strInfo

document.write(strInfo)

Set objNet = Nothing 'Destroy the Object
</SCRIPT>

3. Reading a File from employee's PC

Is there a way to read a file from employees' PC from the intranet - without them knowing?

Thank a lot in advance.

•

Join Date: Jan 2007

Posts: 1,765

Reputation: DimaYasny will become famous soon enough

Solved Threads: 85

DimaYasny

Offline

Posting Virtuoso

Re: Is there a way to get Windows login username?

Aug 26th, 2007

•

Originally Posted by mohammadalipak

Is there a way to read a file from employees' PC from the intranet - without them knowing?

Thank a lot in advance.

if you have administrator access there is.

Real stupidity always beats Artificial Intelligence. (Terry Pratchett)

BA BizMg, MCSE, DCSE, Linux+, Network+

•

Join Date: Apr 2007

Posts: 1,120

Reputation: cguan_77 has a little shameless behaviour in the past

Solved Threads: 93

cguan_77

Offline

Veteran Poster

Re: Is there a way to get Windows login username?

Oct 6th, 2007

hi, dimaYasny is right..you should have an adminsitrator account to do this..but i think it's against the odds..reading files of other users without their permissions..once they know about this, they will screwed you up...