vbscript - 调用 GetObject("WinNT://JohnDoe,User") 时出现 VBScript 错误

Question

我有一年多没有接触过的代码，但是 DC 从 2008 升级到 2008 R2。AD 人员声称这不是 DC 升级，但问题在升级后立即开始。

Microsoft VBScript 运行时错误“800a0046”
权限被拒绝：“GetObject”

它在 Set Group 线上失败。

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

谢谢。

Answer 1

我不得不更改代码以传递用户 ID 和密码。

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