VBScript Печать текста на принтер

[Stilet]

Всем доброго. Кто знает скажите как из VBS посылать текст (строку) на печать? Есть ли что-то в винде из ActiveX для печати, что можно зацепить и использовать через GetObject()?

[raxp]

prncnfg.vbs из System32 чаво-то содержит...

...еще можно свойством объекта Shell воспользоваться, типа:

Set objShell = CreateObject ("Shell.Application")
objShell.ShellExecute "имя.TXT","","", "print",0

[Stilet]

Ха-ха )))
"Обмануть винду" называется
Не способ конечно зачетный, но как-то кощунственно что-ли формировать файл, а потом посылать на печать...

[raxp]

...ничего, ничего, если предполагается логгирование какое-то, то даже полезно:

set FSO=CreateObject("Scripting.FileSystemObject")
set file =FSO.CreateTextFile("log.txt")
file.WriteLine("я строка JA STROKA")
file.Close
WScript.Sleep 1000
Set objShell = CreateObject ("Shell.Application")
objShell.ShellExecute "log.txt","","", "print",0
WScript.Sleep 1000

[Stilet]

Вообще-то не поспоришь. Спасибо за идею.
Продумаю ее плюс способ перенаправления из LPT в расшаренный принтер командой NET USE и печати уже в LPT стандартными средствами.
Логирование мне не нужно особо это отчет по принципу "Распечатал - забыл", так что выбирать есть из чего.

[raxp]

...предпоследние две лучше так:

...
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run """notepad.exe"" /p """ & "log.txt" & """", 0, False

[Stilet]

Эх, разгул разнообразия прям
Спасибо, подберу что будет лучше работать из предложенного.