Mit folgendem Script kann man mit einfachen Mitteln ein (Desktop-)Icon anlegen. Die anzupassenden Variablen sollten selbsterklärend sein.
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.