Request.ServerVariables

Hej!
Med hjälp av den här koden:

<%
Response.Write("<B>ServerVariabler</B><BR>")
Blanks="<B>Tomma Variabler</B>"
For Each Key in Request.ServerVariables
If Instr(Key,"_ALL")+Instr(Key,"ALL_")=0 Then
temp=Trim( Request.ServerVariables(Key))
If Len(temp)=0 Then
Blanks=Blanks&Key&","
Else
Response.Write Key &"=<B>"&temp&"</B><BR>"
End If
End If
Next
Response.WriteMid(Blanks,1,Len(Blanks)-2)
%>

ServerVariabler
APPL_MD_PATH=/LM/W3SVC/1/ROOT
APPL_PHYSICAL_PATH=C:\InetPub\wwwroot\
CONTENT_LENGTH=0
GATEWAY_INTERFACE=CGI/1.1
HTTPS=off
INSTANCE_ID=1
INSTANCE_META_PATH=/LM/W3SVC/1
LOCAL_ADDR=172.22.141.42
PATH_INFO=/Blanketter/idrott/utkast.asp
PATH_TRANSLATED=C:\InetPub\wwwroot\Blanketter\idrott\utkast.asp
REMOTE_ADDR=172.22.141.221
REMOTE_HOST=172.22.141.221
REQUEST_METHOD=GET
SCRIPT_NAME=/Blanketter/idrott/utkast.asp
SERVER_NAME=intranet
SERVER_PORT=80
SERVER_PORT_SECURE=0
SERVER_PROTOCOL=HTTP/1.1
SERVER_SOFTWARE=Microsoft-IIS/4.0
URL=/Blanketter/idrott/utkast.asp
HTTP_ACCEPT=*/*
HTTP_ACCEPT_LANGUAGE=sv
HTTP_CONNECTION=Keep-Alive
HTTP_HOST=intranet
HTTP_USER_AGENT=Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)
HTTP_COOKIE=ASPSESSIONIDGGQQQHGC=NMAFKKPALIOFGLJMIGHAGHCC
HTTP_ACCEPT_ENCODING=gzip, deflate
Tomma variabler
AUTH_PASSWORD,
AUTH_TYPE,
AUTH_USER,
CERT_COOKIE,
CERT_FLAGS,
CERT_ISSUER,
CERT_KEYSIZE,
CERT_SECRETKEYSIZE,
CERT_SERIALNUMBER,
CERT_SERVER_ISSUER,
CERT_SERVER_SUBJECT,
CERT_SUBJECT,
CONTENT_TYPE,
HTTPS_KEYSIZE,
HTTPS_SECRETKEYSIZE,
HTTPS_SERVER_ISSUER,
HTTPS_SERVER_SUBJECT,
LOGON_USER,
QUERY_STRING,
REMOTE_USER,
============
Med hjälp av detta:
Varför kan jag inte få fram mitt login?

Vad menar du med login?

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

Det jag var ute efter var att få se mitt login på nätverket med koden:

Du är inloggad som <b><%=Request.serverVariables("REMOTE_USER")%>

Problemet är löst genom att tilldela rätt rättigheter för aktuellt bibliotek.

Därför vill jag komma med en ny fråga.
Kan jag lista alla användare som har rättigheter till biblioteket?

grunnade lite på detta igår men orkade inte fördjupa mig ordentligt, men jag lyckades lista alla användare som en domän hade.

set ObjD = GetObject("WinNT://DINDOMÄN")
objD.Filter = Array("User") 'User, Group, Computer och Domain kan man filtrera på, eller inte använda filer alls och visa allt.

for each objU in ObjD
	Response.Write "name: " & objU.Name & "<br>"
	Response.Write "class: " & objU.Class & "<br>"
	Response.Write "parent: " & objU.parent & "<br>"
	Response.Write "schema: " & objU.schema & "<br>"
	Response.Write "path: " & objU.ADsPath & "<br><hr><br>"

next

Om du söker på internet på ADSI kanske du kan komma längre, man borde kunna tränga djupare ner och få fram mer information.

------------------
There is a curse.

They say:
"May You Live in Interesting Times"

Tackar, men jag lyckades inte få fram det.
Jag får felmeddelande redan vid:

set ObjD = GetObject("WinNT://GARN")

Kan det bero på att jag inte har access till hela servern?
Jag "äger" ett bibliotek på servern där jag fick för mig att jag kunde lista alla som hade tillgång till biblioteket.
Jag har i alla fall fått följande info om servern/biblioteket:

ServerVariabler
APPL_MD_PATH=/LM/W3SVC/1/ROOT
APPL_PHYSICAL_PATH=C:\InetPub\wwwroot\
AUTH_TYPE=NTLM
AUTH_USER=GARN\evesve
CONTENT_LENGTH=0
GATEWAY_INTERFACE=CGI/1.1
HTTPS=off
INSTANCE_ID=1
INSTANCE_META_PATH=/LM/W3SVC/1
LOCAL_ADDR=172.22.141.42
LOGON_USER=GARN\evesve
PATH_INFO=/Blanketter/idrott/server.asp
PATH_TRANSLATED=C:\InetPub\wwwroot\Blanketter\idrott\server.asp
REMOTE_ADDR=172.22.141.221
REMOTE_HOST=172.22.141.221
REMOTE_USER=GARN\evesve
REQUEST_METHOD=GET
SCRIPT_NAME=/Blanketter/idrott/server.asp
SERVER_NAME=intranet
SERVER_PORT=80
SERVER_PORT_SECURE=0
SERVER_PROTOCOL=HTTP/1.1
SERVER_SOFTWARE=Microsoft-IIS/4.0
URL=/Blanketter/idrott/server.asp
HTTP_ACCEPT=*/*
HTTP_CONNECTION=Keep-Alive
HTTP_HOST=intranet
HTTP_USER_AGENT=Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)
HTTP_ACCEPT_ENCODING=gzip, deflate

Vad ska jag skriva in i stället för GARN?