Powershell equivalent ?

OK, this has been written in PowerShell but its heavily based on VBS. I was wondering, is there a way to do this in “pure” PowerShell ?

$WshShell = New-object -comObject WScript.Shell
$Shortcut = $WshShell.createShortcut("C:\users\$($env:USERNAME)\Desktop\notepad.exe - Shortcut.lnk")
$Shortcut.TargetPath = "C:\Windows\system32\notepad.exe"

Not that I’m immediately aware of. The WScript object does the job so well, nobody on the Windows Shell team has ever bothered creating a .NET-based way of doing it and wrapping a cmdlet around it.