Ciao, effettivamente c'è talmente tanta roba..che ci si perde nei meandri delle classi..
Comunque ci sono più classi con le quali si possono tirar fuori gli utenti, e tra queste quella che farebbe al caso mio è la Win32_UserAccount (ci sarebbe anche la Win32_Account ma da meno informazioni)
e il codice per leggere gli utenti è questo:
codice:
   Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
   Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount Where SIDType=1")

Private Sub ElencoAccount()
   For Each objItem In colItems
      List1.AddItem "Name: " & objItem.Name
      List1.AddItem "Disabled: " & objItem.Disabled
      List1.AddItem "=============================="
   Next
End Sub
Ora però non riesco a fare una cosa, disabilitare gli utenti! Leggendo qui: http://msdn.microsoft.com/library/de...seraccount.asp
la proprietà Disabled si può sia leggerla che scriverla, di conseguenza deduco che tramite questa sia possibile disabilitare un account che voglio io.. e invece niente!
In pratica una cosa del genere non funziona:
codice:
Private Sub DisabilitaAccount(nomeAcc as String)
   For Each objItem In colItems
      if objItem.Name=nomeAcc Then
         objItem.Disabled = True
      End if
   Next
End Sub
Sbaglio qualcosa o ci sono altri modi??