获取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是我在此PC上创建的唯一用户帐户。我可以假设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