'  Salvage copies of files with a specific extension from the recycle bin, 
'  even if they don't appear to be in the recycle bin because of a damaged INFO2 file.
'  Copied files will have format D<driveletter>N.<ext>
'  where driveletter is the drive the file was deleted on, N is an integer and ext is the file extension.
'  The file copies will go to a folder named BinSalvage on the drive this script is run from.
'  Steve Yandl


'  Establish the extension for the type files to be salvaged (copied) from the recycled or recycler folder.

strExt = "txt"


'  Get name of the drive this script is being run from

Set fso = CreateObject("Scripting.FileSystemObject")
strDrvName = fso.GetDriveName(Wscript.ScriptFullName)


'  Check if the drive is FAT32 or NTFS

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_LogicalDisk")
For Each objDisk in colDisks
   If objDisk.DeviceID = strDrvName Then
   strFileSys = objDisk.FileSystem
   End If
Next


'  Determine the Security Identifier string for the current user

Set objNetwork = CreateObject("WScript.Network")
strUser = objNetwork.UserName
strDomain = objNetwork.UserDomain

Set objAccount = objWMIService.Get _
    ("Win32_UserAccount.Name='" & strUser & "',Domain='" & strDomain & "'")
strSID = objAccount.SID


'  Find the path for the file folder holding files sent to the recycle bin on this drive

If strFileSys = "FAT32" Then
   strRecycleFldr = strDrvName & "\recycled"
Else
   strRecycleFldr = strDrvName & "\recycler\" & strSID
End If


'  Purge the folder to be receiving salvaged copies, create the folder if necessary

If Not fso.FolderExists(strDrvName & "\BinSalvage") Then
fso.CreateFolder(strDrvName & "\BinSalvage")
End If

fso.DeleteFile strDrvName & "\BinSalvage\*"


'  Copy files to be salvaged

fso.CopyFile strRecycleFldr & "\*." & strExt, strDrvName & "\BinSalvage\"