VBS oder Batch um Teile von Ordnernamen umzubenennen

strtoChange = InputBox("Bitte geben sie den zu ändernden Teil eines Ordners ein:")  
strNewPart = InputBox("Bitte geben sie den Replace-String ein:")  
Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
Set rootFolder = fso.GetFolder(Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\")-1))  
If Not strtoChange = "" Then  
	parseFolders rootFolder,True
Else
	MsgBox "Sie haben einen leeren Suchstring eingeben!",vbCritical  
	WScript.Quit 1
End If
MsgBox "Verarbeitung abgeschlossen!",vbInformation  

Function parseFolders(strFldr,boolRecursion)
	For each folder in strFldr.Subfolders
		If InStr(folder,strtoChange) > 0 Then
			folder.Name = Replace(folder.Name,strtoChange,strNewPart)
		End If
	Next
	
	If boolRecursion Then
		For Each subFolder in strFldr.SubFolders
			parseFolders subFolder, True
		Next
	End If
End Function