Kan detta vara ngt?
if request("GETUSER") = "" Then
' write out the test form
With Response
.write "<FORM ACTION=USER.ASP METHOD=POST>"
.Write "<INPUT TYPE=TEXT NAME=oDomain>ENTER DOMAIN<BR>"
.write "<INPUT TYPE=TEXT NAME=oUSer>ENTER USER NAME TO CHECK<BR>"
.write "<INPUT TYPE=PASSWORD NAME=oPassword>ENTER USER PASSWORD<BR>"
.Write "<INPUT TYPE =SUBMIT NAME=GETUSER VALUE=CHECK>"
.write "</FORM>"
end with
else
' Form was autopostback, grab the form variables ...
oDomain= Request("oDomain")
oUser = Request("oUser")
oPassword = Request("oPassword")
' begin "Kludge" VBScript error trapping (see Javascript version fortry / catch handling)
on error resume next
' Set reference to the ADSI interface to NT User Manager ...
Set objUser = GetObject("WinNT://" & oDomain & "/" & oUser )
if err.number <> 0 then
Response.write "Login Error---"
Response.end
end if
If len(objUser.FullName) < 1 then
response.write "User Not Found!!!!"
response.end
else
on error resume next
' We verify the user password by using the ChangePassword method to change
' the password back to itself.
' Since this requires that first parameter password be correct, it's an easy
' way to circumvent the fact
' that NT won't give actual access to the user's password to make a comparison.
' Be aware that on some systems,
' Admin policy settings may force the password
' to have to be changed after X number of uses
' of this method...
objUser.ChangePassword oPassword, oPassword
if err.number <> 0 then
Response.write" BAD PASSWORD!"
Response.end
else
' Now write out the ADSI User object properties that are supported by Windows 2000 ...
With Response
.write "USER AUHTENTICATED!<BR>"
.write "Properties for user " & objUser.FullName & ": <BR>"
.Write "AccountExpirationDate: " & objUser.AccountExpirationDate & "<BR>"
.Write "BadLoginCount: " & objUser.BadLoginCount & "<BR>"
.write "Description: " & objUser.Description & "<BR>"
.write "HomeDirectory: " & objUser.HomeDirectory & "<BR>"
.write "IsAccountLocked: " & objUser.IsAccountLocked & "<BR>"
.write "LastLogin: " & objUser.LastLogin & "<BR>"
.write "LastLogoff: " & objUser.LastLogoff & "<BR>"
.write "LoginHours: " & objUser.LoginHours & "<BR>"
.write "LoginScript: " & objUser.LoginScript & "<BR>"
.write "LoginWorkstations: " & objUser.LoginWorkstations & "<BR>"
.write "MaxStorage: " & objUser.MaxStorage &"<BR>"
.write "PasswordExpirationDate: " & objUser.PasswordExpirationDate & "<BR>"
.write "PasswordMinimumLength: " & objUser.PasswordMinimumLength & "<BR>"
.write "PasswordRequired: " & objUser.PasswordRequired & "<BR>"
.write "Profile: " & objUser.Profile & "<BR>"
.write "Account Disabled: " & objUser.AccountDisabled
end with
end if
end if
end if