Win2000 domain og IIS

Du skal bruge noget ADSI.....har koden, finder den lige om snart.....

On Local Error GoTo ErrorHandler
    'The text fileds where you enter your info
    vUser = txtUser.Text
    vPass = txtPass.Text
    vDomain = txtDomain.Text
    'Tells that it is a WinNT domain
    Set dso = GetObject("WinNT:")
    'Gets the variables into the ADSI and contacts the Domain Controler
    Set domain = dso.OpenDSObject("WinNT://" & vDomain & "", "" & vUser & "", "" & vPass & "", ADS_SECURE_AUTHENTICATION)
Exit Sub

'The errorhandler catches an error and tells the user what the error is
ErrorHandler:
    If Err = -2147023570 Then MsgBox "Unknown User or Bad Password", , "Login Failure"
    If Err = -2147467259 Then MsgBox "Unknown Domain", , "Login Failure"
Exit Sub
End Sub

Det er taget ud af noget VB jeg selv har strikket sammen, jeg kan desværrer ikke hjælpe med at omskrive det til asp.......
Men prøv at kigge lidt på http://msdn.microsoft.com

På denne måde er det sikkert, og det kan laves sådan at man kan tilgå det ude fra og ikke behøver sidde på en comp på domainet......

Håber det er et skridt på vejen

/Tubber

txtUser.Text, txtPass.Text og txtDomain.Text er textfelter, så det skal nok være nogle form felter

Problemet er at jeg ikke ved hvad Domain'et hedder.

IIS er installeret på en Win2000 maskine, som er meldt ind i domain'et og det samme ved jeg om de klienter, som lovligt må se på siden.

Jeg havde tænkt noget i stil med: (Psodokode)

Function ValidateUser()
  if Server.Domain = Client.Domain then
    ValidateUser = Client.UserName
  else
    ValidateUser = ""
  end if

Med server tænker jeg på den Win2000 maskine, som har IIS installeret og client er den maskine, hvor brugeren sidder med sin Internet eksplorer.
Det er ok, at tricket her kun fungere med IE vertion et eller andet og nyere, og at det ikke dutter med Netscape ;-)

Jeg kan godt se at jeg skal bruge noget ADSI, men det hele skulle helst kunne fungere dynamist og uden brugeren skal skrive sit domain/brugernavn eller skrive serverens domain.

Jeg kan desværer ikke hjælpe mere end jeg har gjort

Løsningen blev ikke så fin, som jeg havde håbet, men Anonym access til IIS slåes fra og dermed bruges Windows logon. Når det er sket, så dur følgende :

dim UserID, Password
UserID = Request.ServerVariables("AUTH_USER")
Password = Request.ServerVariables("AUTH_PASSWORD")
Response.write "Mig : " & UserID & " , " & Password &  "<br>"
 
Dim objIADSUser
Set objIADSUser = GetObject("WinNT://domaine/" & UserID & ",user")
Response.Write "Name : " & objIADSUser.Name & "<br>"
Response.Write "FullName : " &objIADSUser.FullName & "<br>"