小编rya*_*yan的帖子

我有一年多没有涉及的代码,但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

谢谢.