.

software/basic.csv

@@ -52,3 +52,4 @@ https://ftp.halifax.rwth-aachen.de/osdn/crystaldiskinfo/78192/CrystalDiskInfo8_1
 https://drive.google.com/uc?id=18y-dVgXVmkrUEniOs38kL-lPQrzufwPT&export=download sku.zip
 https://github.com/massgravel/Microsoft-Activation-Scripts/archive/refs/heads/master.zip mas.zip
 https://github.com/stascorp/rdpwrap/releases/download/v1.6.2/RDPWrap-v1.6.2.zip rdpwrap.zip
+https://www.donkz.nl/download/remote-desktop-plus/?tmstv=1706629805 rdp.exe

source/thinclient.pb

@@ -0,0 +1,85 @@
+; thinclient.pb
+; ------------------------------------------------------------
+; wrapper for mstsc.exe & vnc.exe (tvnviewer.exe) 
+; LICENSE  : GPL
+; AUTHOR   : Michael H.G. Schmidt
+; EMAIL    : michael@schmidt2.de
+; DATE     : 20240130
+; ------------------------------------------------------------
+;
+
+; Get system drive
+Global SYS$=GetEnvironmentVariable("SystemDrive")
+
+Procedure StartRDP()
+  ; start RDP ...
+  dummy=RunProgram(SYS$ + "\tools\rdp.exe","/kiosk:cup /ontop /nodrives /noprinters /span","")
+EndProcedure
+
+Procedure StartVNC()
+  ; start VNC ...
+  dummy=RunProgram(SYS$ + "\tools\tvnviewer.exe")
+EndProcedure
+
+
+; Button handler procedure
+Procedure ButtonHandler()
+  
+  Select EventGadget()    
+    Case 0
+      StartRDP()
+      
+    Case 1
+      StartVNC()
+      
+  EndSelect
+
+EndProcedure
+
+;;;;;;;
+; MAIN
+;;;;;;;
+
+; open window to hide all other windows on desktop ...
+OpenWindow(0, 0, 0, 0, 0, "", #PB_Window_BorderLess | #PB_Window_Maximize)
+ 
+; set colour to windows blue ...
+SetWindowColor(0, RGB($04,$92,$c2)) 
+
+; Get window size
+W = WindowWidth(0)
+H = WindowHeight(0)
+
+; Shrink factor for buttons
+S=0.1
+
+; position calculations for the buttons
+X0=W/2-(W*S/2)
+
+GAP=W*0.01
+ButtonW=W*0.1
+ButtonH=H*0.1
+
+BX0=X0 - (ButtonW*2 + GAP)/2
+BX1=BX0 + ButtonW + GAP
+
+BY=H/2-ButtonH/2
+
+; use a bigger font the buttons
+LoadFont(0, "MS Shell Dlg", 16)
+SetGadgetFont(#PB_Default, FontID(0))
+
+; Create Buttons
+ButtonGadget(0, BX0, BY, ButtonW, ButtonH, "Remote Desktop", #PB_Button_MultiLine)
+BindGadgetEvent(0, @ButtonHandler())
+
+ButtonGadget(1, BX1, BY, ButtonW, ButtonH, "VNC viewer", #PB_Button_MultiLine)
+BindGadgetEvent(1, @ButtonHandler())
+
+; MAIN LOOP
+Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
+
+; IDE Options = PureBasic 5.73 LTS (Windows - x64)
+; CursorPosition = 22
+; Folding = -
+; EnableXP

tools/disable-thinclient.cmd

@@ -15,7 +15,6 @@ reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" ^
 
 echo Deleting user %THINUSER% ...
 net user %THINUSER% /DELETE
-%TOOLS%\deltree %PARENT%%THINUSER%
 
 echo Disabling Auto Logon for user %THINUSER% ...
 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" ^
@@ -32,3 +31,4 @@ echo Please REBOOT NOW.
 echo.
 
 echo ####### %0 #######
+

tools/setup-thinclient.cmd

@@ -1,13 +1,13 @@
 @echo off
 set TOOLS=c:\tools
 set THINUSER=THINCLIENT
-set THINPASS=a024b1b5f67a4866af17e5fdd1168b7d
+set THINPASS=a024b1b5f6
 
 echo ####### %0 #######
 
 echo Changing shell to THINCLIENT.EXE ...
 reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" ^
-  /v Shell /t REG_SZ /d "cmd.exe /C %TOOLS%\logonalt.vbs" /f 2>/nul
+  /v Shell /t REG_SZ /d "%TOOLS%\thinclient.exe" /f 2>/nul
 
 echo Creating user %THINUSER% ...
 net user %THINUSER% %THINPASS% /ADD

tools/thinclient.cmd

@@ -1,6 +0,0 @@
-@echo off
-
-:THINLOOP
-start /WAIT thinclient.exe
-goto :THINLOOP
-

tools/thinclient.vbs

@@ -1,3 +0,0 @@
-Set LogonScript = CreateObject("WScript.Shell")
-LogonScript.Run "%SystemDrive%\tools\thinclient.cmd", 0, False
-