vbscript read string in text file

Brandon;

After briefly testing this out, and only placing two of the files on my system, it's still echoing all four numbers, instead of two.  You're correct though, there is no reason to write out the value returned from reading text strings into another file.  Basically, what Im trying to do is use this numeric value as the exit code of the script:  i.e.  wscript.quit(strResult).  Without having to create an additional reporting class in Altiris, I can create a collection in Altiris Notification Server based on this exit code from the script.  Just seem to have an issue reading text in the file correctly though.  I appreciate your assistance.

Instead of saying what your code is doing with the files, can you just post what you want to happen.  

Are you just looking to see if test1.exe,test2.dll,test3.ocx (typo in my script), and test4.exe exist, and return 1,2,3,4 as the exit code accordingly?

I want it to read the logfile, and find the strings that I specify then assign a value to the strings that are found in the logfile  "1" for test.exe, "2" for test2.dll and so on.  There's not an issue of writing it to the logfile, it just looks like when it's reading from the logfile it's skipping the first line.  

so you believe this:

Set objLogFile = objFSO.OpenTextFile("LogFile.txt", 1)
strSeatchThis = objLogFile.readall

is not getting the first like of your logfile?

or here?

 Do until objRS.AtEndOfStream
   strResult = strResult & objRS.ReadLine
 loop

Because that doesn't need to happen as I was building out strResult as it went along.


How about let's go back to the basics for my understanding.

You have 4 files.  Test1, Test2, Test3 and Test4.  You want these four files to be SEARCHED for Test1.Exe,Test2.dll,Test3.ocx and test4.exe.  So let's say for simplicity that test1.exe is ONLY in test1, test2.dll is ONLY in test2, and so on.

What would you expect your output to be?

N ERROR RESUME NEXT
strComputer      = "." 
Const ForReading = 1
 
Set objFSO     = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.CreateTextFile("LogFile.txt")
Set objRS      = objFSO.CreateTextFile("RSFile.txt")
 
arrFileNames   = Array("'Test1'","'Test2'","'Test3'","'Test4'") 
strQueryFilter = "FileName = " & Join(arrFileNames, " OR FileName = ")
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE " & strQueryFilter,, 48)
 
For Each objFile In colFiles
   objLogFile.write(objFile.FileName & "." & objFile.Extension & vbCrLf)
Next
 
objLogFile.close
 
Set objLogFile = objFSO.OpenTextFile("LogFile.txt", 1)
strSeatchThis = objLogFile.readall
strResult = ""
 
if RegExpTest("Test1.exe", strSearchThis) > 0 then 
strResult  = strResult  & "1" & vbcrlf
 
if RegExpTest("test2.dll", strSearchThis) > 0 then 
strResult  = strResult  & "2" & vbcrlf
 
 
if RegExpTest("test2.dll", strSearchThis) > 0 then 
strResult  = strResult  & "3" & vbcrlf
 
if RegExpTest("test4.exe", strSearchThis) > 0 then 
strResult  = strResult  & "4" & vbcrlf
 
 
objLogFile.close
objRS.close
 
 
 
 
If strResult = "" Then
   wscript.quit(0)
 Else
   wscript.quit(strResult)
End if
 
 
Function RegExpTest(strMatchPattern, strPhrase)
    'create variables
    Dim objRegEx
    Set objRegEx = New RegExp 
    objRegEx.Global = True
    objRegEx.IgnoreCase = True
    objRegEx.Pattern = strMatchPattern 
     RegExpTest=objRegEx.test(strPhrase)
    'create the collection of matches
End Function 

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

I've gone back and looked at my original script.  It appears as if I failed to look into detail how the InStr function works.  For each text string I'm looking for, I need to tell it what character to start the search on:

if instr(1,strSearchThis,"Test1.exe",1) > 0 then

instead of just :

if instr(strSearchThis,"Test1.exe") > 0 then

as well as tell the function to use vbTextCompare.  It appears to be working fine now.  Thank you once again for the assistance.

Read this description of the use of the instr function.

http://www.devguru.com/Technologies/vbscript/quickref/instr.html

The Starting Position is optional, unless you are using vbTextCompare compare method.  

I totally missed that, because I do that or upper() the string and test usually because I don't care about case sensitivity usually.


I still say the regex would be a cleaner method.

const SearchFor1 = "a"
const SearchFor2 = "A"
const searchin = "aA"
 
wscript.echo instr(searchin,searchfor1)
wscript.echo instr(searchin,searchfor2)
 
 
wscript.echo instr(1,searchin,searchfor1)
wscript.echo instr(1,searchin,searchfor2)
 
wscript.echo instr(1,searchin,searchfor1,1)
wscript.echo instr(1,searchin,searchfor2,1)
 
wscript.echo instr(1,searchin,searchfor1,vbTextCompare)
wscript.echo instr(1,searchin,searchfor2,vbTextCompare)
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16: