'Script created and copyright by Gene Naftulyev 
'Free use granted as long as this notice is included.

WScript.echo "This script will decode all *.asp files in the same directory as
itself and create a Decoded folder. If the script fails be sure you have
scrdec14.exe in the same directory."

Set fs = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set folder1 = fs.GetFolder(left( WScript.ScriptFullName ,inStrRev( WScript.ScriptFullName,"\")))
if not fs.folderexists(left( WScript.ScriptFullName ,inStrRev( WScript.ScriptFullName,"\"))&"Decoded") then
set folder2 = fs.createfolder("Decoded")
end if
For Each FileName In folder1.files
if inStr(ucase(FileName.name),".ASP" ) then
intReturn = WshShell.Run("cmd /c scrdec14 " & FileName.name & " Decoded\" & FileName.name, 7, FALSE)
end if
Next