Vista - VB Script that searches a file for different text, with an append.

I'm trying to do the following and not having much luck.

I need a script that opens a text log, once opened it searches for a unique
identifyer that resides near the top of the file and looks something like
this:

"running with process name
USSECAVDMPAPP1Cell01\USSECAVDMPAPP28Node01\server55" (I'm only really
interested in the "server55" piece, but can make due with the entire string.

The script then needs to continue parsing the file for error conditions
which look like this:

"There is/are 1 thread(s) in total in the server that may be hung"

There could be multiple instances of that error message.

What I would like to do is write to a seperate file the uniqueID, pluss
error message, something similiar to this:

There is/are 1 thread(s) in total in the server that may be hung on server55.


Any assistance would be greatly appreciated.

Regards,

Mike

"njmike" <njmike@xxxxxx> wrote in message
news:A0DC18CE-BF54-4C1E-A78F-32D7A4676F22@xxxxxxLet's have a look at what you've got so far. We can probably built in that.

"Pegasus (MVP)" wrote:
Const ForReading = 1

Set objFSo = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("testIn.txt")

Do Until objFile.AtEndOfStream
strText = objFile.ReadLine
If InStr(strText, "running with process name") Then
arrText = Split(strText, "and process id")
strVariable = arrText(0)
'Exit Do
ElseIf InStr(strText, "There is/are") Then
arrText = Split(strText, "in total in the server")
strVariable1 = arrText(0)
Exit Do
End If
Loop








objFile.Close

Wscript.Echo strVariable
Wscript.Echo strVariable1

The issue this is having is its grabbing the right server string and echoing
that back, then it gets the error info - but only the first instance of it.
There are multiple instances after, which I can't get it to loop to.

"njmike" <njmike@xxxxxx> wrote in message
news:A0F908A5-5F82-4581-8EFA-15BD1AF2CAA9@xxxxxxThis looks like a pretty good start. However, your job spec is a little
vague. Here are some questions:
- In your initial post you mention a "UniqueID". What ID
might this be?
- How many server identifier lines are there? Just the one? What
if there isn't one? What if there is more than one?
- Do you want to write each instance of a hung process to the
console or do you want to count them, then write a single
summary line?
- If you want to process the whole file, why do you have an
"exit do" in your code?

"Pegasus (MVP)" wrote:
This looks like a pretty good start. However, your job spec is a little
vague. Here are some questions:



Q. In your initial post you mention a "UniqueID". What ID
might this be?
A. I call it a unique Id, but its really a substring of the following line
of text in the log:

"running with process name
USSECAVDMPAPP1Cell01\USSECAVDMPAPP28Node01\server55"
The uniqueID, is actually the text "server55" which corresponds to a VM
guest, running WAS - two per host, with a total of 47 hosts - so that
uniqueID will actually be anything from server1 to server94.


Q. How many server identifier lines are there? Just the one? What
if there isn't one? What if there is more than one?
A. Each log will have only one ID line in it. If there is not one, it can
be assumed there is some sort of error condition and the text for that
variable should read "unkonwn server" There should never be more than one,
if there is though, they will be dupes.




Q. Do you want to write each instance of a hung process to the
console or do you want to count them, then write a single
summary line?
A.I would like to write each out to a summary file - which will be monitored
by OVO and alert our service desk of a possible issue.



Q. If you want to process the whole file, why do you have an
"exit do" in your code?
A. Good question.. Its due to inexperience with VBS.. let me try removing it.

Regards,

Mike

"njmike" <njmike@xxxxxx> wrote in message
news:FD9C14EF-95F1-4959-9745-D2060E56FC00@xxxxxxOK, this makes it much clearer. Please have a look at the code below. It's
much the same as your own. Note that I did not test it.
Const ForReading = 1
ServerID = "(unknown server)"

Set objFSo = CreateObject("Scripting.FileSystemObject")
'***Set objFile = objFSo.OpenTextFile("testIn.txt")
Set objFile = objFSo.OpenTextFile("c:\testIn.txt")

Do Until objFile.AtEndOfStream
strText = objFile.ReadLine
'If InStr(strText, "running with process name") Then
If InStr(strText, "running with process name") > 0 Then
'arrText = Split(strText, "and process id")
'strVariable = arrText(0)
ServerID = Split(strText, "and process id")(0)
'Exit Do (why?)
End If
If InStr(strText, "There is/are") Then
'arrText = Split(strText, "in total in the server")
'strVariable1 = arrText(0)
WScript.Echo Split(strText, "in total in the server")(0) _
& " on "& ServerID
End If
Loop

objFile.Close

Comments:
Line2: Here we preset the server name, in case it's
not defined in your text file.
Line6: If you want your scripts to be robust then you MUST
fully qualify each file name with drive & folder name.
Line11: The instr function returns a number reflecting the position
where the search string was found. If not found then it
returns 0. Your code should reflect this.
Line14: You can combine the two preceding lines into a
single line of code.
Line15: Don't exit if you want to process the whole file!
Line20: You should write each instance of a hung process
to the console.

"Pegasus (MVP)" wrote:
It worked perfectly. Going to do some testing on it.
Regards,
Mike

"njmike" <njmike@xxxxxx> wrote in message
news:168120DC-E2B0-4951-83AA-8E8E6C03C47E@xxxxxxThanks for the feedback.