Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Script to find other file attributes

Posted on 2008-10-07
1
Medium Priority
?
379 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.
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

In this article we want to have a look at the directory attributes which are used by Microsoft to store the so called Security Identifiers (SID). These SIDs plays an important role in delegating and granting permissions and in authentication of trus…
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
In this video, Percona Solution Engineer Dimitri Vanoverbeke discusses why you want to use at least three nodes in a database cluster. To discuss how Percona Consulting can help with your design and architecture needs for your database and infras…
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…

688 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