Remote Computer User Information

[joewmaki]

I'm trying to determine if an application is running on a remote computer.

I ping the machine to determine it's online.

I check the processes to see if the app is running.

The problem is I don't know if someone is logged in (app should be runnning) or the computer is sitting at the login screen (app should not be running). How can I determine if someone is logged in?

[joewmaki]

Looks like you can do this with WMI. This requires a reference to System.Management

    Function LoggedIn(ByVal strMach As String) As Boolean
        Dim PROCNAME As String = "LoggedIn"
        Dim Result As Boolean = False
        Try
            Dim scope As New ManagementScope("\\" & strMach & "\root\cimv2")
            scope.Connect()
            If scope.IsConnected Then
                Try
                    Dim query As New ObjectQuery("SELECT UserName from Win32_ComputerSystem")
                    Using searcher As New ManagementObjectSearcher(scope, query)
                        Dim queryCollection As ManagementObjectCollection
                        queryCollection = searcher.Get()
                        For Each m As ManagementObject In queryCollection
                            Result = (Not m("UserName") Is Nothing)
                        Next
                        queryCollection.Dispose()
                        searcher.Dispose()
                    End Using
                    query = Nothing
                Catch ex As Exception
                    MessageBox.Show(ex.Message & " on " & strMach, PROCNAME & " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
                scope = Nothing
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message & " on " & strMach, PROCNAME & " Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        Return Result
    End Function

[Hack]

Sweet....thanks for posting your discovery.