получение списка учетных записей пользователей Windows (профилей)

Question

Я пытаюсь взять имена всех учетных записей Windows.мой код работает, но он также печатает ненужную учетную запись пользователя,

вот код, который я использую,

Dim query As New SelectQuery("Win32_UserAccount")
Dim searcher As New ManagementObjectSearcher(query)
For Each envVar As ManagementObject In searcher.[Get]()
    Console.WriteLine(envVar("Name"))
Next

Вывод:

Administrator
DefaultAccount
Guest
Sam
WDAGUtilityAccount

Samэто единственная учетная запись пользователя, которую я создал на этом компьютере.Я могу предположить, что Administrator и Guest учетные записи приходят по умолчанию с Windows.Но учетные записи DefaultAccount и WDAGUtilityAccount крайне не нужны для печати здесь.Как я могу предотвратить печать ненужных учетных записей из этого кода

Answer 1

По предложению Jimi я обновил свой код, используя свойство Disabled.

Win32_UserAccount class

Dim query As New SelectQuery("Win32_UserAccount")
Dim searcher As New ManagementObjectSearcher(query)
For Each envVar As ManagementObject In searcher.[Get]()
   If Not envVar("Disabled").ToString.ToUpper.Equals("TRUE") Then
       Console.WriteLine(envVar("Name"))
   End If
Next