Error de VBScript al llamar a GetObject ("WinNT: // JohnDoe, usuario")

Question

Tengo un código que no se ha modificado en más de un año, pero los controladores de dominio se actualizaron de 2008 a 2008 R2. Las personas con EA afirman que no es la actualización de DC, pero el problema comenzó inmediatamente después de que se fueron en

Microsoft VBScript error de ejecución 800a0046
Permiso denegado:. 'GetObject'

está fallando en la Establecer línea de grupo.

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 

Gracias.

Answer 1

tuve que cambiar el código para pasar en el ID de usuario y 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