edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TSSittzungen

Browse Source
This commit is contained in:
ms
2019-10-25 11:48:37 +02:00
parent ce28d0bcce
commit 2197c92cba
35 changed files with 1397 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
Dokumentation/Classes/Class1.vb
View File

@@ -21,8 +21,10 @@ Public Class Class1
Public Shared DebugText As String = ""
Public Shared GroupUsers As List(Of cBenutzer)
Public Shared dtSuchergebnis As DataTable
Public Shared TeamviewerToken As String = "6920997-rtea7sZy35Ujw2Erm3OP"
Public Shared HostList As New List(Of String)
Public Shared TerminalServerList As New List(Of String)
Public Shared Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
@@ -33,6 +35,7 @@ Public Class Class1
End Sub
Public Shared Function CheckDebug()
Dim Debugoverride As Boolean = True 'wenn True dann Override auf Produktiv!
Dim Startparameter As String = ""
Dim i As Integer
For Each s As String In Environment.GetCommandLineArgs
@@ -45,15 +48,13 @@ Public Class Class1
i += 1
Next
If Main.sAppPath Like "*\bin\Debug" Or Startparameter = "debug" Then
If (Main.sAppPath Like "*\bin\Debug" Or Startparameter = "debug") And Debugoverride = False Then
DebugMode = True
Class1.DBConString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Class1.FilePath = "\\192.168.0.253\backup\temp_Sebastian\DokuTest"
Else
'Class1.DBConString = "Server=192.168.0.94\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Class1.DBConString = "Server=buchhaltung.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
'Class1.FilePath = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
Class1.FilePath = "\\DEVELOPER.verag.ost.dmn\f\EDV-Wartung\Dokumentation"
End If
End Function
@@ -131,6 +132,52 @@ Public Class Class1
End Try
End Function
Public Shared Function datatable_2_csv_export(dt As DataTable)
Dim savefiledialog As New SaveFileDialog
Dim firstin As String
Dim out As String
Dim in2 As String
Dim header As String
savefiledialog.Filter = "CSV files (*.csv)|*.CSV"
savefiledialog.InitialDirectory = "C:\Verag"
savefiledialog.ShowDialog()
Try
For r As Integer = 0 To dt.Rows.Count - 1
For c As Integer = 0 To dt.Columns.Count - 1
'test &= r & c & vbCrLf
Try
'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
firstin = dt.Rows(r).Item(c).ToString
firstin = Replace(firstin, ";", ",")
'in2 = """" & firstin & """" & ";"
in2 = firstin & ";"
out &= Replace(in2, vbCrLf, "##vbCrLf##")
Catch ex As Exception
MsgBox(ex.Message)
out &= "ooo"
End Try
Next
out &= "nZ"
Next
For c As Integer = 0 To dt.Columns.Count - 1
header &= dt.Columns(c).ColumnName & ";"
Next
out = Replace(out, "nZ", vbCrLf)
'MsgBox(out)
Using sw As New IO.StreamWriter(savefiledialog.FileName)
sw.WriteLine(header)
sw.WriteLine(out)
End Using
Catch ex As Exception
MsgBox("datatable_2_csv_export: " & ex.Message)
End Try
End Function
Public Shared Function hochkomma(textin As String)
Dim textout As String = textin.Replace("'", "''")
Return (textout)

17
Dokumentation/Classes/Ext_Programme.vb
View File

@@ -43,11 +43,24 @@
End Try
End Function
Public Shared Function pingip(ip As String)
Public Shared Function pingip(ip As String, Optional ByVal Argument As String = "")
Dim ping As New Process
ping.StartInfo.FileName = "cmd.exe"
ping.StartInfo.Arguments = " /k ping " & ip
ping.StartInfo.Arguments = " /k ping " & ip & Argument
ping.Start()
End Function
Public Shared Function msgsend(argumente As String)
Try
Dim msg As New Process
System.IO.File.WriteAllBytes("msg.exe", My.Resources.msg)
msg.StartInfo.FileName = "msg.exe"
'msg.StartInfo.WorkingDirectory = "C:\Windows\System32\"
msg.StartInfo.Arguments = argumente
msg.Start()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Class

