echo off
cls

:: Variablen setzen

:: Bei Bedarf Variablen anpassen
::
set IconTitle="%HomePath%\desktop\Fernwartung SystemTechnics.lnk"
set Target="https://www.systemtechnics.de/fernwartung/"
set WorkingDirectory="%temp%"
set Description="Download Link zum aktuellen Teamviewer"
set VBSFile=%date%-sc001
set IconNum=15

:: Hier nichts mehr anpassen
::

cls
echo .........................................................
echo .
echo . Erstelle Icon %IconTitle% - %Target%
echo .
echo .........................................................

:: Datum wg. Temp-File ermitteln
for /f "tokens=1-4" %%a in ('cmd.exe /c "echo. | date"') do if %%a == Aktuelles set date=%%d

:: Icon auf Desktop vorhanden?
if exist %IconTitle% echo Icon vorhanden
::if exist %IconTitle% goto icon_skip

:: Temp VBScript anlegen
::
 >%temp%\%VBSFile%.vbs echo Set objShell=WScript.CreateObject("Wscript.Shell")
>>%temp%\%VBSFile%.vbs echo Set objShortcut=objShell.CreateShortcut(%IconTitle%)
>>%temp%\%VBSFile%.vbs echo objShortcut.TargetPath=%Target%
>>%temp%\%VBSFile%.vbs echo objShortcut.Description=%Description%
>>%temp%\%VBSFile%.vbs echo objShortcut.WorkingDirectory=%WorkingDirectory%
>>%temp%\%VBSFile%.vbs echo objShortCut.IconLocation = "C:\Windows\SystemResources\shell32.dll.mun, %IconNum%"
>>%temp%\%VBSFile%.vbs echo objShortcut.Save

::... anschliessend starten ...
cscript //nologo %temp%\%VBSFile%.vbs

::... und wieder entfernen.
del %temp%\%VBSFile%.vbs

:icon_skip
exit

Eine umfangreiche Liste mit freier Icons ist unter https://github.com/topics/icon-pack zu finden. Man kann diese dann sicherlich in eine ICO-Datei exportieren und im Script entsprechend bereitstellen.

Zuerst muss man die ID ermitteln die der Nutzer auf dem Server verwendet. Dies klappt mit folgendem Befehl in der zuvor geöffneten DOS-Box (mit Admin Rechten):

qwinsta.exe /Server:<servername>

Anschließend kann man die ID neben den Benutzer sehen und mit dem Befehl „Logoff“ den Nutzer aus der Session abmelden. 

logoff 2 /server:<servername>

%appdata%\Microsoft\Windows\Themes\TranscodedWallpaper.jpg