Scripting

Trying to learn VBScript on the fly for my job. Need help getting this to work. This is a combination of scripts that I have found on the web and cobbled together into something that almost works.

Here's the story... We are working to perform a mass upgrade of an application to about 300 users running Windows XP. Before we can start we need to determine what version(s) of the application is installed on each system. Unfortunately, the software vendor decided to make this as difficult as possible. We are able to determine who has the application installed but the only real way to accurately determine the app version and level (Std or Pro, Oracle or SQL, etc.) is to extract the data from a plain-text key file. What I'm hoping to do is create a VBScript that I can run against a collection of computers. It needs to open the key file and enter the contents (2 lines of text) and the computer name into an Excel spreadsheet. To make things even more interesting users may have multiple versions of the app installed AND the key file is not always located in the same place. However the key file does always have the same file name and it will always be somewhere under Program Files.

Here's what I've come up with so far:


i = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where FileName = 'test' and Extension = 'key' and Drive = 'c:' ")
For Each objFile in colFiles
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(objFile.Name)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1

Next

Set appexcel = WScript.CreateObject("Excel.Application")
With appexcel
'.Visible = True
Set wb=.Workbooks.Open("c:\temp\test.xls")
r = 1
Do Until Len(.Cells(r, 1).Value) = 0
r = r + 1
Loop
.Cells(r, 1).Value = arrFileLines
.Cells(r, 2).Value = arrFileLines(1)

wb.Save
Set wb = Nothing
.Quit
End With
Set appexcel = Nothing
Next


It works almost perfectly on my test system except for one strange issue... If I place multiple copies of the key file in different places it will recognize all of them but will only enter the data from the first file it finds; but it enters the same data from the first file the same number of times as files that it locates. To clarify, if I have 3 copies of the file, it will enter the key data 3 times, but all 3 will be from the first file it located. If I have 2 copies, it enters two rows of data, but only from the first file it located, etc.

I'm sure it's something simple that I'm overlooking, but I'm at a loss.

The other problem I'm having is how to restrict the search to 'C:\Program Files\' instead of the entire 'c:\' drive. I've tried changing the Drive = 'c:' to Drive = 'c:\program files\' but this kicks back an error.


Once I have that sorted out I will need to figure out a way to run it against a list of computer names and how to add the computer name to the row next to the key file info but I think I can handle that.

Any assistance would be greatly appreciated.

Asked 14 years ago 41672 views