title: VBScript Error when calling GetObject("WinNT://JohnDoe,User")
body: <p>I have code that hasn't been touched in over a year, but the DCs were upgraded from 2008 to 2008 R2. The AD folks claim it’s not the DC upgrade but the issue started promptly after that went in.</p>
  
  <blockquote>
    <p>Microsoft VBScript runtime error '800a0046'<br>
    Permission denied: 'GetObject'</p>
  </blockquote>
  
  <p>It's failing on the Set Group line.</p>
  
  <pre><code>Set Group = GetObject("WinNT://" &amp; Logon_name &amp; ",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
  </code></pre>
  
  <p>Thanks.</p>