Solved

Checking The Version fo A File Over The Network

Posted on 2004-10-06
8
184 Views
Last Modified: 2010-04-14
Does anyone know of a good way to check the version of a file over my LAN? I have about 100 computers that all need the same version of a particular EXE file. They are all located in the same directory on every computer. Is there a program or way out there to do this easily? The main things i would need to check is the size/date/version info on the file.

Thanks
0
Comment
Question by:Mohonk
[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
  • 5
  • 2
8 Comments
 
LVL 69

Expert Comment

by:Callandor
ID: 12238299
I use a product called Synchromagic that can do this: http://www.gelosoft.com/adescr.html
0
 
LVL 76

Expert Comment

by:David Lee
ID: 12242802
Here's a pretty simple script that'll do it for you.  It will loop through the names of the computers you provide in arrComputers, connect to the file specified by strPath, and return the Date Created, Size, and Version number.  The version number will only work for executables (exe, dll, ocx).  In this sample it merely displays the information about each file onscreen.  It'd be simple to modify it to write the information into a file instead.  In fact, the script could be modified to create another script or batch file that'd copy a new version to machines that needed an update.  You'd need to include a target version number to comapre against if you wanted to go that route.

To use this script all you need to do is copy and paste the script into a file with an extension of .vbs.  Then edit lines 2 and 3 to supply the names of the computers and the path to the file you want to check.  You'll need to have the required rights on the target computers for this to work.  Then run the script.

    Dim arrComputers, strPath, objFSO, objFile, intCounter
    arrComputers = Array("\\Computer1", "\\Computer2")
    strPath = "\C$\Windows\Notepad.Exe"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    For intCounter = 0 To UBound(arrComputers)
        Set objFile = objFSO.GetFile(arrComputers(intCounter) & strPath)
        Wscript.Echo "Computer=" & arrComputers(intCounter)
        Wscript.Echo "DateCreated=" & objFile.DateCreated
        Wscript.Echo "Size=" & objFile.Size
        Wscript.Echo "Version=" & objFSO.GetFileVersion(arrComputers(intCounter) & strPath)
        Wscript.Echo ""
    Next
    Set objFile = Nothing
    Set objFSO = Nothing
0
 

Author Comment

by:Mohonk
ID: 12248528
That works very well thank you. How hard would it be to add a line to dump the information to a txt file?

Thanks!
0
Free eBook: Backup on AWS

Everything you need to know about backup and disaster recovery with AWS, for FREE!

 
LVL 76

Expert Comment

by:David Lee
ID: 12248898
Not hard at all.  I post a revised version with that shortly.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 12248905
Darn fingers!  That should be I'll not I.
0
 
LVL 76

Accepted Solution

by:
David Lee earned 250 total points
ID: 12249997
Here you go.  This will write the output to a file in the folder the script is run from.  Change Filename.Txt to whatever file name you want to use.

Dim arrComputers, strPath, objFSO, objFile, objTS, intCounter
arrComputers = Array("\\Computer1", "\\Computer2")
strPath = "\C$\Windows\Notepad.Exe"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.CreateTextFile(".\Filename.Txt", True)
For intCounter = 0 To UBound(arrComputers)
    Set objFile = objFSO.GetFile(arrComputers(intCounter) & strPath)
    objTS.WriteLine "Computer=" & arrComputers(intCounter)
    objTS.WriteLine "DateCreated=" & objFile.DateCreated
    objTS.WriteLine "Size=" & objFile.Size
    objTS.WriteLine "Version=" & objFSO.GetFileVersion(arrComputers(intCounter) & strPath)
    objTS.WriteLine ""
Next
objTS.Close
Set objTS = Nothing
Set objFile = Nothing
Set objFSO = Nothing
0
 

Author Comment

by:Mohonk
ID: 12250109
works great. thanks for the help!
0
 
LVL 76

Expert Comment

by:David Lee
ID: 12250551
Excellent.  You're welcome!
0

Featured Post

Enroll in May's Course of the Month

May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
How to change folder redirection to a new server 5 753
Windows Foriegn Disk 3 145
OPINIONS please : best Active Directory Monitoring tool 5 211
how to run this deletion request 4 46
NTFS file system has been developed by Microsoft that is widely used by Windows NT operating system and its advanced versions. It is the mostly used over FAT file system as it provides superior features like reliability, security, storage, efficienc…
We asked our MSP customer base what their favorite tools were and how they help them serve clients. We focused our questions on favorite tools in the following categories: >PSA tools >RMM tools >Alert management tools >Communication tools and Mo…
Finding and deleting duplicate (picture) files can be a time consuming task. My wife and I, our three kids and their families all share one dilemma: Managing our pictures. Between desktops, laptops, phones, tablets, and cameras; over the last decade…

752 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