0

こんにちは、スクリプトの専門家....

以下のコードであなたの助けを探しています....RemoteServersList.Txtと私は\RemoteServerName\E$\V2\log.Txtのようなすべてのシステムを呼び出したかったのですが、数行のコードがありません...

親切に私を助けてください....どうもありがとう....

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InFile = fso.OpenTextFile("RemoteServersList.Txt")

Const ForReading = 1

Do While Not (InFile.atEndOfStream)

strComputer = InFile.ReadLine


today = Date()

Set fso = CreateObject("Scripting.FileSystemObject")


strFilePath = "\\" & strComputer & "\E$\V2\" ' This is wrong 'here I am missing a 'code.. looking for your help

Set InputFile = fso.OpenTextFile("strFilePath\log.txt", 1)  ' This is wrong here I am 'missing a code.. looking for your help


Set out = fso.OpenTextFile("error.log", 2)

    Do Until InputFile.AtEndOfStream
      line = InputFile.ReadLine
      If Left(line, Len(today)+1) = "[" & today Then

    WScript.Echo "Hello" ' I need to append this to output file
    out.WriteLine line & vbTab & InputFile.ReadLine & vbTab & strComputer


            If InStr(line, "error") > 0 Then
        ' line contains "error"
        out.WriteLine line & vbTab & InputFile.ReadLine & vbTab & strComputer

        End If
    End If


    Loop

InputFile.Close
out.Close


Loop
4

1 に答える 1

1

RemoteServerList.txt は、次のように記述されたサーバーのリストを含む txt ファイルです。

server-1
server-2
server-3
etc.

各サーバーで、次のテキスト ファイルを読み取る必要があります。

\\server-1\e$\V2\log.txt
\\server-2\e$\V2\log.txt

?

あなたのコードで最初に目にする問題は、文字列の割り当てにあります。これは正しいはずです:

strFilePath = "\\" & strComputer & "\E$\V2\"
Set InputFile = fso.OpenTextFile(strFilePath & "log.txt", 1)

しかし、error.log ファイルをどこに書きたいのでしょうか? ローカリーまたはリモートマシン上？

ローカル マシンでファイルを開きたい場合は、スクリプトの開始時、Set Inifile のすぐ下でファイルを 1 回だけ開く方がよいでしょう。

また、ファイルがまだ存在しない場合は、CreateTextFileを使用するか、fso.OpenTextFile("error.log", 2, True)で開く必要があります。

Set Fso = CreateObject("Scripting.FileSystemObject")
Set InFile = fso.OpenTextFile("RemoteServersList.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 & "\E$\V2\"

  Set InputFile = fso.OpenTextFile(strFilePath & "log.txt", 1)
  Do Until InputFile.AtEndOfStream

    If (condition) Then
      out.WriteLine [write something to output file]
    End If

  Loop
  InputFile.close

Loop

out.Close
InFile.Close
于 2012-10-19T10:09:52.190 に答える