<%
Dim WsNet
Set WsNet = Server.CreateObject("Wscript.Network")

Response.Write "Datornamn: " & WsNet.ComputerName & "
"
Response.Write "Användare: " & WsNet.UserName & "
"
Response.Write "Domän: " & WsNet.UserDomain & "
"

Set WsNet = Nothing
%>