We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

Any way to tell is somone is remoted into a computer using XP with .net 2.0?

Medium Priority
604 Views
Last Modified: 2013-11-07
I'm working on a script that users would log into a terminal server.  From there they will see test workstations that are available for them to remote desktop to.  I need to know how to tell if there is a remote desktop connection available or if someone else is using it for these test workstations.  Any ideas how I can check for an active remote desktop session running on XP with .net 2.0?  Thanks, Chad
Comment
Watch Question

didn't try, but maybe WMI helps you (add a refernce to System.Management)
System.Management.ManagementScope ms = new System.Management.ManagementScope();
System.Management.ObjectQuery oq = new System.Management.ObjectQuery("Select * from Win32_LogonSession Where LogonType = 2 OR LogonType = 10");
System.Management.ManagementObjectSearcher oSearcher = new System.Management.ManagementObjectSearcher(ms, oq);
System.Management.ManagementObjectCollection oReturnCollection = oSearcher.Get();
 
foreach (System.Management.ManagementObject oReturn in oReturnCollection)
{
    Debug.WriteLine("Name : " + (oReturn["Name"] ?? "").ToString());
    Debug.WriteLine("StartTime: " + (oReturn["StartTime"] ?? "").ToString());
    Debug.WriteLine("Caption: " + (oReturn["Caption"] ?? "").ToString());
    Debug.WriteLine("LogonId: " + (oReturn["LogonId"] ?? "").ToString());
    Debug.WriteLine("LogonType: " + (oReturn["LogonType"] ?? "").ToString());
}

Open in new window

Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Author

Commented:
Great!  I will give it a shot tomorrow at work.  Would you happen to know how to change this from c# to vb easily?  Thanks again, Chad

Author

Commented:
I just tried it, but I guess I am not sure how to get this working in VB.  I imported System.Management.  Any help would be great.  Chad

Author

Commented:
Was anyone able to change this from C# to vb?  Thanks, Chad

Author

Commented:
Ok, I have half of it working, but not sure why the other part is not working.  Below is what I have and the first part works great.

  Dim managementScope As New ManagementScope("\\" & TextBox1.Text & "\root\cimv2")
        Dim ojectQuery As New ObjectQuery("Select * from Win32_LogonSession Where LogonType = 2 OR LogonType = 10")
        Dim sessionObjectSearcher As New ManagementObjectSearcher(managementScope, ojectQuery)
        Dim sessionObjectCollection As ManagementObjectCollection = Nothing
        sessionObjectSearcher.Options.Timeout = New System.TimeSpan(0, 0, 5)
        sessionObjectSearcher.Options.ReturnImmediately = True

        sessionObjectCollection = sessionObjectSearcher.Get()


        Dim ManagementObject As ManagementObject
        Dim loginType As String = ""
        Dim strDomain As String = ""

        For Each ManagementObject In sessionObjectCollection

            loginType = ManagementObject("LogonType")
            If loginType = "2" Then
                loginType = "Console"
            Else
                loginType = "Remote Desktop"
            End If

            Exit For
        Next

        MessageBox.Show(loginType)

'*****************everything above here works!!!**********************************


        'create a new query to get the user information for the selected session
        'ObjectQuery associatorQuery = new ObjectQuery(string.Concat("Associators of {Win32_LogonSession.LogonId=", logonId, "} Where AssocClass=Win32_LoggedOnUser Role=Dependent"));
        Dim associatorQuery As New ObjectQuery(String.Concat("Associators of {Win32_LogonSession.LogonId=", logonId, "} Where AssocClass=Win32_LoggedOnUser Role=Dependent"))
'???????????????????????????????????????????????????
        'ObjectQuery(associatorQuery = New ObjectQuery(String.Concat("Associators of {Win32_LogonSession.LogonId=", logonId, "} Where AssocClass=Win32_LoggedOnUser Role=Dependent")))
        'execute the query
        Dim associatorObjectSearcher As ManagementObjectSearcher = New ManagementObjectSearcher(managementScope, associatorQuery)
        Dim associatorObjectCollection As ManagementObjectCollection = Nothing
        associatorObjectCollection = associatorObjectSearcher.Get()

        Dim user As String = ""
        Dim name As String = ""
        Dim domain As String = ""


        'iterate through all users (should only be one result per session)
        For Each ManagementObject In associatorObjectCollection

            'determine properties and output the result
            user = associatorObjectItem("Name")
            name = associatorObjectItem("FullName")
            domain = associatorObjectItem("Domain")
'?????????????????still have errors for these 3 items.

            Exit For

        Next

Author

Commented:
Works great, I will just try to do this in C#.  Been looking for an excuse to learn it.  Chad
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.