Orginalpfad eines verlinkten Verzeichnisses oder einer verlinkten Datei herausfinden

dir C:\test /AL /S

dir C:\test /B /A-L /S

Const REPARSE_POINT = &h400
Set fso = CreateObject("Scripting.FileSystemObject")  
parsefolders fso.GetFolder(wscript.arguments(0))
sub parsefolders(fldr)
	for each f in fldr.files
		If (f.Attributes And REPARSE_POINT) = REPARSE_POINT Then
  			wscript.echo "[SYMLINK-FILE] " & f.path  
		End If
	next
	for each folder in fldr.subfolders
		If (folder.Attributes And REPARSE_POINT) = REPARSE_POINT Then
  			wscript.echo "[SYMLINK-FOLDER] " & folder.path  
		else
			parsefolders folder
		End If
	next
end sub
set fso = nothing

cscript //NOLOGO searchlinks.vbs "C:\deinordner" 

@echo off &setlocal DisableDelayedExpansion

set "filepath=C:\a\b\c\d\f.txt"  


set "n=0"  
for %%i in ("%filepath:\=" "%") do (  
  setlocal EnableDelayedExpansion
  for /f %%j in ("!n!") do (  
    endlocal
    set "f_%%j=%%~i"  
  )
  set /a "n+=1"  
)

set "newpath=%f_0%"  
for /l %%h in (1 1 %n%) do (
  set "repl="  
  setlocal EnableDelayedExpansion
  for /f "tokens=3*" %%i in ('2^>nul dir /al "!newpath!\" ^|findstr /rc:"\<<SYMLINKD>\>"') do (  
    if "!!"=="" endlocal  
    set "name=%%j"  
    setlocal EnableDelayedExpansion
    for %%k in ("!name:[=" "!") do (  
      endlocal
      set "target=%%~k"  
      setlocal EnableDelayedExpansion
    )

    for /f "delims=" %%k in (" [!target!") do (  
      if "!name:%%k=!"=="!f_%%h!" (  
        for /f "delims=" %%l in ("!target:~,-1!") do (  
          endlocal
          set "newpath=%%l"  
          set "repl=1"  
        )
      ) else endlocal
    )

  )

  if not defined repl (
    setlocal EnableDelayedExpansion
    for /f "delims=" %%k in ("!newpath!") do (  
      for /f "delims=" %%l in ("!f_%%h!") do (  
        endlocal
        set "newpath=%%k\%%l"  
      )
    )
  )

)



echo "%newpath%"  
pause