Getting this error in code exported from another webserver.

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objADUserQuery.errorsText'

/commonfunctions.asp, line 48

Code:

Function GetGal(strUserID, GalField)
'-- Create the objADUserQuery Object and assign values to the required
properties.
'-- These must be set for the class to correctly execute.
Dim objADUserQuery, strIDName
Set objADUserQuery = New ActiveDirectoryUserQuery
objADUserQuery.targetDomain = "abc.com"
objADUserQuery.addFilter "cn", strUserId & "*"

'-- Modify the Filters to narrow or broaden the search.
objADUserQuery.removeFilter "cn"
objADUserQuery.removeAllFilters
objADUserQuery.setFilter "cn","IN('" & strUserID & "')"

'-- to ensure you get only user accounts asigned to real people, add
'-- this mail filter (applications of workstations don't usually get
'-- email accounts.
' objADUserQuery.addFilter "mail","* [at] abc.com*"
' objADUserQuery.addFilter "mail","* [at] abcd.com*"

'-- Add an order by clause to sort the results.
objADUserQuery.orderBy = "sn"

'-- Execute the Query and Process the Results
objADUserQuery.executeQuery

'-- Check for Errors. Display errors if they exist.
If(objADUserQuery.errorCount > 0) Then
Error>>>
Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>")) <<<

'-- If no errors exist, process the results set.

Can't for the life of me figure this one out. Basically the userid is parsed
from the windows logon and the username token is passed to the getgal
function. It performs an ldap read on the active directory and, if all is
well, this code never runs. However, if there is something wrong, we perform
this to display the object errors. We have migrated a small user community
from their old domain (lets say domain aaa.com) to a new corporate entity on
this new domain, abc.com.
The code works as designed on the old domain, however, fails on the new
domain and this problem is preventing us from seeing the actual ldap error.

Change;

objADUserQuery.errorsText

To;

objADUserQuery.ErrorText

As an FYI;

MSDN: ErrorText Property
http://msdn.microsoft.com/library/en-us/cpref/html/frlrfsyst emcodedomcompile
rcompilererrorclasserrortexttopic.asp

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"PaulieS" <PaulieS [at] discussions.microsoft.com> wrote in message
news:433E6E4F-429C-4388-8F28-0675DD51958A [at] microsoft.com...
> Getting this error in code exported from another webserver.
>
> Microsoft VBScript runtime error '800a01b6'
>
> Object doesn't support this property or method:
'objADUserQuery.errorsText'
>
> /commonfunctions.asp, line 48
>
> Code:
>
> Function GetGal(strUserID, GalField)
> '-- Create the objADUserQuery Object and assign values to the required
> properties.
> '-- These must be set for the class to correctly execute.
> Dim objADUserQuery, strIDName
> Set objADUserQuery = New ActiveDirectoryUserQuery
> objADUserQuery.targetDomain = "abc.com"
> objADUserQuery.addFilter "cn", strUserId & "*"
>
> '-- Modify the Filters to narrow or broaden the search.
> objADUserQuery.removeFilter "cn"
> objADUserQuery.removeAllFilters
> objADUserQuery.setFilter "cn","IN('" & strUserID & "')"
>
> '-- to ensure you get only user accounts asigned to real people, add
> '-- this mail filter (applications of workstations don't usually get
> '-- email accounts.
> ' objADUserQuery.addFilter "mail","* [at] abc.com*"
> ' objADUserQuery.addFilter "mail","* [at] abcd.com*"
>
> '-- Add an order by clause to sort the results.
> objADUserQuery.orderBy = "sn"
>
> '-- Execute the Query and Process the Results
> objADUserQuery.executeQuery
>
> '-- Check for Errors. Display errors if they exist.
> If(objADUserQuery.errorCount > 0) Then
> Error>>>
> Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>")) <<<
>
> '-- If no errors exist, process the results set.
>
> Can't for the life of me figure this one out. Basically the userid is
parsed
> from the windows logon and the username token is passed to the getgal
> function. It performs an ldap read on the active directory and, if all is
> well, this code never runs. However, if there is something wrong, we
perform
> this to display the object errors. We have migrated a small user community
> from their old domain (lets say domain aaa.com) to a new corporate entity
on
> this new domain, abc.com.
> The code works as designed on the old domain, however, fails on the new
> domain and this problem is preventing us from seeing the actual ldap
error.

