Ребят, возникла следующая проблема:
Необходимо с помощью asp скриптов (ххх.asp) определять имя пользователя на сайте  через active directory. У меня не выходит, пишет следующую ошибку:

Provider ошибка '80040e09' 
Ionoonoaoao i?aai ainooia. 
/instr/ajnj/13.asp, line 36  

36-я строка = Set oRecordSet = oCmd.Execute
Запарился искать проблему.....помогите...... у меня IIS 6.0. Если через windows аутентификацию, то подробно напишите как и где что изменять.......скиньте нормальный скрипт.
Всех заранее благодарю.
Исходник:
<%@ Language="VBScript" %>
<%
Option Explicit
%>
<HTML>
<HEAD>
<TITLE>Listing of Domain Groups</TITLE>
</HEAD>
<%
Dim oRootDSE, oCon, oCmd, oRecordSet
Dim sDomainADsPath, sUser, sPassword, sGroup, sProperties
Dim aDescription, aMember, iCount

Set oRootDSE        = GetObject("LDAP://RootDSE")
sDomainADsPath        = "LDAP://" & oRootDSE.Get("defaultNamingContext")
Set oRootDSE        = Nothing

Set oCon        = Server.CreateObject("ADODB.Connection")

sUser            = "UserName"
sPassword        = "Password"

oCon.Provider        = "ADsDSOObject"

oCon.Open "ADProvider", sUser, sPassword

Set oCmd        = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon

sProperties        = "name,ADsPath,description,member"
sGroup            = "*"

oCmd.CommandText    = "<" & sDomainADsPath & ">;(&(objectCategory=group)(name=" & sGroup & "));" & sProperties & ";subtree"
oCmd.Properties("Page Size") = 100

Set oRecordSet = oCmd.Execute

Response.Write("<strong> Global Groups for the domain: " & Replace(Mid(sDomainADsPath,11), ",DC=", ".") & "</strong>")

Response.Write("<table border='1'>")
Response.Write("<tr><th>Name</th><th>ADsPath</th><th>Description</th><th>Members</th></tr>")
Response.Write("<font size=-2>")
While Not oRecordSet.EOF
    Response.Write("<tr><td>" & oRecordSet.Fields("name") & "</td>")
    Response.Write("<td>" & oRecordSet.Fields("ADsPath") & "</td>")
    aDescription = oRecordSet.Fields("description")
    Response.Write("<td> ")
    If Not IsNull(aDescription) Then Response.Write aDescription(0)
    Response.Write("</td>")
    aMember = oRecordSet.Fields("member")
    Response.Write("<td><select size = '5'> ")
    If Not IsNull(aMember) Then
        For icount = 0 to UBound(aMember)
            Response.Write("<option>" & aMember(iCount))
        Next
    End If
    Response.Write("</td></tr>")
    oRecordSet.MoveNext
Wend
Response.Write("</font>")
Response.Write("</table>")

oRecordSet.Close
oCon.Close

Set oRecordSet = Nothing
Set oCon = Nothing
%>
</BODY>
</HTML>