>>449
自分はこんなの教えてもらった

Script:JScript
// ext='on' でファイル拡張子付き、 ext='off' で拡張子なし
var ext='off', fs=new ActiveXObject('Scripting.FileSystemObject'),
cd,pFolder,tItem,objItem,iItem,oItem,iName,oName,fExt;
(function renNext(){try{
fExt='';cd=WScript.Env('Current');tItem=WScript.Env('Focused');pFolder=fs.GetParentFolderName(tItem);
if(fs.FolderExists(tItem)){objItem=fs.GetFolder(tItem);iName=objItem.Name;
}else{objItem=fs.GetFile(tItem);
if(ext=='on'){iName=objItem.Name;}else{fExt='.' + fs.GetExtensionName(tItem);iName=WScript.Env('FocusedName');}}
if(WScript.Exec('Input:"名前の変更 - X-Finder","' + pFolder + '","' +iName + '","' + iName + '"',1)){
oName=WScript.Env('InputData');
if(iName !=oName){objItem.Name=oName + fExt;}
if(!cd.match(/^extra/i)||cd.split('\\').length>1){WScript.Exec('Refresh:2',1);}
WScript.Exec('Focus:Down',1);iItem=pFolder + '\\' + oName + fExt;oItem=WScript.Env('Focused');
if(iItem !=oItem){renNext();}}}catch(e){}fs=null;objItem=null;})();