Log-Datei Fehler im Netzwerk
21.04.2006 16:11:20
Tom
ich habe ein Makro, welches die Zugriffe in einer kleinen Text-Datei speichert. Bei meiner Person an meinem Rechner klappt es auch super. Nur wenn andere Herren (diese gehen meist an anderen Rechnern schreibgeschützt rein) die Datei nutzen, wird das nicht protokolliert...
Hier mal das Makro in der Hoffnung eine Lösung zu finden.
Sub InTextdatei()
Dim sTxt As String
Dim name As String
Dim vorname As String
Dim nachname As String
Dim PCName As String
Dim Zeit As String
Dim User As String
name = Environ(16)
User = Environ(45)
PCName = Environ(21)
Zeit = Now
On Error GoTo ERRORHANDLER
If InStr(name, "=") Then
name = Right(name, Len(name) - InStr(name, "="))
vorname = Left(name, InStr(name, " "))
nachname = Right(name, Len(name) - InStr(name, " ") + 1)
End If
Open "\\1-server\07 Kaufm. Abteilung\Statistik\logNK06.txt" For Append As #1
sTxt = User & ";" & PCName & ";" & Now & ";" & name
sTxt = Now & ";" & Environ("Username") & ";" & Application.UserName
Print #1, sTxt
Close
MsgBox "Überwachung gestartet!"
Exit Sub
ERRORHANDLER:
MsgBox "Textdatei konnte nicht erstellt werden!"
End Sub
Die Textdatei speichert dann zB:
21.04.2006 10:49:04;ThomasRitter;ThomasRitter
Das der PC-Name gespeichert wird, hab ich auch nicht hinbekommen...
Hat jemand ne Lösung warum das an den anderen PCs nicht geht? Das Verzeichnis in dem die Log-Datei liegt, ist aber für die Nutzer frei zugänglich auf dem Server.
MfG aus Berlin
Tom