2
Dokumentation/Classes/cBenutzer.vb
View File

@@ -117,7 +117,7 @@ Public Class cBenutzer
Function isDokuAdmin() As Boolean
Dim ds As New DataSet
SQL.SQL2DS("select * from TbL_Berechtigungen where Benutzeranmeldename = '" & Me.BenutzeranmeldeName & "' AND Standort = 'DokuAdmin'", ds)
cSQL.SQL2DS("select * from TbL_Berechtigungen where Benutzeranmeldename = '" & Me.BenutzeranmeldeName & "' AND Standort = 'DokuAdmin'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Return True
Else

14
Dokumentation/Classes/cBerechtigungen.vb
View File

@@ -23,7 +23,7 @@ Public Class cBerechtigungen
Public Function getFromSQL() '(ip As String)
Dim ds As New DataSet
Dim test As String = ""
SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
@@ -42,7 +42,7 @@ Public Class cBerechtigungen
Function checkExist() '(ByVal ip As String)
Dim ds As New DataSet
SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "' AND Standort = '" & Standort & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
MeExist = True
Return True
@@ -67,7 +67,7 @@ Public Class cBerechtigungen
End If
Next
update = update.Substring(0, update.Length - 1)
SQL.UpdateSQL("TbL_Berechtigungen", update, where)
cSQL.UpdateSQL("TbL_Berechtigungen", update, where)
Else
Me.ID = Guid.NewGuid().ToString("N")
Dim Spalten As String = ""
@@ -83,7 +83,7 @@ Public Class cBerechtigungen
Spalten = Spalten.Substring(0, Spalten.Length - 1)
Werte = Werte.Substring(0, Werte.Length - 1)
SQL.InsertSQL("TbL_Berechtigungen", "(" & Spalten & ") VALUES (" & Werte & ")")
cSQL.InsertSQL("TbL_Berechtigungen", "(" & Spalten & ") VALUES (" & Werte & ")")
MeExist = True
End If
End Function
@@ -92,7 +92,7 @@ Public Class cBerechtigungen
Try
Dim ToR As New List(Of cBerechtigungen) ' ToR -> Table of Rights *Badum Tss*
Dim ds As New DataSet
SQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzeranmeldename & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
For Each row As DataRow In ds.Tables(0).Rows
Dim R As New cBerechtigungen
@@ -111,7 +111,7 @@ Public Class cBerechtigungen
Public Shared Function BenutzerBerechtigungfuerStandort(ByVal Benutzer As String, ByVal Standort As String)
Dim ds As New DataSet
SQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND Standort = '" & Standort & "'", ds)
cSQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND Standort = '" & Standort & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Return ds.Tables(0).Rows(0).Item(0).ToString
Else
@@ -122,7 +122,7 @@ Public Class cBerechtigungen
Public Shared Function BenutzerBerechtigungfuerID(ByVal Benutzer As String, ByVal ID As String)
Dim ds As New DataSet
SQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND ID = '" & ID & "'", ds)
cSQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND ID = '" & ID & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Return ds.Tables(0).Rows(0).Item(0).ToString
Else

14
Dokumentation/Classes/cEintrag.vb
View File

@@ -33,7 +33,7 @@ Public Class cEintrag
Dim ds As New DataSet
Dim test As String = ""
Try
SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE ID = '" & Me.ID & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE ID = '" & Me.ID & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
@@ -45,7 +45,7 @@ Public Class cEintrag
Next
Else
ds.Clear()
SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'", ds)
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
@@ -78,7 +78,7 @@ Public Class cEintrag
Spalten = Spalten.Substring(0, Spalten.Length - 1)
Werte = Werte.Substring(0, Werte.Length - 1)
SQL.InsertSQL("TbL_Allgemein", "(" & Spalten & ") VALUES (" & Werte & ")")
cSQL.InsertSQL("TbL_Allgemein", "(" & Spalten & ") VALUES (" & Werte & ")")
ElseIf checkExist() And NewID = True Then ''----------------------------------------bestehender Eintrag ohne ID
Dim UpdateString As String = ""
Dim WhereString As String = ""
@@ -90,7 +90,7 @@ Public Class cEintrag
Next
UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) 'wg. ','
SQL.UpdateSQL("TbL_Allgemein", UpdateString, "Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'")
cSQL.UpdateSQL("TbL_Allgemein", UpdateString, "Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'")
NewID = False
ElseIf checkExist() And NewID = False Then ''----------------------------------------bestehender Eintrag mit bestehender ID
Dim UpdateString As String = ""
@@ -103,19 +103,19 @@ Public Class cEintrag
Next
UpdateString = UpdateString.Substring(0, UpdateString.Length - 1) 'wg. ','
SQL.UpdateSQL("TbL_Allgemein", UpdateString, "ID = '" & ID & "'")
cSQL.UpdateSQL("TbL_Allgemein", UpdateString, "ID = '" & ID & "'")
End If
End Function
Function checkExist() '(ByVal ip As String)
Dim ds As New DataSet
SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE ID = '" & Me.ID & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE ID = '" & Me.ID & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Return True
Else
ds.Clear()
SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik = '" & rubrik & "' AND Titel = '" & Titel & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Return True
Else

