Solved

Script to find other file attributes

Posted on 2008-10-07
1
371 Views
Last Modified: 2011-10-19
I have the following script which I use to find the version of all the dll's and exe's in a directory. I use the re-direct ">" to write it to a text file.

I now have an app that is cross-linking between two vendors and "blowing" it up. What I'd like to do is get not only the version, but the other attributes like Company, internal name and some of the other attributes you see when you right click an exe and look at the version tab.

I want to pull down the list and then from there do an install of the offending app and see what I get afterward.
strComputer = "CompName"
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colFileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:\MyPath\'} Where " _
        & "ResultClass = CIM_DataFile")
 
For Each objFile In colFileList
    If objFile.Extension = "dll" or  objFile.Extension = "exe"  Then
        Wscript.Echo objFile.Name & " -- " & objFile.Version
    End If
Next

Open in new window

File-Attr.jpg
0
Comment
Question by:Jim P.
1 Comment
 
LVL 38

Accepted Solution

by:
Jim P. earned 0 total points
ID: 22661205
Found it here: http://www.pa-software.com/scripts/?tp=vbs&sc=system
strComputer = "10.65.3.2"
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colFileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:\Program Files\Sybase\SQL Anywhere 8\win32'} Where " _
        & "ResultClass = CIM_DataFile")
 
For Each objFile In colFileList
    If objFile.Extension = "dll" or  objFile.Extension = "exe"  Then
        strmsg=""
        strmsg = strmsg & "File Name: " & vbTAB & objfile.name & vbCRLF
        strmsg = strmsg & "File Type: " & vbTAB & objfile.filetype & vbCRLF
        strmsg = strmsg & "File Size: " & vbTAB & vbTAB & objfile.filesize & vbCRLF
        strmsg = strmsg & "File Version: " & vbTAB & objfile.version & vbCRLF
        strmsg = strmsg & "Manufacturer: " & vbTAB & objfile.manufacturer & vbCRLF & vbCRLF
        strmsg = strmsg & "Readable: " & vbTAB & objfile.readable & vbCRLF
        strmsg = strmsg & "Writeable: " & vbTAB & objfile.writeable & vbCRLF
        strmsg = strmsg & "Hidden: " & vbTAB & vbTAB & objfile.hidden & vbCRLF
        strmsg = strmsg & "System: " & vbTAB & vbTAB & objfile.system & vbCRLF
        strmsg = strmsg & "Archive: " & vbTAB & vbTAB & objfile.archive & vbCRLF
        strmsg = strmsg & "Encrypted: " & vbTAB & objfile.encrypted & vbCRLF
        strmsg = strmsg & "Compressed: " & vbTAB & objfile.compressed & vbCRLF & vbCRLF & vbCRLF
        strmsg = strmsg & "Created:" & vbTAB & mid(objfile.CreationDate,5,2) & "/" &_
        mid(objfile.CreationDate,7,2) & "/" & mid(objfile.CreationDate,1,4) & vbCRLF
        strmsg = strmsg & "Installed:" & vbTAB & mid(objfile.InstallDate,5,2) & "/" &_
        mid(objfile.InstallDate,7,2) & "/" & mid(objfile.InstallDate,1,4) & vbCRLF
        strmsg = strmsg & "Last Accessed:" & vbTAB & mid(objfile.LastAccessed,5,2) & "/" &_
        mid(objfile.LastAccessed,7,2) & "/" & mid(objfile.LastAccessed,1,4) & vbCRLF
        strmsg = strmsg & "Last Modified:" & vbTAB & mid(objfile.LastModified,5,2) & "/" &_
        mid(objfile.LastModified,7,2) & "/" & mid(objfile.LastModified,1,4) & vbCRLF
        Wscript.Echo strmsg
'        Wscript.Echo objFile.Name & " -- " & objFile.Version
'        Wscript.Echo objFile.Name & " -- " & objFile.Company
'        Wscript.Echo objFile.Name & " -- " & objFile.internal
'        objOutFile.WriteLine(Wscript.Echo objFile.Name & " -- " & objFile.Version)
    End If
Next

Open in new window

0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question