Completed the change... no change in error.

Is there a way to list supported methods/properties for an object?

"Steven Burn" wrote:

> Change;
>
> objADUserQuery.errorsText
>
> To;
>
> objADUserQuery.ErrorText
>
> As an FYI;
>
> MSDN: ErrorText Property
> http://msdn.microsoft.com/library/en-us/cpref/html/frlrfsyst emcodedomcompile
> rcompilererrorclasserrortexttopic.asp
>
> --
> Regards
>
> Steven Burn
> Ur I.T. Mate Group
> www.it-mate.co.uk
>
> Keeping it FREE!
>
> "PaulieS" <PaulieS [at] discussions.microsoft.com> wrote in message
> news:433E6E4F-429C-4388-8F28-0675DD51958A [at] microsoft.com...
> > Getting this error in code exported from another webserver.
> >
> > Microsoft VBScript runtime error '800a01b6'
> >
> > Object doesn't support this property or method:
> 'objADUserQuery.errorsText'
> >
> > /commonfunctions.asp, line 48
> >
> > Code:
> >
> > Function GetGal(strUserID, GalField)
> > '-- Create the objADUserQuery Object and assign values to the required
> > properties.
> > '-- These must be set for the class to correctly execute.
> > Dim objADUserQuery, strIDName
> > Set objADUserQuery = New ActiveDirectoryUserQuery
> > objADUserQuery.targetDomain = "abc.com"
> > objADUserQuery.addFilter "cn", strUserId & "*"
> >
> > '-- Modify the Filters to narrow or broaden the search.
> > objADUserQuery.removeFilter "cn"
> > objADUserQuery.removeAllFilters
> > objADUserQuery.setFilter "cn","IN('" & strUserID & "')"
> >
> > '-- to ensure you get only user accounts asigned to real people, add
> > '-- this mail filter (applications of workstations don't usually get
> > '-- email accounts.
> > ' objADUserQuery.addFilter "mail","* [at] abc.com*"
> > ' objADUserQuery.addFilter "mail","* [at] abcd.com*"
> >
> > '-- Add an order by clause to sort the results.
> > objADUserQuery.orderBy = "sn"
> >
> > '-- Execute the Query and Process the Results
> > objADUserQuery.executeQuery
> >
> > '-- Check for Errors. Display errors if they exist.
> > If(objADUserQuery.errorCount > 0) Then
> > Error>>>
> > Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>")) <<<
> >
> > '-- If no errors exist, process the results set.
> >
> > Can't for the life of me figure this one out. Basically the userid is
> parsed
> > from the windows logon and the username token is passed to the getgal
> > function. It performs an ldap read on the active directory and, if all is
> > well, this code never runs. However, if there is something wrong, we
> perform
> > this to display the object errors. We have migrated a small user community
> > from their old domain (lets say domain aaa.com) to a new corporate entity
> on
> > this new domain, abc.com.
> > The code works as designed on the old domain, however, fails on the new
> > domain and this problem is preventing us from seeing the actual ldap
> error.
>
>
>

Hi all... changed entry for 'objADUserQuery.errorsText' to
'objADUserQuery.errorText'. No change, error still the same. Any other
suggestions would be appreciated.

"PaulieS" wrote:

