How to find a content within text files on remote pc's ?

[Goppi]

I'm looking for the best way to find a specific string (e.g. "directory&quot within text files where the name applies to a certain convention (e.g. "*data*.txt&quot that are stored in multiple sub-directories underneath a certain path (e.g. "C:\app&quot whereas the last sub-folder has always a fixed name (e.g. "data" in "C:\app\test1\data&quot on all pc's within a certain ip-range from a mgmt. console pc - Got that ;-).

Any ideas or tips?

Pete

 

[Goppi]

Is there really no tool available ? Or has nobody ever done that ?

Goppi

 

[mrmovie]

'author richard moyle

'On Error Resume Next
SetLocale("en-us&quot

Dim FSO, WshShell, refWMIService, refDirectory
Dim strDir

'default objects
Set FSO = WScript.CreateObject("Scripting.FileSystemObject&quot
Set WshShell = WScript.CreateObject("WScript.Shell&quot
Set dicResults = Wscript.CreateObject("Scripting.Dictionary&quot
'use wmi to get all files with the uls* name


strDir = "f:\"
Set objDir = FSO.GetFolder(strDir)

getInfo(objDir)




'write results to a logfile

Set tsResults = FSO.CreateTextFile("c:\auditresults.log", True)

For Each aKey In dicResults
tsResults.WriteLine aKey & "=" & dicResults.Item(aKey)
Next

tsResults.Close
Set tsResults = Nothing

'end of script part


Function getInfo(pCurrentDir)


For Each aItem In pCurrentDir.Files
'wscript.Echo aItem.Name
If LCase(Left(Cstr(aItem.Name), 3)) = "uls" Then
checkFile(aItem)
End If
Next


For Each aItem In pCurrentDir.SubFolders
'wscript.Echo aItem.Name & " passing recursively"
getInfo(aItem)
Next


End Function

'check the file contents for what we are looking for!!!
Function checkFile(pFile)
On Error Resume Next
Dim strUser, tsLog, sLine, lPos, strMapping

Wscript.Echo pFile.Path & " from here"
Set tsLog = FSO.OpenTextFile(CStr(pFile.Path), 1, False)
Do While Not tsLog.AtEndOfStream
sLine = Trim(LCase(tsLog.ReadLine))
If InStr(sLine, "over 3 patterns old&quot Then
msgbox "over3;" & pFile.Name
'dicResults.Add pFile.Name, "1"
End If

If InStr(sLine, "unable to determine current pattern&quot Then
msgbox "none;" & pFile.Name
'dicResults.Add pFile.Name, "1"
End If
Loop

tsLog.Close
Set tsLog = Nothing

End Function

 

[mrmovie]

i should explain.
given a root folder this script loops through every sub folder and every file. if it finds a file of a certain type/name it opens that file and then searches for a specified string, if it is found it does something.

all you have to do is loop through your computers as well.
you might want to read all the ipaddress and then connect to their c$ share?? or you might want to go with WMI and get a ref to a remote computer that way

 

[Goppi]

Thanks mrmovie, that helps me a lot - I really appriciate that...

cheers,

Goppi