---

$desktop = [Environment]::GetFolderPath("Desktop")
$ws = New-Object -ComObject WScript.Shell
$sc = $ws.CreateShortcut("$desktop.lnk")
$sc.TargetPath = "\\\"
$sc.Save()