> Getting this error in code exported from another webserver.
>
> Microsoft VBScript runtime error '800a01b6'
>
> Object doesn't support this property or method: 'objADUserQuery.errorsText'
>
> /commonfunctions.asp, line 48
>
> Code:
>
> Function GetGal(strUserID, GalField)
> '-- Create the objADUserQuery Object and assign values to the required
> properties.
> '-- These must be set for the class to correctly execute.
> Dim objADUserQuery, strIDName
> Set objADUserQuery = New ActiveDirectoryUserQuery
> objADUserQuery.targetDomain = "abc.com"
> objADUserQuery.addFilter "cn", strUserId & "*"
>
> '-- Modify the Filters to narrow or broaden the search.
> objADUserQuery.removeFilter "cn"
> objADUserQuery.removeAllFilters
> objADUserQuery.setFilter "cn","IN('" & strUserID & "')"
>
> '-- to ensure you get only user accounts asigned to real people, add
> '-- this mail filter (applications of workstations don't usually get
> '-- email accounts.
> ' objADUserQuery.addFilter "mail","* [at] abc.com*"
> ' objADUserQuery.addFilter "mail","* [at] abcd.com*"
>
> '-- Add an order by clause to sort the results.
> objADUserQuery.orderBy = "sn"
>
> '-- Execute the Query and Process the Results
> objADUserQuery.executeQuery
>
> '-- Check for Errors. Display errors if they exist.
> If(objADUserQuery.errorCount > 0) Then
> Error>>>
> Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>")) <<<
>
> '-- If no errors exist, process the results set.
>
> Can't for the life of me figure this one out. Basically the userid is parsed
> from the windows logon and the username token is passed to the getgal
> function. It performs an ldap read on the active directory and, if all is
> well, this code never runs. However, if there is something wrong, we perform
> this to display the object errors. We have migrated a small user community
> from their old domain (lets say domain aaa.com) to a new corporate entity on
> this new domain, abc.com.
> The code works as designed on the old domain, however, fails on the new
> domain and this problem is preventing us from seeing the actual ldap error.

Do you still get the error if you change;

Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>"))

To;

Response.Write Replace(Err.Number & " - " & Err.Description,vbCrLf,"<BR>")

??

Or;

On Error Resume Next
Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>"))
If Err <> 0 Then
Set sASPErr = Server.GetLastError
Response.Write "Error: " & sASPErr.Description
End If

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Paul Sloboda" <PaulSloboda [at] discussions.microsoft.com> wrote in message
news:32305F89-7DE8-40FE-BF98-5508F606EE31 [at] microsoft.com...
> Hi all... changed entry for 'objADUserQuery.errorsText' to
> 'objADUserQuery.errorText'. No change, error still the same. Any other
> suggestions would be appreciated.
>
> "PaulieS" wrote:
>
> > Getting this error in code exported from another webserver.
> >
> > Microsoft VBScript runtime error '800a01b6'
> >
> > Object doesn't support this property or method:
'objADUserQuery.errorsText'
> >
> > /commonfunctions.asp, line 48
> >
> > Code:
> >
> > Function GetGal(strUserID, GalField)
> > '-- Create the objADUserQuery Object and assign values to the required
> > properties.
> > '-- These must be set for the class to correctly execute.
> > Dim objADUserQuery, strIDName
> > Set objADUserQuery = New ActiveDirectoryUserQuery
> > objADUserQuery.targetDomain = "abc.com"
> > objADUserQuery.addFilter "cn", strUserId & "*"
> >
> > '-- Modify the Filters to narrow or broaden the search.
> > objADUserQuery.removeFilter "cn"
> > objADUserQuery.removeAllFilters
> > objADUserQuery.setFilter "cn","IN('" & strUserID & "')"
> >
> > '-- to ensure you get only user accounts asigned to real people, add
> > '-- this mail filter (applications of workstations don't usually get
> > '-- email accounts.
> > ' objADUserQuery.addFilter "mail","* [at] abc.com*"
> > ' objADUserQuery.addFilter "mail","* [at] abcd.com*"
> >
> > '-- Add an order by clause to sort the results.
> > objADUserQuery.orderBy = "sn"
> >
> > '-- Execute the Query and Process the Results
> > objADUserQuery.executeQuery
> >
> > '-- Check for Errors. Display errors if they exist.
> > If(objADUserQuery.errorCount > 0) Then
> > Error>>>
> > Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>")) <<<
> >
> > '-- If no errors exist, process the results set.
> >
> > Can't for the life of me figure this one out. Basically the userid is
parsed
> > from the windows logon and the username token is passed to the getgal
> > function. It performs an ldap read on the active directory and, if all
is
> > well, this code never runs. However, if there is something wrong, we
perform
> > this to display the object errors. We have migrated a small user
community
> > from their old domain (lets say domain aaa.com) to a new corporate
entity on
> > this new domain, abc.com.
> > The code works as designed on the old domain, however, fails on the new
> > domain and this problem is preventing us from seeing the actual ldap
error.

