Simple VBScript to move and rename folders

HI, I require a script to rename and move the folder structure as following Existing structure: \\server\share\Clients\Client A \0-Sales \1-Initialisation \2-Konzept \3-Realisierung \4-Einführung \5-Abschluss \6-Betrieb \\server\share\Clients\Client B \0-Sales \1-Initialisation \2-Konzept \3-Realisierung \4-Einführung \5-Abschluss \6-Betrieb \WildFolder1 \\server\share\Clients\Client C \0-Sales \1-Initialisation \2-Konzept \3-Realisierung \4-Einführung \5-Abschluss \6-Betrieb \WildFolder2 \AnotherFolder \\server\share\Clients\Client D \0-Sales \1-Initialisation \2-Konzept \3-Realisierung \4-Einführung \5-Abschluss \6-Betrieb ToDo: 1. Create a new "1-Projekte" Folder in the Client Root, 2. move folders "1-Initialisation", "2-Konzept", "3-Realisierung", "4-Einführung", "5-Abschluss" into that new created "1-Projekte" Folder. 3. In the Client Root rename "6-Betrieb" to "2-Betrieb". 4. Log the error and success or that tasks as csv so I can open it in excel 5. Log also all client folders where in the client root are other folders then "0-Sales", "1-Projekte" and "2-Betrieb" as csv Example Result structure: \\server\share\Clients\Client X \0-Sales \1-Projekte \1-Initialisation \2-Konzept \3-Realisierung \4-Einführung \5-Abschluss \2-Betrieb \WildFolder \SomebodycreatedanotherFolder Log Example expected: Clint A ; "1-Projekte" created successfully; Folders to "1-Projekte" moved successfully; "6-Betrieb" renamed successfully; Still in root: WildFolder; Still in root: SomebodycreatedanotherFolder;