VBS-Erstellen der CSV-Datei dann hinzufügen von zusätzlichen Zeilen

Unten ist mein VBS-code. Ich gebe zu, ich bin extrem neu hier da ich diese als ein job bei der Arbeit. Ich brauche erstellen Sie einen logon - /logoff-Skript, das erfassen bestimmte Informationen und speichern Sie es in eine csv-Datei. Ich bin in der Lage zu Holen Sie sich die Informationen und speichern in der csv-Datei, aber wenn ich versuche, es wieder zu tun, ich will es schaffen, anderen Zeile, und speichern Sie die aktualisierten Informationen gibt. Ich bekomme immer diese asiatischen Zeichen. Was scheint das problem zu sein.

Dies ist, was ich auf dem zweiten mal, wenn ich auf mein log-off Skript:
਍潙牵琠硥⁴潧獥栠牥⹥਍

' ******************** Log Off Script **********************************
'Script to write Logoff Data Username, Computername to eventlog.

Dim objShell, WshNetwork, PCName, UserName, strMessage, strContents, logDate, logTime
Dim strQuery, objWMIService, colItems, strIP, rowCount

' Constants for type of event log entry
const EVENTLOG_AUDIT_SUCCESS = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")

logDate = Date()
logTime = Time()
PCName = WshNetwork.ComputerName 
UserName = WshNetwork.UserName  
strMessage = "Logoff Event Data" & "PC Name: " & PCName & "Username: " & UserName & "Date: " & logDate & "Time: " & logTime

If (objFSO.FileExists("test.csv")) Then
WScript.Echo("File exists!")
dim filesys, filetxt 
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set filesys = CreateObject("Scripting.FileSystemObject") 
Set filetxt = filesys.OpenTextFile("test.csv", ForAppending, True) 
filetxt.WriteLine(vbNewline & "Your text goes here.") 
filetxt.Close 

Else
rowCount = rowCount + 1
WScript.Echo("File does not exist! File Created!")
Set csvFile = objFSO.CreateTextFile("test.csv", _ 
ForWriting, True)

objShell.LogEvent EVENTLOG_AUDIT_SUCCESS, strMessage
csvFile.Write strMessage
csvFile.Writeline

End If  

WScript.Quit

InformationsquelleAutor Sean Cleveland | 2013-09-09

  1. 5

    Wenn Sie Zweifel haben, Lesen Sie die Dokumentation. Sie erstellen die Datei im Unicode-format (3rd - argument von CreateTextFile eingestellt True):

    Set csvFile = objFSO.CreateTextFile("test.csv", _
ForWriting, True)

    aber öffnen Sie eine vorhandene (Unicode) - Datei im ASCII-format (4th - argument von OpenTextFile nicht angegeben):

    Set filetxt = filesys.OpenTextFile("test.csv", ForAppending, True)

    Entweder öffnen Sie eine Datei im Unicode-format die ganze Zeit, oder nie.

    Auch, es ist unnötig, mehr als eine FileSystemObject Instanz. Verwenden Sie einfach die, die Sie erstellt zu Beginn im gesamten Skript. Sie können auch die gleiche variable für den text-stream-Objekt.

    Wenn Sie möchten, um die Verwendung der Unicode-format Sie ändern müssen, die oben genannten zwei Zeilen in diese:

    Set csvFile = objFSO.CreateTextFile("test.csv", False, True)
...
Set csvFile = objFSO.OpenTextFile("test.csv", ForAppending, False, True)

    sonst in dieser:

    Set csvFile = objFSO.CreateTextFile("test.csv")
...
Set csvFile = objFSO.OpenTextFile("test.csv", ForAppending)
    Ich danke Ihnen sehr! Funktioniert perfekt!

    InformationsquelleAutor Ansgar Wiechers

Schreibe einen Kommentar