使用VBS创建日志

Question

目前，我使用以下脚本将某个文件夹复制到computers.txt中的每台计算机上。虽然它跳过了明显关闭的计算机，但我想知道哪些计算机被跳过了，或者至少哪些计算机成功了。

InputFile = "c:\scripts\input\computers.Txt"
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(InputFile)
Do While Not (objFile.AtEndOfStream)
strComputer = objFile.ReadLine
On Error Resume Next
objFSO.CopyFolder "\\baardrob\Software\PACS Beheer Tools\PACS Beheer Tools" , "\\" & strComputer & "\c$\PACS Beheer Tools\Pacs starten" , OverWriteFiles
Err.Clear
Loop

MsgBox "Done"

Answer 1

这样的代码应该可以：

Set myLog = objFSO.OpenTextFile("C:\path\to\my.log", 2)
Do Until objFile.AtEndOfStream
  strComputer = objFile.ReadLine
  On Error Resume Next
  objFSO.CopyFolder ...
  If Err Then myLog.WriteLine strComputer & vbTab & Err.Number & vbTab _
    & Err.Description
  On Error Goto 0
Loop
myLog.Close