שלום!

[DarkArcher]

שלום!

יש לי בעיה קטנה שאני לא כלכך מצליח לפתור... הבעיה היא שבכל פעם שאני מנסה להשתמש בקוד הנ"ל כדי לקבל רשימה של כל המשתמשים שבדומיין אני מקבל שגיאה "automation error"... מישהו יכול לעזור לי עם בבקשה ? הקוד הוא :

Dim Computer Dim User Set Computer = GetObject("WinNT://" & strDomain) Computer.Filter = Array("User") For Each User in Computer Response.Write User.Name Next​

הערה: אני משתמש ב- ADSI כדי לעבוד מול Active Directory

 

[DarkArcher]

או בקוד הנ"ל

Dim Group Dim User Set Group = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") For Each User in Group.Members .form1.print User.Name Next​

 

[vinney]

נסה פורום VB

נתקלתי פעם בשגיאה הזאת, reboot למחשב היה עושה את העבודה... אף אחד לא ממש הצליח להסביר לי ממה היא נבעה