Классический ASP (VBScript), 2008 R2, ошибка при использовании AD для аутентификации - PullRequest
Новая
       0

Классический ASP (VBScript), 2008 R2, ошибка при использовании AD для аутентификации

0 голосов
/ 25 июля 2011

Я переместил веб-сайт с Win2003 x32 на Win2008R2 x64. Отлично работает на старом сервере. Веб-сайт использует активный каталог для аутентификации. Я получаю эту ошибку в 2008 году: -2147023584: указанный сеанс входа не существует. Возможно, это уже было прекращено. Я попытался перейти в классический режим и т. Д. Без изменений. Он выполняет код VBScript (иначе я бы не получил ошибку).

Вот код: 

Function AuthenticateUser(UserName, Password)

    On Error Resume Next

    Dim oADsNamespace, oADsObject
    Dim strADsNamespace, strADsPath

    strADsPath = "WinNT://ibcschools.edu"
    strADsNamespace = left(strADsPath, instr(strADsPath, ":"))

    Set oADsObject = GetObject(strADsPath)
    Set oADsNamespace = GetObject(strADsNamespace)
    Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, UserName, Password, 0)
    Response.Write(Err.Number & " : " & Err.Description & "<br />")
    If Err.Number = 0 Then

        Set oADsNamespace = Nothing
        Set oADsObject = Nothing
        Set strADsNamespace = Nothing
        Set strADsPath = Nothing

        AuthenticateUser = True

    Else

        Set oADsNamespace = Nothing
        Set oADsObject = Nothing
        Set strADsNamespace = Nothing
        Set strADsPath = Nothing

        AuthenticateUser = False

    End If

End Function

Любая помощь будет оценена. Спасибо.

Ответы [ 2 ]

0 голосов
/ 11 августа 2011

Хорошо, так что я получил это работает.Раньше он работал без доменного имени, но теперь требует его.Я думаю, что это как-то связано с входом в пул приложений на старом сервере, а не с этим.Я собираюсь работать над этим немного больше.Я не хочу менять все сайты.

0 голосов
/ 25 июля 2011

Ваша проблема связана с с использованием провайдера WinNT с OpenDSObject .

То, что вы можете попробовать:

  1. Заменить WinNT на LDAP провайдера.
  2. Попробуйте запустить автономный файл VBS под привилегиями пользователя IIS / ApplicationPool.
...