Ошибка VBScript при вызове GetObject (“WinNT://JohnDoe, Пользователь”)

Question

Ошибка VBScript при вызове GetObject (“WinNT://JohnDoe, Пользователь”)

У меня есть код, который не был затронут более чем за год, но DCS были обновлены с 2008 до 2 008 R2. AD люди утверждают, что это не обновление DC, но проблема, запущенная быстро после этого, вошла.

Ошибка периода выполнения '800a0046' Microsoft VBScript
Разрешение отклонило: 'GetObject'

Это приводит к сбою на съемочной площадке строку Группы.

Set Group = GetObject("WinNT://" & Logon_name & ",User")

For each Member in Group.Groups
  If Member.Class = "Group" then
    If Member.Name = "TEST_AD_GROUP" Or Member.Name = "TEST_AD_GROUP2" then
      x = "true"
      Exit For
    End If
  End If
Next

Спасибо.

6

vbscript active-directory activex adsi

задан Tomalak 8 February 2010 в 17:58

1 ответ

Другие вопросы по тегам:

vbscript active-directory activex adsi

Похожие вопросы:

score 6 · Accepted Answer

мне пришлось изменить код, чтобы передать userid и pwd.

Set objIADS = GetObject("WinNT:").OpenDSObject("WinNT://" & strDomain, strUsername, strPassword, ADS_SECURE_AUTHENTICATION)
Set objIADSUser = objIADS.GetObject("user", strUsername)

For each Member in objIADSUser.Groups
    If Member.Class = "Group" then
        If Member.Name = "TEST_AD_GROUP" then
            x = "true"
            EXIT FOR
        End If
    End If
Next