6
Dokumentation/Classes/cFirewallEntry.vb
View File

@@ -46,7 +46,7 @@ Public Class cFirewallEntry
From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
ORDER BY [fwr_in]"
SQL.SQL2DS(selector, ds)
cSQL.SQL2DS(selector, ds)
End Function
@@ -86,13 +86,13 @@ ORDER BY [fwr_in]"
Public Function insertFirewallEntry(ByRef entry As cFirewallEntry)
Dim insert As String
getInsertCmd(insert)
SQL.InsertSQL("TbL_FirewallRules", insert)
cSQL.InsertSQL("TbL_FirewallRules", insert)
End Function
Public Function updateFirewallEntry(ByRef entry As cFirewallEntry)
Dim update, where As String
getUpdateCmd(update, where)
SQL.UpdateSQL("TbL_FirewallRules", update, where)
cSQL.UpdateSQL("TbL_FirewallRules", update, where)
'MsgBox(update & where)
End Function

26
Dokumentation/Classes/cHost.vb
View File

@@ -119,14 +119,14 @@ Public Class cHost
From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
ORDER BY [fwr_in]"
SQL.SQL2DS(selector, ds)
cSQL.SQL2DS(selector, ds)
End Function
Public Function gethost(ip As String)
Dim ds As New DataSet
Dim test As String = ""
SQL.SQL2DS("select * from TbL_Netzwerkclients where IPAdresse = '" & ip & "'", ds)
cSQL.SQL2DS("select * from TbL_Netzwerkclients where IPAdresse = '" & ip & "'", ds)
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
@@ -194,15 +194,15 @@ ORDER BY [fwr_in]"
Public Function updateHostEntry(ByRef entry As cHost)
Dim update, where, slaveupdate, slavewhere As String
getUpdateCmd(update, where, slaveupdate, slavewhere, Me.Linked)
SQL.UpdateSQL("TbL_Netzwerkclients", update, where)
SQL.UpdateSQL("TbL_Netzwerkclients", slaveupdate, slavewhere)
cSQL.UpdateSQL("TbL_Netzwerkclients", update, where)
cSQL.UpdateSQL("TbL_Netzwerkclients", slaveupdate, slavewhere)
'MsgBox(update & where)
End Function
Function checkIfIPExist(ByVal ip As String)
Dim ds As New DataSet
SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE IPADRESSE = '" & ip & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE IPADRESSE = '" & ip & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
Return True
Else
@@ -215,7 +215,7 @@ ORDER BY [fwr_in]"
If MessageBox.Show("Eintrag " & Me.FQDN & " wirklich löschen?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
Dim ds As New DataSet
Dim Slaves As String = ""
SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & Me.IPAdresse & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & Me.IPAdresse & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then
For Each r As DataRow In ds.Tables(0).Rows
@@ -225,18 +225,18 @@ ORDER BY [fwr_in]"
If MessageBox.Show("
Achtung! " & vbCrLf & "Der Eintrag " & Me.FQDN & " ist ein MasterEintrag für die IP Adressen " & vbCrLf & Slaves & "
Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
SQL.DeleteSQL("TbL_Netzwerkclients", "LinkedWith = '" & Me.IPAdresse & "'")
cSQL.DeleteSQL("TbL_Netzwerkclients", "LinkedWith = '" & Me.IPAdresse & "'")
ElseIf DialogResult.Cancel Then
Exit Function
End If
End If
SQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
cSQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
Class1.RefillNW(Me.Netzwerk)
ElseIf DialogResult.Cancel Then
Exit Function
End If
Else
SQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
cSQL.DeleteSQL("TbL_Netzwerkclients", "IPAdresse = '" & Me.IPAdresse & "'")
Class1.RefillNW(Me.Netzwerk)
End If
@@ -251,7 +251,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
'Get Slaves of LinkedMaster
Dim ds As New DataSet
SQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith = '" & Me.IPAdresse & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith = '" & Me.IPAdresse & "'", ds)
'Ziel prüfen und gegebenenfalls anzeigen
If (
@@ -269,7 +269,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
'If Host = LinkedMaster then Update Slaves
If ds.Tables(0).Rows.Count > 0 Then
SQL.UpdateSQL("TbL_Netzwerkclients", "LinkedWith = '" & newip & "'", "LinkedWith = '" & oldip & "'")
cSQL.UpdateSQL("TbL_Netzwerkclients", "LinkedWith = '" & newip & "'", "LinkedWith = '" & oldip & "'")
End If
newhost.FQDN = Me.FQDN
@@ -291,7 +291,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
Dim update, where As String
getUpdateCmd(update, where, "", "", newhost.Linked, newhost)
SQL.UpdateSQL("TbL_Netzwerkclients", update, where)
cSQL.UpdateSQL("TbL_Netzwerkclients", update, where)
cFolder.FolderMove(Me.NWSTANDORT & "_" & Me.NETNAME, Me.HOST, newhost.NWSTANDORT & "_" & newhost.NETNAME, newhost.HOST)
@@ -302,7 +302,7 @@ Diese Einträge werden ebenfalls gelöscht. Fortfahren?", "Hosteintrag löschen"
Public Shared Function getSlaves(ByVal ip As String, ByRef ds As DataSet)
SQL.SQL2DS("SELECT IPAdresse , (NWSTANDORT + ' ' + NETNAME) as Netzwerk FROM TbL_Netzwerkclients WHERE LinkedWith = '" & ip & "'", ds)
cSQL.SQL2DS("SELECT IPAdresse , (NWSTANDORT + ' ' + NETNAME) as Netzwerk FROM TbL_Netzwerkclients WHERE LinkedWith = '" & ip & "'", ds)
End Function

2
Dokumentation/Classes/cNetzwerk.vb
View File

@@ -42,7 +42,7 @@ Public Class cNetzwerk
Public Function getNetzwerk(nwstandort_ As String, netname_ As String)
Dim ds As New DataSet
' Dim test As String = ""
SQL.SQL2DS("select * from TbL_Netzwerke where Netzwerkname = '" & nwstandort_ & "_" & netname_ & "'", ds)
cSQL.SQL2DS("select * from TbL_Netzwerke where Netzwerkname = '" & nwstandort_ & "_" & netname_ & "'", ds)
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then

2
Dokumentation/Classes/SQL.vb → Dokumentation/Classes/cSQL.vb
View File

@@ -1,6 +1,6 @@
Imports System.Data.SqlClient
Public Class SQL
Public Class cSQL
Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet)
Dim con As New SqlConnection

17
Dokumentation/Classes/cTSUser.vb Normal file
View File

@@ -0,0 +1,17 @@
Public Class cTSUser
Property BenutzerAnmeldeName As String = ""
Property Name As String = ""
Property TeamviewerID As Integer = Nothing
Property LastLogonTime As DateTime = Nothing
Property LastReport As DateTime = Nothing
Property TSServer As String = ""
Property NameKurz As String = ""
Public Function genNameKurz()
Dim i As Integer = Me.BenutzerAnmeldeName.IndexOf("\")
Me.NameKurz = Me.BenutzerAnmeldeName.Substring(i + 1, Me.BenutzerAnmeldeName.Length - (i + 1))
End Function
End Class