Vbscript

:: Liest Linkziel aus Verknüpfungsdatei (*.lnk)
:: Übergabeparameter %~1 = lnk Datei
@echo off & setlocal

Set Shortcut=%~1

echo set oWS = WScript.CreateObject("WScript.Shell")>DecodeShortCut.vbs
echo set Lnk = oWS.CreateShortcut(WScript.Arguments.Unnamed(0))>>DecodeShortCut.vbs
echo wscript.Echo Lnk.TargetPath>>DecodeShortCut.vbs

set vbscript=cscript //nologo DecodeShortCut.vbs
For /f "delims=" %%T in ( ' %vbscript% "%Shortcut%" ' ) do set target=%%T

del DecodeShortCut.vbs

echo.
echo Shortcut %Shortcut%
echo Target   "%target%"
echo.

:: Erzeugt und startet VB-Script.
:: VB-Script erzeugt eine Linkdatein (*.lnk) zu GRK-Start.bat
@echo off & setlocal

Set WorkPath=%~dp0
::Set WorkPath=C:\GRK\
Set LINKFile=%WorkPath%\GRK.lnk
Set ICONFile=%WorkPath%\GRK.ico
Set ProgZiel=%WorkPath%\GRK-Start.bat
Set VBScript="%WorkPath%\CreateShortcut%RANDOM%.vbs"


echo Set oWS                = WScript.CreateObject("WScript.Shell") >> %VBScript%
echo Set oLink              = oWS.CreateShortcut("%LINKFile%")      >> %VBScript%
echo oLink.TargetPath       = "%ProgZiel%"                          >> %VBScript%
echo oLink.IconLocation     = "%ICONFile%"                          >> %VBScript%
echo oLink.WorkingDirectory = "%WorkPath%"			    >> %VBScript%
echo oLink.Description      = "Startet Programm GRK"		    >> %VBScript%
echo oLink.Save                                                     >> %VBScript%

cscript /nologo %VBScript%
del %VBScript%
exit