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

Umgebungsvariablen

Browse Source
This commit is contained in:
ms
2025-03-20 10:03:27 +01:00
parent 4993a243c6
commit 0e5472a0f8
4 changed files with 70 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Main.Designer.vb generated
View File

@@ -106,7 +106,6 @@ Partial Class TSUserReporter
Me.btnTest.TabIndex = 4
Me.btnTest.Text = "Test"
Me.btnTest.UseVisualStyleBackColor = True
Me.btnTest.Visible = False
'
'Button1
'

75
Main.vb
View File

@@ -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
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

19
cBenutzer.vb
View File

@@ -27,18 +27,31 @@ Public Class cBenutzer
Function FillWithLoggedOnUser(Optional ByVal dcabfrage As Boolean = False, Optional ByVal LDAPa As String = "") '"LDAP://DC=VERAG,DC=OST,DC=DMN")
Try
userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
Name = System.DirectoryServices.AccountManagement.UserPrincipal.Current.Name
Hostname = Environment.MachineName
Catch
Catch ex As Exception
MsgBox("FillWithLoggedOnUser:" & ex.Message)
End Try
Domäne = System.DirectoryServices.ActiveDirectory.Domain.GetCurrentDomain.ToString
BenutzeranmeldeName = Environment.UserDomainName & "\" & Environment.UserName
Username = Environment.UserName
If dcabfrage = True Then
Try
'Class1.DebugText = userPrincipalName & LDAPa
FillFromDC(userPrincipalName, "userPrincipalName", LDAPa)
FillTimasID()
Catch ex As Exception
MsgBox("dcabfrage: " & ex.Message)
End Try
End If
End Function
@@ -127,6 +140,7 @@ Public Class cBenutzer
End Function
Function FillTimasID()
Try
Dim ds As New DataSet
cSQL.SQL2DS("SELECT mit_timasID FROM ADMIN.dbo.tblMitarbeiter where mit_AliasAD_Username = '" & Me.sAMAccountName & "'", ds)
If ds.Tables.Count > 0 Then
@@ -134,6 +148,9 @@ Public Class cBenutzer
Me.TimasID = ds.Tables(0).Rows(0).Item(0)
End If
End If
Catch ex As Exception
' MsgBox("FillTimasID: " & ex.Message)
End Try
End Function

2
cDomUser.vb
View File

@@ -108,7 +108,7 @@ Public Class cDomUser
Next
Catch ex As Exception
'MsgBox("getDomUserByBenutzerAnmeldename" & Dom & vbCrLf & ds.Tables(0).Rows.Count & Username & vbCrLf & ex.Message)
MsgBox("getDomUserByBenutzerAnmeldename" & Dom & vbCrLf & ds.Tables(0).Rows.Count & Username & vbCrLf & ex.Message)
End Try
' MsgBox("hier")