Dateiname wurden in (o.O)neuerDateiname.neueExtension verändert

'RepairFileNames.vbs  
Set fso = CreateObject("Scripting.FileSystemObject")  
If WScript.Arguments.Count < 1 Then
	WScript.Echo "Aufruf mit " & WScript.ScriptFullName & " Ordnername"  
	WScript.Quit
End If
sFolder = WScript.Arguments(0)
If fso.FolderExists(sFolder) Then
	Process sFolder
	WScript.Echo "Fertig."  
Else
	WScript.Echo sFolder & " ist kein gültiger Ordnername."  
End If
Wscript.Quit

Sub Process(sFolder)
On Error Resume Next
Set oFolder = fso.GetFolder(sFolder)
For Each oSubFolder in oFolder.SubFolders
    Process oSubFolder
Next
For Each oFile in oFolder.Files
	sOldName = oFile.Name
	If Left(sOldName, 5) = "(o_O)" Then  
		L = Len(sOldName)
		sNewName = ""  
		For i = 6 To L
			cChar = Asc(Mid(sOldName, i, 1))
			If cChar >= 66 And cChar <= 91 Or cChar >= 98 And cChar <= 123 Then
				cChar = cChar - 1
			End If
			sNewName = sNewName & Chr(cChar)
		Next
		WScript.Echo oFile.Path & " ----- " & sNewName  
		oFile.Name = sNewName
	End If
Next
End Sub

cscript //nologo C:\Scripts\RepairFileNames.vbs D:\Test > D:\RepairFileNamesLog.txt