I am using the following Visual Basic function to retrieve all the users
in our network system . 

" Dim objset  As SWbemObjectSet
  Dim obj     As SWbemObject

   Set objset = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                                      InstancesOf("Win32_userAccount")
   
   On Local Error Resume Next

   For Each obj In objset

      With List1
         .AddItem "Caption: " & obj.Caption
      End With        
   Next "

But this function does not retrieve all the users . It only retreives 
certain number of records . In case of our company , 
It only retrieves 877 users and all the others are lost .
Even though I applied this function to VB Script , Visual Basic and .Net ,
I still Only got 877 records and all the others are lost .
And I also used WQL query 
         ExecQuery("Select * from Win32_userAccount where name > 'u' ")
    to retrieve all the users whose name is greater than 'u' in order
    to find out whether the missing users could be shown  
    ,but I still found the others are missing .

I am beginning to wonder whether it is a network or system issue .
In case , we are using Novell Server.

Please advise .
Thanks .

This is a crazy solution, but then again VB acts weird sometimes...

" Dim objset  As SWbemObjectSet 
  Dim obj     As SWbemObject 
 
   Set objset = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ 
                                      InstancesOf("Win32_userAccount") 
    
   On Local Error Goto EnumComplete
 
   Do While True
      For Each obj In objset 
         With List1 
            .AddItem "Caption: " & obj.Caption 
         End With         
      Next "
   Loop

EnumComplete:

Wazerface-ga ,

I used your code , and I was getting infinite loop because there is no exit
point on your statement.
Thanks anyway .