Network Issue

I am trying to find a script that I could configure to work on our network, that searches all of the machines on the domain for installed programs. I need to find out which programs are installed on these machines for licensing reasons. Is this possible? Thanks in advanced for your help.

Quote:

---

Originally Posted by devildawgusmc_1

I am trying to find a script that I could configure to work on our network, that searches all of the machines on the domain for installed programs. I need to find out which programs are installed on these machines for licensing reasons. Is this possible? Thanks in advanced for your help.

---

How many machines are we talking about?

There are a number of examples of recursive file searching that have been posted, but these routines are looking for specific files. A step in the right direction would be to build a database table of all file names that you want to search for. If you don't know what is out there, then either you aren't going to know what to search for, or you will have to have your program return EVERYTHING on every machine, and then have someone, or a group of someones go over what came back.

The network consists of about 150 machines. It would be fine with me if I could just find every .EXE file on these machines, and I would sort through the list myself. Thanks for the help.

This is off the top of my head so it is probably gonna need some work, but play with a bit and see what you can come up with.

VB Code:

Option Explicit
 
Private MyFSO As New FileSystemObject
Private FSOFolder As Folder
 
Private Sub SearchFolders(MyFolder As Folder)
 
Dim FSOFiles As Files
Dim FSOFile As File
Dim TempFolder As Folder
 
For Each TempFolder In MyFolder.SubFolders
    List1.AddItem "DIR... " & TempFolder.Path
    Call SearchFolders(TempFolder)
Next
 
For Each FSOFile In MyFolder.Files
    List1.AddItem FSOFile.Path
Next
 
End Sub
 
Private Sub Command1_Click()
 
List1.Clear
Set FSOFolder = MyFSO.GetFolder("H:\NetworkFolderName")
Call RecurseDirs(FSOFolder)
 
End Sub