Solved

Script to find other file attributes

Posted on 2008-10-07
1
369 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

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

This is an addendum to the following article: Acitve Directory based Outlook Signature (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_24950055.html) The script is fine, and works in normal client-server domains…
This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…

747 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

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now