Редактирование свойств ярлыка (.lnk) с помощью Powershell - PullRequest
Новая
       25

Редактирование свойств ярлыка (.lnk) с помощью Powershell

23 голосов
/ 27 января 2009

Я нашел противный VBS способ сделать это, но я ищу встроенную процедуру PoSh для редактирования свойств файла .LNK. Цель состоит в том, чтобы обратиться к удаленным компьютерам, скопировать существующий ярлык с большинством правильных свойств и отредактировать пару из них.

Если было бы проще написать новый файл ярлыка, это тоже сработало бы.

Ответы [ 4 ]

30 голосов
/ 11 февраля 2009 
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

17 голосов
/ 23 февраля 2014

Ниже приведены функции, которые я использую для работы с файлами .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()
  }
}
3 голосов
/ 28 января 2009

Не думаю, что есть родной путь.

Это утилита для DOS: Shortcut.exe .

Вам все еще нужно скопировать утилиту в удаленную систему, а затем, возможно, вызвать ее с помощью WMI, чтобы внести необходимые изменения.

Я думаю, что проще будет перезаписать и / или создать новый файл.

Есть ли у вас доступ к этим системам через удаленный общий ресурс?

0 голосов
/ 06 декабря 2018

Краткое дополнение к ответу @ JasonMArcher ..

Чтобы увидеть доступные свойства, вы можете просто запустить $shortcut после $shortcut = $shell.CreateShortcut($destination) в PS . Это напечатает все свойства и их текущие значения.

...