Umgebungsvariablen

Main.vb

@@ -15,6 +15,7 @@ Public Class TSUserReporter
     Dim ThinClient As String
     Dim isTS As Boolean = False
     Dim ID As String = ""
+    Dim AutoUpdate As Boolean = True
 
     Private Sub TSUserReporter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Visible = False
@@ -26,7 +27,7 @@ Public Class TSUserReporter
 
 
         FillLabel()
-        ID = StartTime.ToString("dd.MM HH:mm:ss") & cRes.LocalUser.BenutzeranmeldeName
+        ID = StartTime.ToString("yyyy.MM.dd HH:mm:ss ") & cRes.LocalUser.BenutzeranmeldeName
         LogLogOn()
     End Sub
 
@@ -36,9 +37,12 @@ Public Class TSUserReporter
 
     Sub Routine()
         Try
-            cRes.LocalUser.FillWithLoggedOnUser(True)
+            cRes.LocalUser.FillWithLoggedOnUser(True, "LDAP://DC=VERAG,DC=OST,DC=DMN")
+            '  MsgBox("1")
             cRes.LocalTeamviewerID = getregkey()
+            ' MsgBox("2")
             cRes.LocalDomUser.getDomUserByBenutzerAnmeldename(Environment.UserDomainName, Environment.UserName)
+            'MsgBox("3")
 
             isTS = cRes.LocalUser.Hostname Like "TS*"
             'isTS = True
@@ -51,7 +55,7 @@ Public Class TSUserReporter
                 CheckAutoLogOffAndIfthenAutoLogOff()
             End If
         Catch ex As Exception
-            'MsgBox(ex.Message)
+            MsgBox("Routine:" & ex.Message)
         End Try
     End Sub
 
@@ -181,21 +185,29 @@ Public Class TSUserReporter
     End Sub
 
     Private Sub UpdateTimer_Tick(sender As Object, e As EventArgs) Handles UpdateTimer.Tick
-        Routine()
+        If AutoUpdate = True Then
+            Routine()
+        End If
+
     End Sub
 
     Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
-        'If LoadDefaultPrinter(cRes.LocalUser.Hostname) Then
-        '    SetDefaultPrinter()
-        '    MsgBox(Drucker)
-        'End If
+        Dim PrinterShortName As String = ""
+        For Each printer As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
+            Dim position As Integer = printer.LastIndexOf("\")
+            If position > 0 Then
+                printer = printer.Substring(position + 1)
+            End If
 
+            PrinterShortName &= printer & vbCrLf
+        Next
+        MsgBox(PrinterShortName)
 
     End Sub
 
     Function SetUserEnviroment()
         Try
-            Environment.SetEnvironmentVariable("PC_SERVER", "my.pbxcloud.at", EnvironmentVariableTarget.User)
+            Environment.SetEnvironmentVariable("PC_SERVER", Nothing, 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)
@@ -211,31 +223,7 @@ Public Class TSUserReporter
 
     Public Function LoadDefaultPrinter(ByVal Hostname As String)
         Dim PrintINI As String = ""
-        'If isTS Then
-        '    PrintINI = "C:\Users\" & cRes.LocalUser.Username & "\Documents\AVISO_OPTIONS.txt"
-        '    Try
-        '        Dim lines = IO.File.ReadAllLines(PrintINI)
-        '        Dim colCount = lines.First.Split(":"c).Length
 
-        '        For Each line In lines
-        '            Dim objFields = From field In line.Split(":"c)
-
-        '            'Select Case objFields(0).ToString
-        '            '    Case Benutzername
-        '            If String.Compare("PRINTER", objFields(0).ToString, True) = 0 Then
-        '                Drucker = objFields(1).ToString
-        '                '_ConString = objFields(2).ToString
-        '                Return True
-        '                Exit Function
-        '            End If
-
-        '            ' End Select
-        '        Next
-        '        Return False
-        '    Catch ex As Exception
-        '        '  MsgBox("Fehler beim Lesen TSAnmeldung.ini: " & vbCrLf & ex.Message)
-        '    End Try
-        ' Else
         PrintINI = sNetlogon & "\ClientDrucker.ini"
         Printer.Clear()
         Try
@@ -248,7 +236,15 @@ Public Class TSUserReporter
                 'Select Case objFields(0).ToString
                 '    Case Benutzername
                 If String.Compare(Hostname, objFields(0).ToString, True) = 0 Then
-                    Dim p As New Drucker(objFields(1).ToString, objFields(2).ToString)
+                    Dim printername As String = objFields(1).ToString
+
+                    Dim position As Integer = printername.LastIndexOf("\")
+                    If position > 0 Then
+                        printername = printername.Substring(position + 1)
+                    End If
+
+                    Dim p As New Drucker(printername, objFields(2).ToString)
+
                     Printer.Add(p)
                     '_ConString = objFields(2).ToString
                     ' Return True
@@ -277,10 +273,21 @@ Public Class TSUserReporter
     End Function
 
     Public Function SetDefaultPrinter()
+        Dim sp As String = ""
         For Each p As Drucker In Printer
             If p.Druckertype = "" Or p.Druckertype = "Standard" Then
+
+                ''ip = installed printer
+                ''sp = standard printer
+                For Each ip As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
+                    If ip.LastIndexOf(p.Druckername, StringComparison.OrdinalIgnoreCase) > 0 Then
+                        sp = ip
+                    End If
+
+                Next
+
                 Standarddrucker = p
-                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", p.Druckername)
+                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", sp)
             ElseIf p.Druckertype = "Bon" Then
                 Bondrucker = p
             ElseIf p.Druckertype = "Niederlassung" Then