VBScript त्रुटि GetObject ("WinNT: // JohnDoe, User") पर कॉल करते समय त्रुटि

Question

मेरे पास एक वर्ष से अधिक समय तक छुआ नहीं गया है, लेकिन डीसी को 2008 से 2008 आर 2 तक अपग्रेड किया गया था। ई लोगों का दावा है यह डीसी उन्नयन नहीं है, लेकिन इस मुद्दे को तुरंत शुरू कर दिया उसके बाद में चला गया

माइक्रोसॉफ्ट 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

मुझे उपयोगकर्ता आईडी और पीडब्ल्यूडी में पास करने के लिए कोड बदलना पड़ा।

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