DirectoryEntry из System.DirectoryServices недоступен в .vbscript: переменная не определена: 'DirectoryEntry' - PullRequest
Новая
       23

DirectoryEntry из System.DirectoryServices недоступен в .vbscript: переменная не определена: 'DirectoryEntry'

0 голосов
/ 15 мая 2019

недавно я написал некоторый код для извлечения информации о пользователе из активной директории.Но DirectoryEntry не работает в файле .asp.Я добавил в ссылку и установить копию на локальный это правда.Я изменил структуру моего проекта с 4.5.2 до 4.5, но ничего не работает.Может ли Антон сказал мне, как решить эту проблему. 

    CODE

    Dim ldapPath, adminAccount, adminPwd
    adminAccount = "*****"
    adminPwd = "******"
    strServerName = "LDAP://***********"

            Set rootEntry = DirectoryEntry(strServerName, adminAccount, adminPwd)
            Set searcher = DirectorySearcher(rootEntry)
            searcher.Filter = "(&(OU=*******))"
            SearchResult = searcher.FindOne()
            Set result = SearchResult
            ResultPropertyCollection = result.Properties
            Set fields = ResultPropertyCollection
            For Each ldapField In fields.PropertyNames
                For Each myCollection In fields(ldapField)
                    Session(ldapField) = myCollection.ToString()

                Next
            Next

Но DirectoryEntry не работает вообще.Выдает ошибку, такую ​​как ошибка времени выполнения Microsoft VBScript '800a01f4'

Переменная не определена: 'DirectoryEntry'

Ошибка Ошибка времени выполнения Microsoft VBScript '800a01f4'

...