Windows Verknüpfung (lnk) in Symlink umwandeln

$folder = 'D:\QuellOrdner'  
$shell = New-Object -Com Wscript.Shell
$ErrorActionPreference = 'Stop'  
foreach($file in Get-Childitem -LiteralPath $folder -File -Filter *.lnk -Recurse){
    try{
        $lnk = $shell.CreateShortcut($file.Fullname)
        New-Item -ItemType SymbolicLink -Path (join-path $file.DirectoryName (split-path $lnk.TargetPath -Leaf)) -Value $lnk.TargetPath
        Remove-Item -LiteralPath $file.Fullname -Force
    }catch{
        write-host  "Fehler bei Verarbeitung des Links '$($file.Fullname)' : $($_.Exception.Message)" -F Red  
    }
}

Dim fso, shell

' Pfad anpassen und diese Prozedur starten  
Sub ConvertToSymbolicLinks()
    Const folder = "D:\Quellordner"  
    Set fso = CreateObject("Scripting.Filesystemobject")  
    Set shell = CreateObject("Wscript.Shell")  
    RecurseFolder fso.GetFolder(folder), True
End Sub

Function RecurseFolder(strFldr, boolRecursion)
    For Each file In strFldr.Files
        If LCase(fso.GetExtensionName(file.Path)) = "lnk" Then  
            Set lnk = shell.CreateShortcut(file.Path)
            shell.Run "cmd /c mklink """ & fso.GetParentFolderName(lnk.FullName) & "\" & fso.GetFileName(lnk.TargetPath) & """ """ & lnk.TargetPath & """", 0, True  
            file.Delete True
        End If
    Next
    If boolRecursion Then
        For Each subFolder In strFldr.SubFolders
            RecurseFolder subFolder, True
        Next
    End If
End Function