Re: ADSI Problem
- From: "Al Mulnick" <amulnick_No_SPAM@xxxxxxxxxxx>
- Date: Mon, 15 Jan 2007 08:57:34 -0500
Honestly? It surprises me that it works at all. I wouldn't have thought
mixing WINNT provider with adspath would work as you have it.
IADS sometimes surprises me though :)
You may want to post this on the VBScripting news groups and possibly for
IIS. You may also want to check the IIS logs to see what errors you're
throwing. You have no authentication mechanism that I see in there, so
you're relying on anonymous connections (and using WINNT provider) meaning
that you should be logging some attempts (if not try enabling auditing to
see them better) to the domain.
"robinwilson16" <robinwilson16@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:AA50061B-2F91-41D8-92DC-DC38D21B5460@xxxxxxxxxxxxxxxx
Hello
I have written a script to authenticate Active Directory users via ADSI
within a vb script in IIS.
It works fine on one pc which is a member server.
But on the webserver which is not part of the domain, the script works ok
for a while then stops working with the following errors when attempting
to
authenticate the users:
Error: 424
Description: Object Required
Error: -2147023677
Description: Object Required
Restarting IIS normally fixes it until it stops working again.
Please can someone tell me why this might be happening.
The code is below:
Thanks
Robin
'Get the username and password from the form
Dim strUserName
strUserName = Request.Form("username")
Dim strPassword
strPassword = Request.Form("password")
'Get the page action
Dim act
act = Request.Form("act")
Dim iFlags
iFlags = Request.Form("Flags")
'If the action is authenticate
if act = "auth" then
'If the AD path is not empty
if (not strADsPath= "") then
'Bind to the ADSI object and authenticate the user
Dim oADsObject
Dim objUser
Dim objGroup
Dim accountDisabled
Dim accessLevel
Dim isAdmin
Dim isTeacher
Set oADsObject = GetObject(strADsPath)
Dim strADsNamespace
Dim oADsNamespace
strADsNamespace = left(strADsPath, instr(strADsPath, ":"))
set oADsNamespace = GetObject(strADsNamespace)
Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strUserName,
strPassword, 0)
'Set up a user object to enable information about the user to be obtained
Set objUser = GetObject("WinNT://school.local/" & strUserName )
'Set up a group object to enable group information to be obtained
Set objAdminGroup = GetObject("WinNT://school.local/" & adminGroup )
Set objTeacherGroup = GetObject("WinNT://school.local/" & teacherGroup )
'Boolean to say whether a user is a member if the given group
isAdmin = objAdminGroup.IsMember(objUser.ADsPath)
isTeacher = objTeacherGroup.IsMember(objUser.ADsPath)
'If there was an error
if not (Err.number = 0) then
...
.
- Follow-Ups:
- Re: ADSI Problem
- From: robinwilson16
- Re: ADSI Problem
- References:
- ADSI Problem
- From: robinwilson16
- ADSI Problem
- Prev by Date: ADSI Problem
- Next by Date: Re: ADSI Problem
- Previous by thread: ADSI Problem
- Next by thread: Re: ADSI Problem
- Index(es):
Relevant Pages
|
