Active directory

[stormystormy]

Hallo
Also irgendwie will das nicht in meinen Kopf!

Kann mir wer helfen und sagen wie ich diese Function umschreriben muss
dass sie in asp.net funktioniert?
Denke mal dass es sich hier um ein Berchtigungsproblem handelt

Hoffe mal ja
Danke Roland

Function GetLDAPPathOfSAMAccountName(strSAMAccountName,strDefaultNamingContext)
Dim adoConnection
Dim objCommand
Dim objRecordSet

Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = adoConnection

objCommand.CommandText ="<LDAP://" + strDefaultNamingContext + _
" >;(&(objectCategory=User)" + _
"(samAccountName=" + strSAMAccountName + _
"));samAccountName,ADSPath;subtree"

Set objRecordSet = objCommand.Execute

If objRecordset.RecordCount = 0 Then
WScript.Echo "* SAMAccountName " + strSAMAccountName + " kann nicht gefunden werden" + vbCRLF
GetLDAPPathOfSAMAccountName = ""
Else
WScript.Echo "* " + strSAMAccountName + " wurde gefunden" + vbCRLF
GetLDAPPathOfSAMAccountName = objRecordSet.Fields.Item(1)
End If

Set objCommand = Nothing
adoConnection.Close

End Function