Thanks Steve...

Solution 1 solves error 800a01b6... returns 0 - 0 - 0 - as the results of
the response.write.

Solution 2 solves error 800a01b6... returns Error: Error: Error: as the
result of the response.write.

Strange results... errorCount > 0 yet no error description!
Any other ideas for interpreting the error in this object?

"Steven Burn" wrote:

> Do you still get the error if you change;
>
> Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>"))
>
> To;
>
> Response.Write Replace(Err.Number & " - " & Err.Description,vbCrLf,"<BR>")
>
> ??
>
> Or;
>
> On Error Resume Next
> Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>"))
> If Err <> 0 Then
> Set sASPErr = Server.GetLastError
> Response.Write "Error: " & sASPErr.Description
> End If
>
> --
> Regards
>
> Steven Burn
> Ur I.T. Mate Group
> www.it-mate.co.uk
>
> Keeping it FREE!
>
> "Paul Sloboda" <PaulSloboda [at] discussions.microsoft.com> wrote in message
> news:32305F89-7DE8-40FE-BF98-5508F606EE31 [at] microsoft.com...
> > Hi all... changed entry for 'objADUserQuery.errorsText' to
> > 'objADUserQuery.errorText'. No change, error still the same. Any other
> > suggestions would be appreciated.
> >
> > "PaulieS" wrote:
> >
> > > Getting this error in code exported from another webserver.
> > >
> > > Microsoft VBScript runtime error '800a01b6'
> > >
> > > Object doesn't support this property or method:
> 'objADUserQuery.errorsText'
> > >
> > > /commonfunctions.asp, line 48
> > >
> > > Code:
> > >
> > > Function GetGal(strUserID, GalField)
> > > '-- Create the objADUserQuery Object and assign values to the required
> > > properties.
> > > '-- These must be set for the class to correctly execute.
> > > Dim objADUserQuery, strIDName
> > > Set objADUserQuery = New ActiveDirectoryUserQuery
> > > objADUserQuery.targetDomain = "abc.com"
> > > objADUserQuery.addFilter "cn", strUserId & "*"
> > >
> > > '-- Modify the Filters to narrow or broaden the search.
> > > objADUserQuery.removeFilter "cn"
> > > objADUserQuery.removeAllFilters
> > > objADUserQuery.setFilter "cn","IN('" & strUserID & "')"
> > >
> > > '-- to ensure you get only user accounts asigned to real people, add
> > > '-- this mail filter (applications of workstations don't usually get
> > > '-- email accounts.
> > > ' objADUserQuery.addFilter "mail","* [at] abc.com*"
> > > ' objADUserQuery.addFilter "mail","* [at] abcd.com*"
> > >
> > > '-- Add an order by clause to sort the results.
> > > objADUserQuery.orderBy = "sn"
> > >
> > > '-- Execute the Query and Process the Results
> > > objADUserQuery.executeQuery
> > >
> > > '-- Check for Errors. Display errors if they exist.
> > > If(objADUserQuery.errorCount > 0) Then
> > > Error>>>
> > > Response.Write(Replace(objADUserQuery.errorsText,vbCrLf,"<BR>")) <<<
> > >
> > > '-- If no errors exist, process the results set.
> > >
> > > Can't for the life of me figure this one out. Basically the userid is
> parsed
> > > from the windows logon and the username token is passed to the getgal
> > > function. It performs an ldap read on the active directory and, if all
> is
> > > well, this code never runs. However, if there is something wrong, we
> perform
> > > this to display the object errors. We have migrated a small user
> community
> > > from their old domain (lets say domain aaa.com) to a new corporate
> entity on
> > > this new domain, abc.com.
> > > The code works as designed on the old domain, however, fails on the new
> > > domain and this problem is preventing us from seeing the actual ldap
> error.
>
>
>