Convert Internet Shortcuts (URL files) to Windows Shortcuts (LNK files)

url2lnk.ps1

param(
    [Parameter(Mandatory = $true)]
    [string]$FolderPath
)

if (-not (Test-Path $FolderPath -PathType Container)) {
    Write-Error "Folder not found: $FolderPath"
    exit 1
}

$wsh = New-Object -ComObject WScript.Shell
$explorer = "$env:WINDIR\explorer.exe"

Get-ChildItem -Path $FolderPath -Filter *.url -File -Recurse | ForEach-Object {

    $urlFile = $_
    $lines = Get-Content -LiteralPath $urlFile.FullName

    $url = $null
    $iconFile = $null
    $iconIndex = 0

    foreach ($line in $lines) {

        if ($line -like "URL=*") {
            $url = $line.Substring(4)
        }
        elseif ($line -like "IconFile=*") {
            $iconFile = $line.Substring(9)
        }
        elseif ($line -like "IconIndex=*") {
            $iconIndex = [int]$line.Substring(10)
        }
    }

    if (-not $url) {
        Write-Warning "No URL found in $($urlFile.FullName). Skipping."
        return
    }

    $lnkPath = [System.IO.Path]::ChangeExtension($urlFile.FullName, ".lnk")

    try {
        $shortcut = $wsh.CreateShortcut($lnkPath)

        $shortcut.TargetPath = $explorer
        $shortcut.Arguments = '"' + $url + '"'
        $shortcut.WorkingDirectory = Split-Path $explorer

        if ($iconFile) {
            $shortcut.IconLocation = "$iconFile,$iconIndex"
        }

        $shortcut.Save()

        Write-Output "Created: $lnkPath"
    }
    catch {
        Write-Warning "Failed: $($urlFile.FullName) -> $_"
    }
}