VBS Script funktioniert nicht?

Nino-actual

Rotation
Hi Freunde,

bin eine spezielle Funktion am erstellen. Da das auf diversen WinVersionen laufen muss wollte ich diese Applikation in VBS aufsetzen.

Dabei habe ich keine Erfahrung in dieser Sprache. Was mir nicht klar ist, warum meine Funktion immer mit einer Fehlermeldung in Zeile 36 endet?

Ist die Verschachtelungstiefe bei meinem Script schon überschritten, oder was mache ich falsch?

Wer hilft mir

Gruss ms
PHP:
Version:0.9 StartHTML:00000107 EndHTML:00014931 EndFragment:00014891 EndFragment:00000000

Option Explicit

Dim objShell, sSelBox, objCalled
Dim xEnd
Set objShell = WScript.CreateObject("WScript.Shell")


' Programmstart
'-----------------------------------------------------------------
xEnd = 0
While xEnd = 1
    sSelBox = InpBox(" 1 " & vbTab & "=" & vbTab & "Ritop Näfels" & vbNewLine & _
                    " 2 " & vbTab & "=" & vbTab & "Ritop N-Urnen" & vbNewLine & _
                    " 3 " & vbTab & "=" & vbTab & "RKS-Swistec," & vbNewLine & _
                    " 4 " & vbTab & "=" & vbTab & "WebCam Obersee" & vbNewLine & _
                    " 5 " & vbTab & "=" & vbTab & "WebCam R�ütiberg" & vbNewLine & _
                    " 6 " & vbTab & "=" & vbTab & "WebCam Burg" & vbNewLine & _
                    " 7 " & vbTab & "=" & vbTab & "WebCam PW-Erlen", _
                    "Eigabe","Eingabe der Verbindungsnummer")
    If IsNumeric(sSelBox) > 0 Then _
        If Len(sSelBox) = 0 Then _
            MsgBox "Programm wird beendet...", vbOKOnly + vbInformation, "RDP wird nicht ausgef�hrt"
            xEnd = 1
        Else
            Select Case sSelBox
                Case Is = 1
                    objShell.Run "%SystemRoot%\system32\mstsc.exe"
                    Do Until Sucess = TRUE
                        Success = objShell.AppActivate("Remotedesktopverbindung")
                        Wscript.Sleep 5
                    Loop
                    Set objCalled = objShell
                        objShell.SendKeys "127.0.0.1:5101"
            '   Case Is = 2
            '   Case Is = 3
            '   Case Is = 4
            '   Case Is = 5
            '   Case Is = 6
            '   Case Is = 7
                Case Else
                    MsgBox "Ungültige Eingabe"
            End Select
        End If
    Else
        msgbox "ung�ültige Eingabe"
    End If
Wend
xEnd = 0
 
Zuletzt bearbeitet von einem Moderator:
Oben