Hi We have a simple asp page that query LDAP attribrute.
Everithing is working fine using a native domain account. but when
using an external account we have an error 70, acces denie.
Here's some basic info on our structure.
- Domain/Forest A with Exchange
- Domain/Forest B with external accounts.
- Forest A Trus Forest B and "Vice Versa"
- asp page on a Exchange FrontEnd server on default web site (same as
Exchange)
- asp page is using basic authentificatio n.
- Authentificatio n work fine using native domain account or External
domain Account.
- Getting native Windows attributes work fine with External account
but the attributes starting with "ms-Exch" do not come out.(Exchange
Attribute).
Here is the code I have. Maybe it's not optimise but it's feel free to
argue about it.
############### ############### ############### ############### ############### #############
<html>
<head>
<title>Boites mail over Quota</title>
</head>
<body>
<%
On Error Resume Next
Dim cComputerName
cComputerName = "server.domainA .com"
Const cWMINameSpace = "root/MicrosoftExchan geV2"
Const cWMIInstance = "Exchange_Mailb ox"
Dim sWinMgmts ' Connection string for WMI
Dim oWMIExchange ' Exchange Namespace WMI object
Dim lExchange_Mailb oxes ' ExchangeLogons collection
Dim oExchange_Mailb ox ' A single ExchangeLogon WMI object
'Write a heading into the output file
'oOutputFile.wr iteline("Nom BAL;Taille (KB);Nombre d'elements;Stat ut")
Response.Write "<table border=""1""><t r
bgcolor=""#99CC FF""><td><b><ce nter>Nom BAL</center></b></
td><td><b><cent er>Taille (KB)</center></b></td><td><b><cent er>Nombre
d'elements</center></b></td><td><b><cent er>Statut</center></b></td>"
' Create the object string, indicating WMI (winmgmts), using the
' current user credentials (impersonationL evel=impersonat e),
' on the computer specified in the constant cComputerName, and
' using the CIM namespace for the Exchange provider.
sWinMgmts = "winmgmts:{impe rsonationLevel= impersonate}!//"& _
cComputerName&"/"&cWMINameS pace
Set oWMIExchange = GetObject(sWinM gmts)
' Verify we were able to correctly set the object.
If Err.Number <0 Then
'oOutputFile.wr iteline("Error: " & err.number & ", " &
err.description )
Response.Write "<br>" & "Erreur : " & err.number & ", " &
err.description
Else
' The Resources that currently exist appear as a list of
' Exchange_Mailbo x instances in the Exchange namespace.
Set lExchange_Mailb oxes = oWMIExchange.In stancesOf(cWMII nstance)
' Were any Exchange_Mailbo x Instances returned?
If (lExchange_Mail boxes.count 0) Then
' If yes, do the following:
' Iterate through the list of Exchange_Mailbo x objects.
For Each oExchange_Mailb ox in lExchange_Mailb oxes
Select Case oExchange_Mailb ox.StorageLimit Info
Case 2
Response.Write "<tr bgcolor=""#FFFF 33""><td>" &
oExchange_Mailb ox.MailboxDispl ayName & "</td><td>" &
oExchange_Mailb ox.Size & "</td><td>" & oExchange_Mailb ox.TotalItems &
"</td><td>" & oExchange_Mailb ox.StorageLimit Info & "</td>"
Case 4
Response.Write "<tr bgcolor=""#FF00 00""><td>" &
oExchange_Mailb ox.MailboxDispl ayName & "</td><td>" &
oExchange_Mailb ox.Size & "</td><td>" & oExchange_Mailb ox.TotalItems &
"</td><td>" & oExchange_Mailb ox.StorageLimit Info & "</td>"
End Select
Next
Response.Write "</table>"
Else
' If no Exchange_Mailbo x instances were returned,
' display that.
Response.Write "WARNING: No Exchange_Mailbo x instances were
returned."
End If
End If
%>
</body>
</html>
############### ############### #### End of Code
############### ############### ############### "
If you think I should post on other newsgroup, please let me know
witch one.
Best regards.
Christian
