Check a file version on multiple remote computers
Dim strFolder
Dim arrServers
Dim strProfile
strProfile = inputbox(“Enter path to file to check I.E: c$program filesinternet exploreriexplore.exe”,”File Check”)
arrComputers = Array(“server1″,”server2”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
sOutput=”Script Results for:” & strprofile & vbcrlf & vbcrlf
For EACH strComputer in arrComputers
sOutput = sOutput & objFSO.GetFileVersion (“\”& strComputer & strProfile) & vbtab & strComputer & vbcrlf
On Error Resume Next
Next
wscript.echo sOutput
