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