Query Logged on users on a Server (query logon /server:..)

    Sub sublateServers(servername As String)

        'Dim servername As String = ""

        'servername = TextBox1.Text

        Dim pProcess As New Process

        pProcess.StartInfo.CreateNoWindow = True

        'pProcess.StartInfo.UserName = ""

        'pProcess.StartInfo.Password = ToSecureString("")

        pProcess.StartInfo.UseShellExecute = False

        'pProcess.StartInfo.Domain = ""

        pProcess.StartInfo.FileName = "query "

        pProcess.StartInfo.Arguments = " user /server:" & servername

        pProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden

        pProcess.StartInfo.RedirectStandardOutput = True

        pProcess.StartInfo.RedirectStandardError = True

        Try

            TextBox1.AppendText("Query:  " & servername & " " & Now & vbCrLf)

            pProcess.Start()

            If Not pProcess.WaitForExit(1000 * 60) Then

                TextBox1.AppendText("60 second timeout on : " & servername & " " & Now & "  Aborting." & vbCrLf)

                pProcess.Kill()

                'Return

            Else

                Dim errortext As String = pProcess.StandardError.ReadToEnd.ToString

                If errortext.Length = 0 Then

                    Dim sOutputText As String = pProcess.StandardOutput.ReadToEnd.ToString & vbCrLf

                    'TextBox1.AppendText(servername & " -> " & sOutputText & vbCrLf)

                    'TextBox1.AppendText(servername & " -Err> " & errortext & vbCrLf)

                    Dim aLines() As String = Split(sOutputText, vbCrLf)

                    Debug.Print(sOutputText)

                 End If

              End if

        Catch

        End try

End Sub