Редактирование свойств ярлыка (.lnk) с помощью Powershell
-
20-08-2019 - |
Вопрос
Я нашел отвратительный способ сделать это на VBS, но я ищу встроенную шикарную процедуру для редактирования свойств файла .LNK.Цель состоит в том, чтобы связаться с удаленными компьютерами, скопировать существующий ярлык с большинством правильных свойств и отредактировать пару из них.
Если бы было просто проще написать новый файл быстрого доступа, это бы тоже сработало.
Решение
Copy-Item $sourcepath $destination ## Get the lnk we want to use as a template
$shell = New-Object -COM WScript.Shell
$shortcut = $shell.CreateShortcut($destination) ## Open the lnk
$shortcut.TargetPath = "C:\path\to\new\exe.exe" ## Make changes
$shortcut.Description = "Our new link" ## This is the "Comment" field
$shortcut.Save() ## Save
Нашел VB-версию кода здесь:http://www.tutorialized.com/view/tutorial/Extract-the-target-file-from-a-shortcut-file-.lnk/18349
Другие советы
Ниже приведены функции, которые я использую для работы с файлами .lnk.Это модифицированные версии найденных функций здесь как упоминал @Nathan Hartley.Я стал лучше Get-Shortcut
для обработки подстановочных знаков типа *
передавая строки в dir
чтобы развернуть их в наборы объектов FileInfo.
function Get-Shortcut {
param(
$path = $null
)
$obj = New-Object -ComObject WScript.Shell
if ($path -eq $null) {
$pathUser = [System.Environment]::GetFolderPath('StartMenu')
$pathCommon = $obj.SpecialFolders.Item('AllUsersStartMenu')
$path = dir $pathUser, $pathCommon -Filter *.lnk -Recurse
}
if ($path -is [string]) {
$path = dir $path -Filter *.lnk
}
$path | ForEach-Object {
if ($_ -is [string]) {
$_ = dir $_ -Filter *.lnk
}
if ($_) {
$link = $obj.CreateShortcut($_.FullName)
$info = @{}
$info.Hotkey = $link.Hotkey
$info.TargetPath = $link.TargetPath
$info.LinkPath = $link.FullName
$info.Arguments = $link.Arguments
$info.Target = try {Split-Path $info.TargetPath -Leaf } catch { 'n/a'}
$info.Link = try { Split-Path $info.LinkPath -Leaf } catch { 'n/a'}
$info.WindowStyle = $link.WindowStyle
$info.IconLocation = $link.IconLocation
New-Object PSObject -Property $info
}
}
}
function Set-Shortcut {
param(
[Parameter(ValueFromPipelineByPropertyName=$true)]
$LinkPath,
$Hotkey,
$IconLocation,
$Arguments,
$TargetPath
)
begin {
$shell = New-Object -ComObject WScript.Shell
}
process {
$link = $shell.CreateShortcut($LinkPath)
$PSCmdlet.MyInvocation.BoundParameters.GetEnumerator() |
Where-Object { $_.key -ne 'LinkPath' } |
ForEach-Object { $link.$($_.key) = $_.value }
$link.Save()
}
}
Я не думаю, что есть какой-то местный способ.
Есть такая утилита DOS: Shortcut.exe.
Вам все равно нужно скопировать утилиту в удаленную систему, затем, возможно, вызвать ее с помощью WMI, чтобы внести нужные изменения.
Я думаю, что более простым способом будет перезапись и / или создание нового файла.
Есть ли у вас доступ к этим системам через удаленный общий ресурс?
Короткое дополнение к ответу @JasonMArcher..
Чтобы просмотреть доступные свойства, вы можете просто запустить $shortcut
после $shortcut = $shell.CreateShortcut($destination)
в PS.При этом будут выведены все свойства и их текущие значения.