Hallo,
leider hat mir keiner helfen könne, da habe ich es selbst herausgefunden. Hier zur Info der Code.
' Schreiben einer Logdatei
'SYS: Windows Script Host Runtime Library
Set fs = CreateObject("scripting.FileSystemObject")
Set nw = CreateObject("Wscript.Network")
Logfile = "\Pfaddatei.txt"
set Logbuch = fs.OpenTextFile(Logfile, 8,true)
benutzer = nw.Username
computer = nw.computername
if benutzer = "" then benutzer = "anonym " & "angemeldeten Benutzer"
logbuch.writeline "Ausgeführt am " & now & " durch " & benutzer & " an " & computer
logbuch.close