Ordner überwachen und Benutzername ausgeben

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von marctheshark.

    Ordner überwachen und Benutzername ausgeben

    Hallo zusammen,

    ich habe mir eine Ordnerüberwachung erstellt, funktioniert bestens.
    Ich starte das Programm auf einem Server und möchte nun noch den Benutzernamen von demjenigen der die Datei verändert in die log Datei schreiben.
    Wie kann ich das am besten machen?

    Vielen Dank

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. Private WithEvents m_fsw As IO.FileSystemWatcher
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. m_fsw = New IO.FileSystemWatcher("F:\daten")
    8. m_fsw.EnableRaisingEvents = True
    9. m_fsw.IncludeSubdirectories = True
    11. End Sub
    13. Private Sub m_fsw_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles m_fsw.Created
    15. Dim pfad As String = e.FullPath
    16. Dim zeit As String = TimeOfDay
    17. ' MessageBox.Show(pfad & " wurde um " & zeit & " " & "erstellt")
    18. Dim fstr As New IO.FileStream("C:\Datenlog.log", FileMode.Append, FileAccess.Write)
    19. Dim write As New StreamWriter(fstr)
    20. write.Write(pfad & " wurde um " & zeit & " " & "erstellt")
    21. write.WriteLine()
    22. write.Close()
    23. fstr.Close()
    24. End Sub
    26. Private Sub m_fsw_Deleted(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles m_fsw.Deleted
    27. Dim pfad As String = e.FullPath
    28. Dim zeit As String = TimeOfDay
    29. ' MessageBox.Show(pfad & " wurde um " & zeit & " " & "gelöscht")
    30. Dim fstr As New IO.FileStream("C:\Datenlog.log", FileMode.Append, FileAccess.Write)
    31. Dim write As New StreamWriter(fstr)
    32. write.Write(pfad & " wurde um " & zeit & " " & "gelöscht")
    33. write.WriteLine()
    34. write.Close()
    35. fstr.Close()
    36. End Sub
    38. Private Sub m_fsw_Renamed(ByVal sender As Object, ByVal e As System.IO.RenamedEventArgs) Handles m_fsw.Renamed
    39. Dim pfad As String = e.FullPath
    40. Dim zeit As String = TimeOfDay
    41. ' MessageBox.Show(pfad & " wurde um " & zeit & " " & "umbenannt")
    42. Dim fstr As New IO.FileStream("C:\Datenlog.log", FileMode.Append, FileAccess.Write)
    43. Dim write As New StreamWriter(fstr)
    44. write.Write(pfad & " wurde um " & zeit & " " & "umbenannt")
    45. write.WriteLine()
    46. write.Close()
    47. fstr.Close()
    48. End Sub
    50. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    51. Me.Close()
    53. End Sub
    54. End Class



    Gruß vom Shark

    Meinst du den Benutzernamen vom aktuellen benutzerkonto , Rechnername ?

    VB.NET-Quellcode

    1. MsgBox(Environment.UserName) 'Username des Aktuellen Benutzerkontos
    2. MsgBox(Environment.MachineName) 'Rechnername
    GOOGLE ist mein Meister :)

    @ Bady
    Vielen Dank für die schnelle Antwort, jedoch funktioniert das nicht so wie ich mir es vorstelle.
    Dein Vorschlag gibt mit immer den Benutzer des Servers (Admin) und entsprechend auch den Rechnernamen zurück.
    Das heist, dass immer der Lokale Rechner abgefragt wird.
    Ich möchte jedoch den Benutzernamen des Netzwerkbenutzers der die Datei verändert, denn sonst habe ich ja überall den gleichen Benutzer und Rechnernamen in meiner log Datei wenn etwas verändert wird.



    Gruß vom Shark