scripting - VBscript 输出写不正确

Question

脚本专家您好，

我在远程服务器上有一个日志文件..
在远程服务器中 c:\vb\text.log
我已将我的远程系统包含在 list.Txt 中喜欢

server1
server2

下面是日志的样本..

application working
[10/23/2012 working

[10/24/2012 nos appdown
error found you need to check this

下面是我的脚本。

Set Fso = CreateObject("Scripting.FileSystemObject")
Set InFile = fso.OpenTextFile("list.Txt")
Set out = fso.CreateTextFile("error.log")

Const ForReading = 1
Do While Not (InFile.atEndOfStream)
  strComputer = InFile.ReadLine
  today = Date()
  Set fso = CreateObject("Scripting.FileSystemObject")
  strFilePath = "\\" & strComputer & "\c$\vb\"

  Set InputFile = fso.OpenTextFile(strFilePath & "text.log", 1)
  Do While Not (InputFile.AtEndOfStream)
    strLine = InputFile.ReadLine

    If Left(line, Len(today)+1) = "[" & today Then
      ' line timestamped with today's date
      If InStr(line, "nos") > 0 Then
        ' line contains "error"
        out.WriteLine InStr & vbTab & strComputer
      End If
    End If
  Loop
  InputFile.close
Loop

out.Close
InFile.Close

基本上，上面的脚本应该只从 text.log 从当前日期行开始搜索文件是 [10/24/2012 nos appdown .然后，如果在当前日期行中发现为“Nos”.. 那么它应该写入 error.log与计算机名称。

在我的情况下，输出没有出现，但看起来它正在搜索字符串“Nos”。

请盖尔让我摆脱这种情况......

Answer 1

错误是您没有指定显式选项。像这样，

option explicit

这将迫使 VBScript 提示未声明的变量。通过这样做，您可以轻松地发现拼写错误的变量名称。带有dim语句的Delcare变量，像这样

dim Fso, out

再次运行脚本，看到您使用的是不存在且未初始化的变量进行比较:

strLine = InputFile.ReadLine ' Read stuff to strLine
If Left(line, Len(today)+1) = "[" & today Then ' ERROR. line has no value!