アクセス出来なくなってしまったsharepointショートカット(DavWWWRoot)をhttpsのurlに変換する

以前はエクスプローラーからアクセス出来ていた。下記はブラウザ起動に変わる。
フォルダ内全ての .lnk ショートカットから .url を生成

$wsh = New-Object -ComObject WScript.shell
ls *.lnk | foreach { 
	$s = $wsh.CreateShortcut($_)
	$spath = $s.TargetPath
	if($spath -notmatch "sharepoint.com"){ return }
	$tpath = $spath
	$tpath = $tpath -replace "^\\\\", "https://"
	$tpath = $tpath -replace "@SSL\\DavWWWRoot", ""
	$tpath = $tpath -replace "\\", "/"
	echo "- from -" $spath "- to -" $tpath
	$newpath = $s.FullName -replace "\.lnk$", ".url"
	$new = $wsh.CreateShortcut($newpath)
	$new.TargetPath = $tpath
	$new.save()
}

ブラウザ起動が嫌なら、別途sharepointページから「OneDriveへのショートカットの追加」を行えばエクスプローラーも使える。