Search the text file using vbscript.

Question

Hi I have some data in my text file. Below is the content. Now I need to search the file whether it contains identityType as ApplicationPoolIdentity. Any help in vbscript???
 name:"example"
 queueLength:"1000"
 autoStart:"true"
 enable32BitAppOnWin64:"false"
 managedRuntimeVersion:"v2.0"
 managedRuntimeLoader:"webengine4.dll"
 enableConfigurationOverride:"true"
 managedPipelineMode:"Integrated"
 CLRConfigFile:""
 passAnonymousToken:"true"
 startMode:"OnDemand"
 [processModel]
   identityType:"ApplicationPoolIdentity"
   userName:""
   password:""
   loadUserProfile:"false"

Answer 1

ok my solution is below,
CONST ForReading = 1
Dim File1
Dim FileToRead
Dim strLine
Dim infoResult
Dim strDir, objFile, returnvalue
strDir = "C:\Scripts\"
File1 = "sample.txt"
FileToRead = strDir & File1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(FileToRead, ForReading)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
        if instr(strLine, "identityType") <> 0 then
          if instr(strLine, "LocalSystem") <> 0 then
                infoResult = "Found"
                exit do
            end if
        else
            infoResult = "Not Found"
        end if
Loop
objFile.Close
 Wscript.Echo infoResult    
Set objFSO = Nothing
Set objFile = Nothing