我想将stdout发送到一个日志文件,其中包含每个打印机的时间戳和位置。
On Error resume Next
Dim objNetwork, StdIn, StdOut
'Initialize the printer connections object
Set objNetwork = CreateObject("WScript.Network")
Set StdIn = WScript.StdIn
Set StdOut = WScript.StdOut
'Connect each printer
objNetwork.AddWindowsPrinterConnection "\\server\pr01"
objNetwork.AddWindowsPrinterConnection "\\server\pr02"
objNetwork.AddWindowsPrinterConnection "\\server\pr03"
'Remove old printers
'objNetwork.RemoveWindowsPrinterConnection "\\old_server\printer_1"
'objNetwork.RemoveWindowsPrinterConnection "\\old_server\printer_2
答案 0 :(得分:0)
如果您想在脚本中执行此操作,请打开文件而不是使用WScript.StdOut
:
Set fso = CreateObject("Scripting.FileSystemObject")
...
Set StdOut = fso.OpenTextFile("C:\path\to\your.txt", 2, True)
...
StdOut.Close
否则将脚本创建的输出重定向到文件:
C:\>cscript //NoLogo script.vbs >C:\path\to\your.txt
时间戳可以这样打印:
StdOut.WriteLine Now
我不确定“位置”究竟是什么意思。