[green]
<#'==========================================================================
'
' NAME: SendToPowerShell.ps1
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' DATE : 5/9/2011
' COPYRIGHT ¬ 2011, All Rights Reserved
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'
' IN NO EVENT SHALL THE SPIDER'S PARLOR AND/OR ITS RESPECTIVE SUPPLIERS
' BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
' DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
' WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
' ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
' OF THIS CODE OR INFORMATION.
'
' COMMENT: You are free to use this code provided you keep all original
' header information in the script.
'
'==========================================================================
#>[/green]
$SendTo = [System.Environment]::GetFolderPath("SendTo")
$OS = gwmi win32_OperatingSystem
$OSDir = $OS.WindowsDirectory.Trim()
$objShell = New-Object -com "Wscript.Shell"
if ($OS.OSArchitecture -eq "64-bit")
{
$objShortcut = $objShell.CreateShortcut($SendTo + "\PowerShell(x86).lnk")
$objShortcut.TargetPath = "$OSDir\SysWOW64\WindowsPowerShell\v1.0\PowerShell.Exe"
$objShortcut.Save()
}
$objShortcut = $objShell.CreateShortcut($SendTo + "\PowerShell.lnk")
$objShortcut.TargetPath = "$OSDir\System32\WindowsPowerShell\v1.0\PowerShell.Exe"
$objShortcut.Save()