updated: | 2024 27. February |
published: | 2024 27. February |
Vbscript
Code-SchnipselVerknüpfung lesen
Das Linkziel einer Windows Verknüpfungsdate mit der Endung *.lnk
kann mit folgendem Script auf der Kommandokonsole ausgelesen werden.
Verknüpfung lesen
:: 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.
Verknüpfung anlegen
Im nächste Beispiel wird eine Verknüpfung angelegt.
Verknüpfung anlegen
:: 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