вторник, 30 декабря 2014 г.

Скрипт логгирования и печати на VBS

Если необходимо заллогировать некоторые действия в процессе работы скриптов, можно воспользоваться объектом FileSystemObject и писать в файл. Для вывода же на печать достаточно командной строки стандартного блокнота. При этом для ее вызова вполне можно использовать Shell. Скрипт под катом...

set FSO=CreateObject("Scripting.FileSystemObject")
set file =FSO.CreateTextFile("log.txt")
file.WriteLine("я строка JA STROKA")
file.WriteLine("Привет Виталию!")
file.Close


WScript.Sleep 1000
 

'Set objShell = CreateObject ("Shell.Application")
'objShell.ShellExecute "log.txt","","", "print",0
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run """notepad.exe"" /p """ & "log.txt" & """", 0, False
WScript.Sleep 1000
 Результат работы скрипта 'prnwrite.vbs':


скачать сабж

Комментариев нет:

Отправить комментарий

В комментариях уважайте собеседника, внимательно читайте посты и не додумывайте. Просьбы и предложения из разряда: «можно ваш Skype/Viber/телефон», «напишите мне в vk/FB», а также другие им подобные — игнорируются. Выход новых версий ПО, внешняя ссылка, переставшая работать с течением времени и т.п. не является основанием для претензий. Желающие спокойно подискутировать и высказаться — Welcome. Желающие спонсировать блог — Donate. Нарушение этих простых правил ведет к бану и удалению комментариев без предупреждения.