Timas ID und Date Culture

Kleinigkeiten

Main.vb

@@ -1,4 +1,5 @@
 Imports System.Environment
+Imports System.Globalization
 Imports System.IO
 Public Class TSUserReporter
 
@@ -9,6 +10,7 @@ Public Class TSUserReporter
     Public Printer As New List(Of Drucker)
     Dim Standarddrucker As New Drucker("", "")
     Dim Bondrucker As New Drucker("", "")
+    Dim Niederlassung As New Drucker("", "")
     Public Message As String
     Dim ThinClient As String
     Dim isTS As Boolean = False
@@ -110,7 +112,7 @@ Public Class TSUserReporter
 '" & cRes.LocalUser.BenutzeranmeldeName & "', 
 '" & cRes.LocalUser.Name & "',
 '" & cRes.LocalTeamviewerID & "',
-'" & Date.Now & "',
+'" & Date.Now.ToString("dd.MM.yyyy HH:mm:ss", New CultureInfo("de").NumberFormat) & "',
 '" & cRes.LocalUser.Domäne & "',
 '" & cRes.LocalUser.Company & "',
 '" & StartTime.ToString("dd.MM HH:mm") & "',
@@ -135,7 +137,8 @@ Public Class TSUserReporter
         Label1.Text &= "Letzte Aktualisierung:" & vbCrLf
         Label1.Text &= lastupdate & vbCrLf
         Label1.Text &= Standarddrucker.Druckername & vbCrLf
-        Label1.Text &= Bondrucker.Druckername & vbCrLf & vbCrLf
+        Label1.Text &= Bondrucker.Druckername & vbCrLf
+        Label1.Text &= "TimasID: " & cRes.LocalUser.TimasID & vbCrLf
         Label1.Text &= Message
     End Function
 
@@ -192,8 +195,10 @@ Public Class TSUserReporter
 
     Function SetUserEnviroment()
         Try
-            Environment.SetEnvironmentVariable("PC_SERVER", "pbx3.flashnet.at", EnvironmentVariableTarget.User)
-            Environment.SetEnvironmentVariable("PC_USER", cRes.LocalDomUser.mit_username & "@verag", EnvironmentVariableTarget.User)
+            Environment.SetEnvironmentVariable("PC_SERVER", "my.pbxcloud.at", EnvironmentVariableTarget.User)
+            Environment.SetEnvironmentVariable("PC_USER", Nothing, EnvironmentVariableTarget.User)
+            Environment.SetEnvironmentVariable("timasID", cRes.LocalUser.TimasID, EnvironmentVariableTarget.User)
+            ' Environment.SetEnvironmentVariable("PC_USER", cRes.LocalDomUser.mit_username & "@verag", EnvironmentVariableTarget.User)
             'Environment.SetEnvironmentVariable("PC_PASS", cRes.LocalDomUser.mit_pwd, EnvironmentVariableTarget.User)
             ' Environment.SetEnvironmentVariable("PC_USE_CUSTOM_NOTIFICATIONS_AS_DEFAULT", "ENA", EnvironmentVariableTarget.User)
             '  MsgBox(Environment.GetEnvironmentVariable("PC_SErVER"))
@@ -278,6 +283,8 @@ Public Class TSUserReporter
                 My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", p.Druckername)
             ElseIf p.Druckertype = "Bon" Then
                 Bondrucker = p
+            ElseIf p.Druckertype = "Niederlassung" Then
+                Niederlassung = p
             End If
         Next
         writeoutAVISO_OPTIONS()
@@ -309,7 +316,8 @@ Public Class TSUserReporter
             Text = ""
         Else
             Text = "PRINTER:" & Standarddrucker.Druckername & vbCrLf
-            Text &= "BON:" & Bondrucker.Druckername
+            Text &= "BON:" & Bondrucker.Druckername & vbCrLf
+            Text &= "Niederlassung:" & Niederlassung.Druckername
         End If
         Try
             System.IO.File.WriteAllText(PrintINI, Text)