如何在VB.NET中获得当前登录Windows 7计算机的所有用户的列表？

Question

I've got an application running a manufacturing process on a Windows 7 computer. The app has some time-sensitive components that sometimes run slow for a second or two. I know there are a lot of background operations happening in the CLR and OS that can cause program delays, but I've also seen the users sometimes log in to their personal accounts to check email, etc., while my app is running. I'm sure their doing this causes some of the slow-downs. IT says they can't block user accounts on individual computers, so I'd like to have my app text me when the system is running slow and users are logged in to their personal accounts, so I can run over there and call them out on it. Thank you.

Answer 1

This worked:

Function GetActiveUsers() As List(Of String)
    Dim activeusers As New List(Of String)
    Dim userskey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList")
    For Each keyname As String In userskey.GetSubKeyNames()
        Using key As RegistryKey = userskey.OpenSubKey(keyname)
            Dim userpath As String = DirectCast(key.GetValue("ProfileImagePath"), String)
            Dim username As String = System.IO.Path.GetFileNameWithoutExtension(userpath)
            Dim useractive As Integer = 0
            If key.GetValueNames.Contains("RefCount") Then useractive = DirectCast(key.GetValue("RefCount"), Integer)
            If useractive <> 0 Then activeusers.Add(username)
        End Using
    Next
    Return activeusers
End Function