69 lines
2.7 KiB
Plaintext
69 lines
2.7 KiB
Plaintext
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
|