Jeg fandt dette script, men jeg får kun Brugers navn (altså ikke adr. tlf. o.s.v.):
<%@ Language=VBScript %>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("Active") = 0
'Application("Kimler")=0
End Sub
Sub Application_OnEnd
'nothing needed here for this example
End Sub
Sub Session_OnStart
Session.Timeout = 1
Session("Start") = Now
Application.lock
Application("Active") = Application("Active") + 1
'Application("Kimler") = Application("Kimler") + ??
'add 1 to active visitor count when new visitor arrives
Application.unlock
End Sub
Sub Session_OnEnd
Application.lock
Application("Active") = Application("Active") - 1
'Application("Kimler") = Application("Kimler")-???
'subtract 1 active visitor when visitor leaves
Application.unlock
End Sub
</SCRIPT>
<body>
<%
sFullUser = trim(Request.ServerVariables ("LOGON_USER"))
if len(sFullUser) = 0 then
Response.Write "You need to disable anonymous access for this code to work."
Response.End
End if
response.write sFullUser
iPos = InStr(sFullUser, "\")
sDomain = Left(sFullUser, iPos - 1)
sUser = Mid(sFullUser, iPos + 1)
Set objUser = GetObject("
WinNT://" & sDomain & "/" & sUser)
%>
</font></td>
</tr>
<tr>
<td><a href="java script:void(0);"><img border="0" src="images/kunde.gif" onclick="vis('user_info.asp',400,500);"></a></td>
<td width="100%"><font face="verdana" size="2" color="#880000"><b>
<%=objUser.FullName%></b></font></td>
</tr>
</table>
</td>
<td>
<p align="right"><img border="0" src="images/rtop.gif"></td>
</tr>
</table>
<%
set objUser = nothing
%>
</body>
