Problem using GetObject("WinNT:")

I'm currently using the following code to get a listing of all the domains in my LAN. It works fine, but every once in a while, GetObject returns nothing, and I have to recursively call the same routine untill it returns data. I'm confused as to why this is happenning. Can someone help?

Here is the code:

 Dim objNS As IADsContainer
 Dim objDomain As IADs
   Set objNS = GetObject("WinNT:")
   For Each objDomain In objNS
      cmbDomain.AddItem objDomain.Name
   MsgBox cmbDomain.ListCount
   If cmbDomain.ListCount = 0 Then
      Call Form_Load
   End If

* This is an extension of the following question :
Who is Participating?
mkrellConnect With a Mentor Commented:
maybe this is because of a timeout while getting the object...


   Set objNS = GetObject("WinNT:")
Loop until  not (objNS Is Nothing)

instead of your recursive way.
LeeHenryAuthor Commented:
Thanks for the response. I'll give this a try this afternoon.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.