<%
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?
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.
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:
