下から4行目の
if(iName != oName){objItem.Name = oName + fExt;}

if(iName != oName){WScript.CreateObject("Shell.Application").NameSpace(cd).ParseName(fs.GetFileName(tItem)).Name = oName + fExt;}
に書き換える