Estoy trantado de hacer una Intarnet, utilizando el directorio activo, pero no me devuelve nada la consulta. Os adjunto el codigo fuente para ver si me podeis ayudar:
Código:
<html>
<head>
<style>
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCCCCC" >
<%
Dim oRootDSE, oCon, oCmd, oRecordSet
Dim sDomainADsPath, sUser, sPassword, sGroup, sProperties
Dim aDescription, aMember, iCount,strUsername
Set oRootDSE = GetObject("LDAP://RootDSE")
sDomainADsPath = "LDAP://" & oRootDSE.Get("defaultNamingContext")
Set oRootDSE = Nothing
Set oCon = Server.CreateObject("ADODB.Connection")
sUser = "Dominio\prueba"
sPassword = "prueba"
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 & " >"
oCmd.CommandText = oCmd.CommandText & ";(&(objectCategory=group)(name=" & sGroup & "));" & sProperties & ";subtree"'
oCmd.Properties("Page Size") = 100
Set oRecordSet = oCmd.Execute
%>
</body>
</html>
y me devuelve:
Provider error '80040e37'
Table does not exist.
/certsrv/Prueba/Default.asp, line 53
Espero que me podais ayudar por que estoy un poco
Hasta ahora