'Variablen deklarieren.
Dim domUser

'Objekte Definieren.
Set domUser = GetObject("WinNT://" & Request("dom") & "/"
& Request("user"))

If domUser.Name = Request("user") and domUser.Password =
Request("pass") Then
Response.Write "True"
End if

The problem is that the method domUser.Password does not
exist. I don't know where i can find more information
about the objects and the method.
I can't find anything in the msdn or at the Microsoft hp.
Could anybody help me ?

Greetings from Germany
Manuel Rodriguez

--
Michael Harris
Microsoft.MVP.Scripting
Seattle WA US

on error resume next

Dim objAdsObject
Dim strUserName
Dim strPassword
Dim strDomainPath
Dim strDomain
Dim strUserADsPath
Dim objGroup

strUserName = request.form("user")
strPassword = request.form("pass")
strDomain = request.Form("dom")
strDomainPath = "WinNT://" & strDomain
strUserADsPath = strDomainPath & "/" & strUsername

Set objAdsObject = GetObject("WinNT:").OpenDSObject
(strDomainPath, strDomain & "\" & strUserName,strPassword,
0)

If err.number = 0 then

set objGroup = GetObject(strUserADsPath)

 For each member in objGroup.groups
        response.write member.name & ""
next

set objGroup = nothing
set objAdsObject = nothing

elseif err.number = "-2147023570" then
response.write "Incorrect logon credentials"
else response.write err.number & ": " & err.description
end if

But this solution operates only with my Workstation not
with a DC....
Where can i find a Object Description ?
Can anybody help me ?