on error resume next

DIM WshShell, Abfrage1, Abfrage2, RDSSrv, Fehler, Info
SET WshShell = WScript.CreateObject("WScript.Shell")

IF WScript.Arguments(0) ="" THEN
msgbox "ACHTUNG: Diesem Skript wurde keine Startprogramm übergeben." & vbCRLF & "Diese Übergabe müss zwingend als erster Parameter erfolgen!",0,"DIGITAL DATA - ThinClient Steuerungsskript"
WScript.Quit
ELSE
Parameter1=WScript.Arguments(0)
END IF

IF WScript.Arguments(1) ="" THEN
msgbox "ACHTUNG: Diesem Skript wurde keine IP-Adresse übergeben." & vbCRLF & "Diese Übergabe müss zwingend als zweiter Parameter erfolgen!",0,"DIGITAL DATA - ThinClient Steuerungsskript"
WScript.Quit
ELSE
Parameter2=WScript.Arguments(1)
END IF

IF WScript.Arguments(2) ="" THEN
Parameter3 = 0
ELSE
Parameter3=WScript.Arguments(2)
END IF

IF WScript.Arguments(3) ="" THEN
Parameter4 = 0
ELSE
Parameter4=WScript.Arguments(3)
END IF

	Abfrage1 = WshShell.Popup("Die Sitzung auf dem RDS-Server wurde wie geplant beendet." & vbCRLF & vbCRLF & "Möchten Sie sich nun erneut anmelden?" & vbCRLF & vbCRLF & "Erfolgt keine Eingabe, fährt der ThinClient in wenigen Sekunden automatisch herunter.", 10, "DIGITAL DATA - ThinClient Steuerungsskript", 4 + 32)

	IF Abfrage1 = vbYes then
	WshShell.Run "taskkill /im cmd.exe",0, True

		Abfrage2 = WshShell.Popup ("Möchten Sie nun die Verbindung, zum zuvor verbundenem RDS-Server wieder aufbauen?" & vbCRLF & vbCRLF & "Über die Schaltfläche - Nein - können Sie die Verbindung zu einerm anderen RDS-Server herstellen" & vbCRLF & "(IP-Adresse muss von Ihnen eingegeben werden!).", ,"DIGITAL DATA - ThinClient Steuerungsskript",  4 + 32)
		IF Abfrage2 = vbNo then
		
			DO WHILE RDSSrv="" OR RDSSrv="192.168.x.x"
			RDSSrv = InputBox ("Geben Sie hier die gewünschte IP-Adresse ein:","DIGITAL DATA - ThinClient Steuerungsskript", "192.168.x.x")	
			
				IF RDSSrv = "" THEN
				Fehler = WshShell.Popup("Die Eingabe war ungültig, bitte wiederholen Sie!",5,"DIGITAL DATA - ThinClient Steuerungsskript", 0 + 64)

				ELSEIF RDSSrv ="192.168.x.x" THEN
				Fehler = WshShell.Popup("Die Eingabe war ungültig, bitte wiederholen Sie!",5,"DIGITAL DATA - ThinClient Steuerungsskript", 0 + 64)
		
				ELSE
				'WshShell.Popup ("" &Parameter1& " " &RDSSrv& " 0 0 start_RDSTest")
				WshShell.Run "" &Parameter1& " " &RDSSrv& " 0 0 start_RDSTest", 2, true

				END IF
			LOOP	

		ELSE
		'WshShell.Popup  ("" &Parameter1& " " &Parameter2& " " &Parameter3& " " &Parameter4& " start_RDSTest")
		WshShell.Run "" &Parameter1& " " &Parameter2& " " &Parameter3& " " &Parameter4& " start_RDSTest", 2, true
		WScript.Quit

		END IF

	ELSE
	Info = WshShell.Popup("Der ThinClient fährt sich nun herunter.",5,"DIGITAL DATA - ThinClient Steuerungsskript", 0 + 64)

	END IF

WScript.Quit