vbs логирование в файл.vbs

vbs-Логирование в файл.vbs

'БЛОК ЛОГИРОВАНИЯ VBS---------------------------------------------------
Dim WshShell	: set WshShell = WScript.CreateObject("WScript.Shell")
Dim objFS 		: set objFS = CreateObject("Scripting.FileSystemObject")
Dim file 		: file = fileLog
Dim objFile
Dim tfile

if objFS.FileExists(file) then
		Set tfile = objFS.GetFile(file)
		'8 - открываем для добавления
		'1 - для чтения
		'2 - для записи. 
		'--
		'-2 используем системную кодировку
		Set objFile = tfile.OpenAsTextStream(8, -2)	
	else
		Set objFile = objFS.CreateTextFile(file, False)
end if
WScript.Echo "[путь к файлу лога]: " & objFS.GetAbsolutePathName(file)
' ----------------------------------------------------------------------


'ЗАВЕРШЕНИЕ БЛОКА ЛОГИРОВАНИЯ-------------------------------------------	
objFile.Close
Set objFile = Nothing
Set objFS = Nothing
' ----------------------------------------------------------------------


sub log(textLog)
	Dim strLog : strLog = now() & " " & textLog 	
	Wscript.echo strLog
	objFile.WriteLine strLog
end sub