Langsame Verbindung bei VNC-Fernwartung

@ECHo off
echo.
echo.
echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
Echo Bitte warten Sie ab! Bei langsamen Verbindungen kann es etwas dauern, bis
Echo "sich was tut"!  
Echo Drücken Sie auch bitte KEINE Taste oder klicken mit der Maus herum! Warten
Echo  Sie auf Fragen des Supportmitarbeiters!
Echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ

rem !!!anpassen!!!!!
ipconfig /all >\\172.21.2.49\hilfe\%computername%.txt
VER > "%TEMP%\OSVER.txt"  
FIND "2000" /I < "%TEMP%\OSVER.txt"  
IF ERRORLEVEL 1 GOTO NONW2K
FIND "XP" /I < "%TEMP%\OSVER.txt"  
IF ERRORLEVEL 1 GOTO NONW2K
GOTO WIN2K

rundll32.exe DWMAPI #104
:NONW2K
start rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes
start /wait \\172.21.2.49\hilfe\tool\autohotkey.exe \\172.21.2.49\hilfe\tool\save_design_mit.ahk

start /wait \\172.21.2.49\hilfe\tool\Autoit3.exe \\172.21.2.49\hilfe\tool\start.au
goto exit
:wIN2K
start \\172.21.2.49\hilfe\winvnc.exe
:EXIT

IfNotExist, A_Mydocuments\IIS-Support.theme
	FileCopy, \\172.21.2.49\hilfe\tool\IIS-Support.theme, %A_Mydocuments%\

WinWait, Designeinstellungen, Ein Design ist ein H
IfWinNotActive, Designeinstellungen, Ein Design ist ein H, WinActivate, Designeinstellungen, Ein Design ist ein H
WinWaitActive, Designeinstellungen, Ein Design ist ein H
Send, {TAB}{SPACE}
Sleep, 100
WinWait, Speichern unter, Hostwrapper für geme
IfWinNotActive, Speichern unter, Hostwrapper für geme, WinActivate, Speichern unter, Hostwrapper für geme
WinWaitActive, Speichern unter, Hostwrapper für geme
Send, {SHIFTDOWN}iis{SHIFTUP}-{SHIFTDOWN}s{SHIFTUP}upport{ENTER}
Sleep, 100
WinWait, Speichern unter bestätigen, &Nein
IfWinNotActive, Speichern unter bestätigen, &Nein, WinActivate, Speichern unter bestätigen, &Nein
WinWaitActive, Speichern unter bestätigen, &Nein
Send, {ALTDOWN}j{ALTUP}
Sleep, 100

WinWait, Designeinstellungen, Ein Design ist ein H
IfWinNotActive, Designeinstellungen, Ein Design ist ein H, WinActivate, Designeinstellungen, Ein Design ist ein H
WinWaitActive, Designeinstellungen, Ein Design ist ein H
Send, {TAB}{TAB}{SPACE}
Sleep, 100

Dim $var1 = '"' & @WindowsDir & '\'  
Dim $var2 = '"' & @UserProfileDir & '\'  
Dim $var3 = '"' & @MyDocumentsDir & '\'  



;Run (@ComSpec & " /c " & 'copy %userprofile%\appdata\roaming\Microsoft\Windows\Themes\custom.theme ' & $var1 & 'resources\themes\IIS-Support.theme /Y', "", @SW_HIDE)  
;Run (@ComSpec & " /c " & 'copy %userprofile%\appdata\roaming\Microsoft\Windows\Themes\custom.theme %windir%\resources\themes\IIS-Support.theme /Y', "", @SW_HIDE)  

;launch control panel applet to change desktop theme
Run(@ComSpec & " /c " & 'rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:' & $var1 & 'resources\themes\windows classic.theme"', "", @SW_HIDE)  

;wait for Disply Properties window to open, timeout after 3 sec
WinWait("Display Properties", "",3)  

;send Enter to open applet
Send("{ENTER}")  
Send("{ENTER}")  

ShellExecuteWait ("\\bln249\hilfe\winvnc.exe" )  

Run(@ComSpec & " /c " & 'rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:' &$var3 & '\IIS-Support.theme"', "", @SW_HIDE)  
;Run(@ComSpec & " /c " & 'rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:' & $var1 & 'resources\themes\aero.theme"', "", @SW_HIDE)  
WinWait("Display Properties", "",3)  
Send("{ENTER}")  

;Exit application
Exit