vbscript - GetObject（ "WinNT：// JohnDoe、User"）を呼び出すときのVBScriptエラー

Question

1年以上触れられていないコードがありますが、DCは2008から2008R2にアップグレードされました。ADの人々は、それはDCのアップグレードではないと主張していますが、問題が発生した直後に問題が発生しました。

MicrosoftVBScriptランタイムエラー'800a0046'
アクセスが拒否されました：' GetObject '

SetGroup行で失敗しています。

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

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