Script - Append user+date to file

Om det er batch eller VB er lige meget.

Saksede lidt fra nogle eksempler

Set objSysInfo = CreateObject("ADSystemInfo")
Set objCurrentUser = GetObject("LDAP://" & objSysInfo.UserName)

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim f, fs
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\test\test.txt", ForAppending, -2)
f.write ("Dato: " & Date)
f.write (" Tidspunkt: " & Time)
f.write (" Bruger: " & objCurrentUser.givenName + " " + objcurrentuser.lastname)
f.write (" Logget på")
f.writeline()
f.Close

lukker