vbscript - 在脚本中启用日志

Question

我是脚本新手，我写了下面的脚本来在多台计算机上创建文件夹，我需要创建显示任务成功和失败状态的日志文件。有人能帮我吗。

脚本 ：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\CL_Repair\Computers.txt")

Do Until objFile.AtEndOfStream
strComputer = objFile.ReadLine

Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
    errReturn = objWMIService.Create _
    ("cmd.exe /c md c:\CL_Repair", Null, Null, intProcessID)

Loop

MsgBox("Folder = CL_Repair Created on Computers")

Answer 1

我认为这就是您要寻找的东西。多年前，我曾与比尔·斯图尔特（Bill Stewart）合作过一些脚本项目，他是可靠的资源。

http://social.technet.microsoft.com/Forums/windows/en-US/52873f35-5d55-498c-949e-da8ceb1df980/vbscript-write-error-to-log-file

两项通知：

On Error Resume Next

是您需要添加到 VBScript 中的一行。

设置要运行的批处理文件：

@echo off
ECHO %COMPUTERNAME% >> C:\Scripts\errors.txt
cscript C:\Scripts\myScript.vbs 2>> C:\Scripts\errors.txt

现在，这应该捕获看到的问题并应该为您记录。

好的..您要求提供服务器列表（文本）列表..尝试这样的事情..您真的不需要VBScript来执行此操作..

:: http://www.robvanderwoude.com/files/servers_nt.txt
:: Check all servers in the list
FOR /F "tokens=*" %%A IN ('TYPE servers.txt') DO (
ECHO %%A >> C:\Scripts\errors.txt
IF NOT EXIST \\%%A\c$\CL_Repair\. ECHO CREATING FOLDER \\%%A\c$\CL_Repair >> C:\Scripts\errors.txt
IF NOT EXIST \\%%A\c$\CL_Repair\. MD \\%%A\c$\CL_Repair
IF NOT EXIST \\%%A\c$\CL_Repair\somefile.exe ECHO copying somefile.exe \\%%A\c$\CL_Repair >> C:\Scripts\errors.txt
IF NOT EXIST \\%%A\c$\CL_Repair\somefile.exe copy c:\CL_Repair\somefile.exe \\%%A\c$\CL_Repair
IF NOT EXIST \\%%A\c$\CL_Repair\anotherfile.bat ECHO copying anotherfile.bat \\%%A\c$\CL_Repair >> C:\Scripts\errors.txt
IF NOT EXIST \\%%A\c$\CL_Repair\anotherfile.bat copy c:\CL_Repair\anotherfile.bat \\%%A\c$\CL_Repair)

GOTO End

:END
EXIT