Auswahl und Kopierscript erstellen mit WSH

Vorab:

Ja ich weiß das es eine sehr einfache Frage ist und es sicherlich 1000'de Anleitungen im Internet gibt aber ich frage trotzdem.

Also bitte erspart mir irgendwelche "doofen" Kommentare - ich steh grade aufm Schlauch was eine Lösung angeht und erhoffe mir auf diese Art und Weise dem Problem Herr zu werden.

Ich möchte mir ein ganz einfaches Script erstellen was folgendes macht:

1. soll eine Abfrage stattfinden (msgbox) wo ich einen von drei Namen eingeben muss

2. je nachdem welcher von den drei namen eingegeben wurde sollen entsprechende Dateien kopiert werden

3. wird keiner der drei namen eingegeben soll die Abfrage erneut starten

4. die Abfrage soll so lange neu starten bis 3 mal entweder kein Name und keiner der drei vorgegebenen Namen eingegeben wurde


Ich hab das ganze schon mit IF/Then/Else versucht - was auch teilweise klappt.
Allerdings kopiert er entweder gar nix oder er kopiert alle Dateien von allein drei Namen.

Mfg

Robert

Dim wsh : Set wsh = CreateObject("WScript.Shell")  
Dim objFSO
	Set objFSO = CreateObject("Scripting.FileSystemObject")  
Dim b1
b1 = "name1, name2, name3"  

Eingabefenster = InputBox("Bitte Namen eingeben")  

If b1 = "name1" Then  
	objFSO.copyfile "\\xxx\xxx\xxx\v1\111.txt", "d:\1.txt"  
	objFSO.copyfile "\\xxx\xxx\xxx\v1\112.txt", "d:\2.txt"  
	objFSO.copyfile "\\xxx\xxx\xxx\v1\113.txt", "d:\3.txt"  
ElseIf b1 = "name2" Then  
	objFSO.copyfile "\\xxx\xxx\xxx\v2\211.txt", "d:\4.txt"  
	objFSO.copyfile "\\xxx\xxx\xxx\v2\212.txt", "d:\5.txt"  
	objFSO.copyfile "\\xxx\xxx\xxx\v2\213.txt", "d:\6.txt"  
ElseIf b1 = "name3" Then  
	objFSO.copyfile "\\xxx\xxx\xxx\v3\311.txt", "d:\7.txt"  
	objFSO.copyfile "\\xxx\xxx\xxx\v3\312.txt", "d:\8.txt"  
	objFSO.copyfile "\\xxx\xxx\xxx\v3\313.txt", "d:\9.txt"  
Else
InputBox("Bitte Namen eingeben")  
End If

Else
MsgBox "Falscher Name"  

dim i
i=0
do 
  If Eingebefenster = ....
    ...
    exit do
  elseif  ...
    ...
    exit do
  elseif  ...
    ...
    exit do
  Else
    i=i+1
    if i=3 then 
        msgbox "Zuviele Fehler!"  
        exit do
    end if
  End If
loop

Versuche = 3
Do
    Eingabefenster = InputBox("Bitte Namen eingeben")  
    Select Case LCase(Eingabefenster)
        Case "name1"  
            objFSO.copyfile "\\xxx\xxx\xxx\v1\111.txt", "d:\1.txt"  
            objFSO.copyfile "\\xxx\xxx\xxx\v1\112.txt", "d:\2.txt"  
            objFSO.copyfile "\\xxx\xxx\xxx\v1\113.txt", "d:\3.txt"  
            Versuche = -1
        Case "name2"  
            ...
        Case "name3"  
            ...
        Case Else
            Versuche = Versuche - 1
    End Select
Loop Until Versuche <= 0
If Versuche = 0 Then MsgBox "Zu viele Fehler!"