Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Getting NT/2000 Username
- Thread starter Michael42
- Start date
harwooddale
Programmer
The code is as follows:
<SCRIPT TYPE="text/VBScript">
<!--
Dim objNet
On Error Resume Next
Set objNet = CreateObject("WScript.NetWork"
Dim strInfo
strInfo = "UserName is " & objNet.UserName & vbCRLF & _
"ComputerName is " & objNet.ComputerName & vbCRLF & _
"DomainName is " & objNet.UserDomain
MsgBox strInfo
//-->
</SCRIPT>
<SCRIPT TYPE="text/VBScript">
<!--
Dim objNet
On Error Resume Next
Set objNet = CreateObject("WScript.NetWork"
Dim strInfo
strInfo = "UserName is " & objNet.UserName & vbCRLF & _
"ComputerName is " & objNet.ComputerName & vbCRLF & _
"DomainName is " & objNet.UserDomain
MsgBox strInfo
//-->
</SCRIPT>
The short answer is:
request.servervariables("LOGON_USER"
If you put the following on an ASP page you will get a list of all variables and their values:
<h2>Request Server Variables List</h2>
<%
Dim V
response.Write "<Table>"
For Each V in Request.ServerVariables
Response.Write "<TR><TD VAlign='top'><b>" & V & "</b></TD><TD VAlign='top'>" & Request.ServerVariables(V) & "</Font></TD></TR>"
Next
Response.Write "</Table>"
%>
request.servervariables("LOGON_USER"
If you put the following on an ASP page you will get a list of all variables and their values:
<h2>Request Server Variables List</h2>
<%
Dim V
response.Write "<Table>"
For Each V in Request.ServerVariables
Response.Write "<TR><TD VAlign='top'><b>" & V & "</b></TD><TD VAlign='top'>" & Request.ServerVariables(V) & "</Font></TD></TR>"
Next
Response.Write "</Table>"
%>
- Thread starter
- #4
harwooddale
Programmer
Hi DJS2,
I have put the code as you suggested into a asp file but it doesn't work. I just get the heading Request Server Variables List on the screen. Do I have to add anything else to the file?
Thanks
James
I have put the code as you suggested into a asp file but it doesn't work. I just get the heading Request Server Variables List on the screen. Do I have to add anything else to the file?
Thanks
James
Hi James,
I assume that your web server is configured for ASP?
I'm using IIS5 (it also works on IIS4) and the code is hand-written in Front Page 2000. It is a standard ASP page written in VBScript. I use it all of the time to test connections.
I hope that this helps.
David
I assume that your web server is configured for ASP?
I'm using IIS5 (it also works on IIS4) and the code is hand-written in Front Page 2000. It is a standard ASP page written in VBScript. I use it all of the time to test connections.
I hope that this helps.
David
This is the full page script that I use:....
============================================================
<%@Language='vbscript'%>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Server Variables</title>
</head>
<body>
<h2>Request Server Variables List</h2>
<%
Dim V
response.Write "<Table>"
For Each V in Request.ServerVariables
Response.Write "<TR><TD VAlign='top'><b>" & V & "</b></TD><TD VAlign='top'>" & Request.ServerVariables(V) & "</Font></TD></TR>"
Next
Response.Write "</Table>"
%>
</body>
</html>
============================================================
============================================================
<%@Language='vbscript'%>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Server Variables</title>
</head>
<body>
<h2>Request Server Variables List</h2>
<%
Dim V
response.Write "<Table>"
For Each V in Request.ServerVariables
Response.Write "<TR><TD VAlign='top'><b>" & V & "</b></TD><TD VAlign='top'>" & Request.ServerVariables(V) & "</Font></TD></TR>"
Next
Response.Write "</Table>"
%>
</body>
</html>
============================================================
- Status
Similar threads
- Locked
- Question
