Chilkat, Telefone, Zoll Notruf

Dokumentation/Main.vb

@@ -4,6 +4,9 @@ Imports System.Threading
 Imports System.ServiceProcess
 Imports System.DirectoryServices.AccountManagement
 Imports System.Web.UI.WebControls
+Imports System.Management.Automation
+Imports System.Management.Automation.Runspaces
+Imports System.Security
 
 Public Class Main
     Public con As New SqlConnection
@@ -648,14 +651,23 @@ Public Class Main
     End Function
 
     Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
-        MsgBox("Hallo Andreas")
+        Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "Get-SmbOpenFile | select-object ShareRelativePath | out-string -stream")
+        MsgBox("")
+
+        Dim ds As New DataSet
+        For Each a As PSObject In ps
+
+        Next
+
     End Sub
     Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
-        DeleteGastWLANUser("ABABAB")
+        SMB.Show()
     End Sub
-    Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Dim pascom As New cPascom
-        pascom.Weiterleitung("555", "199")
+    Public Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
+        Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True)
+        Dim ds As New DataSet
+        cSMB.obj2DS(ps, ds, "SMB")
+
     End Sub
 
     Public Function UsernamePasswordGenerator(x As String, Optional ByVal Zeichenanzahl As Integer = 6) As String ' wenn u dann Username, sonst Password
@@ -1504,8 +1516,8 @@ exit"
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
         Dim frm As New frmLeer
-        frm.Text = "Notruf"
-        Dim usrcntrl As New uscntr_Notruf
+        frm.Text = "Telefon"
+        Dim usrcntrl As New uscntr_Telefon
 
 
         usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
@@ -1736,6 +1748,29 @@ exit"
 
     End Sub
 
+    Private Sub TicketsystemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketsystemToolStripMenuItem.Click
+        cExtProgramme.startlink("https://ticket.verag.ag")
+    End Sub
+
+    Private Sub PascomToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PascomToolStripMenuItem.Click
+        cExtProgramme.startlink("https://my.pbxcloud.at/verag/mobydickcmd/")
+    End Sub
+
+    Private Sub UnifiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnifiToolStripMenuItem.Click
+        cExtProgramme.startlink("https://unifi.ui.com/consoles")
+    End Sub
+
+    Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        SMB.Show()
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        ThinClients.Show()
+    End Sub
 
     Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed