Powershellでショートカットのリンク先(参照先)の値を置き換えたい

Question

前提・実現したいこと

デスクトップのショートカットのリンク先(参照先)を変更したいと思っております。
条件としては、リンク先(参照先)に"\123.456.78.9"があれば "\123.456.78.8"に置き換える、変更するというものです。
エラーの内容からコードに原因等ございますでしょうか。。

発生している問題・エラーメッセージ

New-Object : 引数 'System.Object[]' を受け入れる位置指定パラメーターが見つかりません。
発生場所 行:1 文字:12
+ $wsShell = New-Object -ComObject WScript.Shell $shortcuts | ForEach-O ...
+           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   + CategoryInfo         : InvalidArgument: (:) [New-Object]、ParameterBindingException
   + FullyQualifiedErrorId : PositionalParameterNotFound,Microsoft.PowerShell.Commands.NewObjectCommand

該当のソースコード

#####
# デスクトップ、およびデスクトップ上のフォルダ内の
# ショートカットファイルの参照先を書き換える
#####
## レガシーな環境用の共有フォルダパス文字列を新しい環境用に置き換えるfuntion
function ReplacePath([string] $path) {
   # 例1：\192.0.2.1\share1\～ → \file1.example.jp\share1\～
   $path = $path -ireplace "\123.456.78.9\", "\123.456.78.8\"
   Return $path
}
# メイン処理
Write-Output "デスクトップ上のショートカットの更新を開始します。"
$desktop = [System.Environment]::GetFolderPath('Desktop')
$shortcuts = Get-ChildItem $desktop *.lnk -Recurse
# PowerShellにショートカットを編集できるコマンドレットは無い。WSHを使う。
$wsShell = New-Object -ComObject WScript.Shell $shortcuts | ForEach-Object {
   # 更新の必要があるショートカットファイルなのかを確認
   $link = $wsShell.CreateShortcut($_.FullName)
   $newTargetPath = ReplacePath($link.TargetPath)
   if ($newTargetPath -eq $link.TargetPath){
       Write-Output ("置き換えの必要なし: " + $_.FullName)
       return
   }
   # ショートカットの参照先と作業フォルダーを更新
   $link.TargetPath = $newTargetPath
   $link.WorkingDirectory = ReplacePath($link.WorkingDirectory)
   $link.Save();
   Write-Output ("置き換えを実行: " + $_.FullName) } Write-Output "デスクトップ上のショートカットの更新が完了しました。"

Comments

[K_3578]

質問内容を意図的に意味のない文章に改変するのは禁止されています。
元の質問文に戻して下さい。

何かしら内容を隠したい理由があってやったにせよ、誰でも編集履歴から内容を確認出来ます。

質問文を外部に公開されて困る理由があるなら下記リンクから運営に相談して下さい。
真っ当な理由であれば内容削除などしてくれるかもしれません。

https://teratail.com/contact/input

[K_3578]

退会しおった･･･。回答得てから内容消すとか最低の行為だと気付いてほしい

[退会済みユーザー]

K_3578様、御注意していただきありがとうございます。
何か理由があったのかどうかわかりませんが、こういう方もいるのですね。

Answer 1

WScript.Shellと$shortcutsの間で改行、
あと、最後の行もWrite-outputの直前で改行する必要があるとおもいます。

#####
# デスクトップ、およびデスクトップ上のフォルダ内の
# ショートカットファイルの参照先を書き換える
#####

## レガシーな環境用の共有フォルダパス文字列を新しい環境用に置き換えるfuntion
function ReplacePath([string] $path) {
    # 例1：\192.0.2.1\share1\～ → \file1.example.jp\share1\～
    $path = $path -ireplace "\123.456.78.9\", "\123.456.78.8\"
    Return $path
}

# メイン処理
Write-Output "デスクトップ上のショートカットの更新を開始します。"
$desktop = [System.Environment]::GetFolderPath('Desktop')
$shortcuts = Get-ChildItem $desktop *.lnk -Recurse

# PowerShellにショートカットを編集できるコマンドレットは無い。WSHを使う。
$wsShell = New-Object -ComObject WScript.Shell
$shortcuts | ForEach-Object {
    # 更新の必要があるショートカットファイルなのかを確認
    $link = $wsShell.CreateShortcut($_.FullName)
    $newTargetPath = ReplacePath($link.TargetPath)
    if ($newTargetPath -eq $link.TargetPath){
        Write-Output ("置き換えの必要なし: " + $_.FullName)
        return
    }
    # ショートカットの参照先と作業フォルダーを更新
    $link.TargetPath = $newTargetPath
    $link.WorkingDirectory = ReplacePath($link.WorkingDirectory)
    $link.Save();
    Write-Output ("置き換えを実行: " + $_.FullName)
}
Write-Output "デスクトップ上のショートカットの更新が完了しました。"

Comments

[退会済みユーザー]

qnoirさん、お忙しいなかで回答ありがとうございます。
実行してみたところ、下記のようなエラーがでました(IPアドレスは仮で記載しております)
調べているところどうやらエスケープ処理?が必要とのことですが、どのような表記に変更すればよいのでしょうか。。答えを聞くようで大変申し訳ございません。。「

----
正規表現パターン \123.456.78.9\ が無効です。
発生場所 行:3 文字:5
+ $path = $path -ireplace "\123.456.78.9\", "\123.456.78.8\"
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation: (\123.456.78.9\:String) []、RuntimeException
+ FullyQualifiedErrorId : InvalidRegularExpression

[退会済みユーザー]

「\」記号をエスケープする必要があるということですね
（「\」というように二重にする）

$path = $path -ireplace "\\123.456.78.9\", "\\123.456.78.8\"

に修正した場合どうでしょうか？