Kleinigkeiten... glaub ich ....

Dokumentation/Main.vb

@@ -1,5 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.IO
+Imports System.Threading
+Imports System.ServiceProcess
 Imports System.DirectoryServices.AccountManagement
 
 Public Class Main
@@ -664,9 +666,53 @@ Public Class Main
 
     End Sub
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Class1.ini.save()
+        RestartServices("TS12.verag.ost.dmn", "Druckerwarteschlange")
     End Sub
 
+    Public Sub RestartServices(Servername As String, Dienst As String)
+
+        'Dim Servername As String = "TS12.verag.ost.dmn"
+
+        Select Case Dienst
+            Case "Druckerwarteschlange"
+                MsgBox("Druckerwarteschlange und Abhängigkeiten werden neu gestartet." & vbCrLf & "Bitte ~ 15 Sekunden warten...")
+                Try
+                    Dim sc As New ServiceController("pdf24", Servername)
+                    Dim sc2 As New ServiceController("Spooler", Servername)
+
+
+                    DienstStartStop(sc, "stop")
+                    Thread.Sleep(3300)
+                    DienstStartStop(sc2, "stop")
+                    Thread.Sleep(3300)
+
+                    sc = New ServiceController("pdf24", Servername)
+                    sc2 = New ServiceController("Spooler", Servername)
+
+                    DienstStartStop(sc, "start")
+                    Thread.Sleep(5300)
+                    DienstStartStop(sc2, "start")
+                    Thread.Sleep(5300)
+                Catch
+                End Try
+
+
+        End Select
+    End Sub
+
+    Public Function DienstStartStop(sc As ServiceController, startstop As String)
+        Dim scs As ServiceControllerStatus = sc.Status
+        Select Case startstop
+            Case "start"
+                If scs.ToString = "Stopped" Then sc.Start()
+            Case "stop"
+                If scs.ToString = "Running" Then sc.Stop()
+        End Select
+
+
+    End Function
+
+
     Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet)
 
         Dim NWShort As String
@@ -688,18 +734,18 @@ Public Class Main
                 ''----------------------------------------Fill True: Wenn DHCP Clients bereits im DS enthalten sind werden diese Hosts geändert.
                 ' If Fill = True Then
                 Dim HostRow() As Data.DataRow
-                    HostRow = ds.Tables(0).Select("IPAdresse = '" & DHCPClientIP & "'")
+                HostRow = ds.Tables(0).Select("IPAdresse = '" & DHCPClientIP & "'")
                 '   MsgBox(DHCPClientIP & HostRow.Length)
                 If HostRow.Length > 0 Then
-                        HostRow(0)("FQDN") = "*" & dhcpclients(i).ClientName
-                        HostRow(0)("QINFO") = "DHCP Client"
+                    HostRow(0)("FQDN") = "*" & dhcpclients(i).ClientName
+                    HostRow(0)("QINFO") = "DHCP Client"
 
 
 
-                        ''----------------------------------------Fill False: DHCP Clients werden hinzugefügt
-                    Else
-                        'MsgBox("fill not true")
-                        Dim rows() As DataRow = ds.Tables(0).Select("IPAdresse = '" & DHCPClientIP & "'")
+                    ''----------------------------------------Fill False: DHCP Clients werden hinzugefügt
+                Else
+                    'MsgBox("fill not true")
+                    Dim rows() As DataRow = ds.Tables(0).Select("IPAdresse = '" & DHCPClientIP & "'")
                     If rows.Count > 0 Then
                         Dim FQDN As String = rows(0).Item("FQDN")
                     Else
@@ -771,17 +817,21 @@ Public Class Main
     Private Sub TxtSuche_TextChanged(sender As Object, e As EventArgs) Handles TxtSuche.TextChanged, RadNurNetzwerk.CheckedChanged, RadGlobal.CheckedChanged, RadStandort.CheckedChanged, LstType.SelectedIndexChanged ', TxtSuche.MouseClick
         If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then
             Suchbegriff = "%%"
+            ChkFreieHosts.Checked = Class1.ini.prop_FreiHostsAnzeigen
+            ChkDHCPClients.Checked = Class1.ini.prop_DHCPClientsAnzeigen
             ' ChkFreieHosts.Checked = False
             dgvload_filter(Suchbegriff)
 
         ElseIf TxtSuche.TextLength < 1 And Not LstType.SelectedItem = "" Then
             'ChkDHCPClients.Checked = False
             'ChkFreieHosts.Checked = False
+            ChkFreieHosts.Checked = False
+            ChkDHCPClients.Checked = False
             dgvload_filter(Suchbegriff)
         Else
             Suchbegriff = "%" & Class1.hochkomma(TxtSuche.Text) & "%"
             'ChkDHCPClients.Checked = False
-            'ChkFreieHosts.Checked = False
+            ChkFreieHosts.Checked = False
             dgvload_filter(Suchbegriff)
         End If
 
@@ -1520,6 +1570,7 @@ Public Class Main
     Private Sub btnTSSitzungen_Click(sender As Object, e As EventArgs) Handles btnTSSitzungen.Click
         Dim TSSitzungen As New frmLeer
         TSSitzungen.PanMain.Controls.Clear()
+        TSSitzungen.Text = "Sitzungen"
         Dim dingsi As New uscntr_TSSitzungen
         TSSitzungen.AutoSize = AutoSizeMode.GrowAndShrink
         TSSitzungen.Size = New Size(434, 863)
@@ -1528,6 +1579,35 @@ Public Class Main
         TSSitzungen.Show()
     End Sub
 
+    Private Sub RDPToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RDPToolStripMenuItem.Click
+        Dim Host2Connect As New cHost
+        Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
+        If Host2Connect.FQDN.Length > 1 Then
+            cExtProgramme.RDPConnect(Host2Connect.FQDN, Host2Connect.Benutzer, Host2Connect.Passwort)
+        Else
+            MsgBox("Hostname wurde nicht gefunden.")
+        End If
+    End Sub
+
+    Private Sub DgVMain_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentClick
+
+    End Sub
+
+    Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
+
+    End Sub
+
+    Private Sub SpoolerNeuStartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpoolerNeuStartenToolStripMenuItem.Click
+        Dim Host2Connect As New cHost
+        Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
+        If Host2Connect.FQDN.Length > 1 Then
+            If MessageBox.Show("Druckerwarteschlange auf " & Host2Connect.FQDN & " neu starten?", "Spooler neu starten.", MessageBoxButtons.OKCancel) = DialogResult.OK Then
+                RestartServices(Host2Connect.FQDN, "Druckerwarteschlange")
+            End If
+        Else
+                MsgBox("Hostname wurde nicht gefunden.")
+        End If
+    End Sub
 
     Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed