VBScript tilføje linjer i txt-file

Har brug for lidt hjælp:
skal køre et script, som løbende skal opsummere en log, hvem der kører et program.
Der skal gerne tilføjes linjer - hvordan er det nu man +1 linje hele tiden.
Koden ser sådan ud:

Function WriteLineToFile
  Set WshNetwork = WScript.CreateObject("WScript.Network")
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("C:\test.txt", ForWriting, True)
  f.WriteLine ("Bruger: " & WshNetwork.UserName  & " " & "Server: " & WshNetwork.ComputerName & " " &  " DatoTid: " & now())
  Set f = fso.OpenTextFile("C:\test.txt", ForReading)
  WriteLineToFile = f.ReadAll
  f.close
End Function