Errore VBScript quando si chiama GetObject ("WinNT: // JohnDoe, Utente")

Question

Ho codice che non è stato toccato in un anno, ma i controller di dominio sono stati aggiornati dal 2008 al 2008 R2. La gente AD sostengono che non è l'aggiornamento continua, ma il problema ha iniziato subito dopo che è andato in

Microsoft VBScript errore di runtime '800a0046'
Autorizzazione negata:. 'GetObject'

E 'mancato il Imposta la linea di gruppo.

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 

Grazie.

Answer 1

ho dovuto modificare il codice per passare in userid e 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