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

启用日志脚本

1 个答案: