嘗試將stdout重定向到文件

Question

我想將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 

Answer 1

如果你想從腳本中做到這一點打開，而不是使用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 

我不確定「location」的意思。