Visual Basic

Imports System.Management
 
Public Class Form2
 
    Private Sub Button1_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs _
    ) Handles Button1.Click
 
        Dim ms As New ManagementScope("\root\cimv2")
        Dim oq As New ObjectQuery("Select * from Win32_Session")
        Dim query As New ManagementObjectSearcher(ms, oq)
        Dim queryCollection As ManagementObjectCollection = query.[Get]()
 
        For Each mo As ManagementObject In queryCollection
            If mo("LogonType").ToString().Equals("2") Then
                '  2 - for logged on User
                MessageBox.Show("Started Time: " + mo("StartTime").ToString)
            End If
        Next
    End Sub
 
End Class