Script needed that extracts link targets to a text file
Hi experts.
Preparing a win8.1->win10 migration, I noticed that Microsoft does not migrate the pinned win8.1 start menu tiles to the new start menu - what a shame. And while in win8.1 we could even use GPOs to pin certain installed applications, this feature is deprecated in win10.
I'd like to assist my users in migrating those so I have been looking for a scripted solution.
I found this so far which works: https://gallery.technet.microsoft.com/scriptcenter/Script-to-pin-items-to-51be533c
What I need for completion is a script that we can run against a directory full of link files (.lnk) and that will write the link targets to a text file which can be used by this powershell cmdlet afterwards.
I already found something but I am struggling to get it to work with links that include spaces, so I am looking for help here.
This is it: target.bat from http://www.computerhope.com/forum/index.php?topic=80659.0
I hope to be able to run target.bat somefolderFulloflinks and get a text file like
"c:\somepath\some.exe"
"c:\anotherpath with spaces\another.exe"
...
Preparing a win8.1->win10 migration, I noticed that Microsoft does not migrate the pinned win8.1 start menu tiles to the new start menu - what a shame. And while in win8.1 we could even use GPOs to pin certain installed applications, this feature is deprecated in win10.
I'd like to assist my users in migrating those so I have been looking for a scripted solution.
I found this so far which works: https://gallery.technet.microsoft.com/scriptcenter/Script-to-pin-items-to-51be533c
What I need for completion is a script that we can run against a directory full of link files (.lnk) and that will write the link targets to a text file which can be used by this powershell cmdlet afterwards.
I already found something but I am struggling to get it to work with links that include spaces, so I am looking for help here.
This is it: target.bat from http://www.computerhope.com/forum/index.php?topic=80659.0
I hope to be able to run target.bat somefolderFulloflinks and get a text file like
"c:\somepath\some.exe"
"c:\anotherpath with spaces\another.exe"
...
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Since your "Pin" script is Powershell, here's a Powershell script you can use as function or stand-alone script.
It'll return a custom object that you can then pipe to Select-Object and/or Export-Csv as you need.
It accepts pipeline input, so you can just pass it the results of a Get-ChildItem. Advertiseed shortcuts are supported.
Example:
It'll return a custom object that you can then pipe to Select-Object and/or Export-Csv as you need.
It accepts pipeline input, so you can just pass it the results of a Get-ChildItem. Advertiseed shortcuts are supported.
Example:
Get-ChildItem -Path "C:\ProgramData\Microsoft\Windows\Start Menu" -Recurse -Filter *.lnk | % {.\Get-Shortcut.ps1 -Path $_.FullName} | Export-Csv -Path C:\Temp\Shortcuts.csv -NoTypeInformation
Param(
[Parameter(Mandatory=$True, ValueFromPipeline=$True, ValueFromPipelineByPropertyName=$True, Position=0)][ValidateNotNull()]
[string[]]$Path
)
Begin {
$Shell = New-Object -ComObject WScript.Shell
$Installer = New-Object -ComObject WindowsInstaller.Installer
}
Process {
$Path | ForEach-Object {
If (Test-Path -Path $_ -PathType Leaf) {
$Shortcut = $Shell.CreateShortcut($_) | Select-Object -Property `
Name,
*,
@{Name="IsAdvertised"; Expression={$False}},
AdvertisedTargetPath,
@{Name="TargetExists"; Expression={$False}},
Error
$Shortcut.Name = [IO.Path]::GetFileName($_)
If ([string]::IsNullOrEmpty($Shortcut.TargetPath)) {
$Shortcut.Error = "Not a valid shortcut."
} ElseIf ($Shortcut.TargetPath.ToUpper().StartsWith("${ENV:Systemroot}\Installer\".ToUpper())) {
$Shortcut.IsAdvertised = $True
Try {
$ShortcutTarget = $Installer.GetType().InvokeMember("ShortcutTarget", "GetProperty", $Null, $Installer, $_)
$StringData = 1, 3 | % {$ShortcutTarget.GetType().InvokeMember("StringData", "GetProperty", $Null, $ShortcutTarget, $_)}
$Shortcut.AdvertisedTargetPath = $Installer.GetType().InvokeMember("ComponentPath", "GetProperty", $Null, $Installer, $StringData)
} Catch {
$Shortcut.Error = "Advertised product not installed."
}
}
$Shortcut.TargetExists = ![string]::IsNullOrEmpty($Shortcut.TargetPath) -And ((Get-Item -Path $Shortcut.TargetPath -ErrorAction SilentlyContinue) -ne $Null)
$Shortcut | Write-Output
} Else {
"Shortcut '$_' not found!" | Write-Error
}
}
}
End {
}
Hi ObdA.
That looks good.
So I modified it a little and started
That looks good.
So I modified it a little and started
Get-ChildItem -Path "$env:APPDATA\Microsoft\Windows\Start Menu\programs" -Filter *.lnk | % {D:\Documents\Get-Shortcut.ps1 -Path $_.FullName} | Export-Csv -Path C:\Temp\Shortcuts.csv -NoTypeInformation
Well, nothing keeps you from exporting everything as it is to a file, then importing the file again with Import-Csv and using just the TargetPath property, probably about like this:
Import-Csv -Path C:\Temp\Shortcuts.csv | % {Set-OSCPin -Path $_.TargetPath}
Get-ChildItem -Path "$env:APPDATA\Microsoft\Windows\Start Menu\programs" -Filter *.lnk | % {D:\Documents\Get-Shortcut.ps1 -Path $_.FullName} | Select-Object -ExpandProperty TargetPath | Set-Content -Path "C:\Temp\Shortcuts.txt"
Premium Content
You need an Expert Office subscription to comment.Start Free Trial