（「：// JohnDoeという、ユーザーWinNTの」）のGetObjectを呼び出すVBScriptのエラー

Question

私は、年間では触れられていないが、DCは2008年から2008 R2にアップグレードされたコードを持っています。 ADの人々は、それがDCのアップグレードではありません主張するが、それが中に入った後に問題が速やかに開始します。

  

MicrosoftのVBScriptランタイムエラー '800A0046'
  アクセス許可が拒否されました： '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

感謝します。

Answer 1

私は、ユーザーIDと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