Change $path=”C:\” to desired directory.

Change ‘.bmp’ to desired file extension.

If you need to find more that one file type, then add “-or ($file.Extension -eq ‘.some_extension’)” in the if statement, e.g.:

if (($file.Extension -eq ‘.bmp’) -or ($file.Extension -eq ‘.jpg’))

if (($file.Extension -eq ‘.bmp’)-or ($file.Extension -eq ‘.jpg’) -or ($file.Extension -eq ‘.gif’))

$path="c:\"
function showdir {
param (
$path
)
$files=Get-ChildItem $path
foreach ($file in $files) {
if ($file.PSIsContainer) {
showdir -path $file.FullName
}
else {
if (($file.Extension -eq '.bmp')) {
$f=gwmi -Class CIM_DataFile -Filter "Name='$(add_slhs($file.FullName))'"
Write-Host $file.FullName,$f.Version
}
}
}
}
function add_slhs($src) {
$dst=""
for ($i=0;$i -lt $src.length;$i++) {
if ($src[$i] -ne "\") {
$dst=$dst+$src[$i]
}
else {
$dst=$dst+$src[$i]+"\"
}
}
return $dst
} 

showdir -path $path

Enjoy!

Script is taken from: http://forum.vingrad.ru/forum/topic-154708/view-all.html

' This script detects and tries to fix the error related to start up of Automatic Updates and BITS services
' on network computers. Such error is related to security identifier (EventID 7023 and EventID 7024).
' This problem is usually observed on network computers after applying changes to group policies.
' In such cases the script will reset a security identifier as per Microsoft KB 555336
' http://support.microsoft.com/kb/555336 and start Automatic Updates and BITS.
' Can be usefull for networks where Windows Server Update Services 3.0 (WSUS) is used.
' Script source: http://forum.vingrad.ru/forum/topic-154708/view-all.html

' Initialize variables and WMI-moniker
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   
' Select Automatic Updates and BITS services from the list of services
Set colListOfServices = objWMIService.ExecQuery _
    ("Select * from Win32_Service Where Name = 'BITS' or Name = 'wuauserv'")
   
' For each of selected services:
For Each objService in colListOfServices
    isStarted = 0
    ' Check its status. If stopped then
    If  objService.State = "Stopped" Then
     ' Try to start it.
     WScript.Echo ("Service " & objService.Name & " Stopped")
     isStarted = objService.StartService()
 
     ' If when starting we get the same problem try to fix it
     ' (fix is provided by the Repair function)
     If objService.ExitCode <> 0 Then
         WScript.Echo("WARNING!!! Error occured, when try to started...")
         WScript.Echo ("Try to repair..." &amp; objService.Name)
            intCode = Repair(strComputer)
            If intCode = 0 Then
                WScript.Echo("Done...")
                objService.StartService
            Else WScript.Echo("Failed To Repair")
            End If
     Else If objService.ExitCode = 0 Then WScript.Echo ("Successfully stated...")
     End If
    End If
Next
Function Repair(strComputer)
    strCommandLine = "sc sdset " &amp; objService.Name &amp; " " &amp; Chr(34) &amp; "D:(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;AU)(A;;CCLCSWRPWPDTLOCRRC;;;PU)" &amp; Chr(34)
    Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\CIMV2")
    ' Obtain the definition of the class.
    Set objShare = objWMIService.Get("Win32_Process")
    ' Obtain an InParameters object specific
    ' to the method.
    Set objInParam = objShare.Methods_("Create"). _
     inParameters.SpawnInstance_()
    ' Add the input parameters.
    objInParam.Properties_.Item("CommandLine") = strCommandLine
    ' Execute the method and obtain the return status.
    ' The OutParameters object in objOutParams
    ' is created by the provider.
    Set objOutParams = objWMIService.ExecMethod("Win32_Process", "Create", objInParam)
    ' List OutParams
    WScript.Echo "Out Parameters: "
    WScript.echo "ProcessId: " &amp; objOutParams.ProcessId
    Repair = objOutParams.ReturnValue
End Function

' Script for remote reboot/shutdown, power off, etc.
' You must have proper rights on a remote computer
' for this script to work

Dim StationName
Dim OpSysSet
Dim Flags
Dim Reserved
StationName = InputBox("Insert the Name of the Station to be Shutdown.")
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//" & StationName).ExecQuery("select * from Win32_OperatingSystem where Primary=true")
' Flags Action
'  0    Logoff
'  1    Shutdown
'  2    Reboot
'  4    Force
'  8    Power Off
' 16    Force If Hung
Flags = 8
Reserved = 0
For Each OpSys In OpSysSet
   OpSys.Win32Shutdown Flags,Reserved
Next

• Scriptomatic 2.0
• Do-It-Yourself Script Center Kit
• WMI Code Creator
• ADSI Scriptomatic
• Tweakomatic
• Log Parser 2.2
• Portable Script Center
• HTA Helpomatic
• Scriptomatic 1.0

Script center
Learn to Script
The Script Center Script Repository
The Windows PowerShell Toolbox

Documentation

• Sesame Script
Every Sesame Script article through June 2007 in one downloadable Help file.

• Hey, Scripting Guy!
Almost 500 Hey, Scripting Guy! articles, fully searchable.

• Windows PowerShell Help File
Fully-searchable help for Windows PowerShell.

• VBScript Quick Reference
Short and to-the-point cheat sheet for working with VBScript.

• Windows PowerShell Quick Reference
The basics of Windows PowerShell at your fingertips.