-
Notifications
You must be signed in to change notification settings - Fork 63
Expand file tree
/
Copy pathApplicationShortcuts-PinToTaskbar_StartMenu.ps1
More file actions
182 lines (173 loc) · 9.93 KB
/
ApplicationShortcuts-PinToTaskbar_StartMenu.ps1
File metadata and controls
182 lines (173 loc) · 9.93 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
<#
.NAME
Mick Pletcher
.DATE
11 May 2014
.SYNOPSIS
Taskbar Shortcuts
.DESCRIPTION
Create taskbar shortcuts
.PARAMETER <paramName>
<Description of script parameter>
.EXAMPLE
<An example of using the script>
#>
#Declare Global Memory
Set-Variable -Name Architecture -Scope Global -Force
Set-Variable -Name RelativePath -Scope Global -Force
Set-Variable -Name Title -Value "Application Shortcuts" -Scope Global -Force
Function ConsoleTitle ($Title){
$host.ui.RawUI.WindowTitle = $Title
}
Function GetRelativePath {
$Global:RelativePath = (split-path $SCRIPT:MyInvocation.MyCommand.Path -parent)+"\"
}
Function GetArchitecture {
$Global:Architecture = Get-WmiObject -Class Win32_OperatingSystem | Select-Object OSArchitecture
$Global:Architecture = $Global:Architecture.OSArchitecture
#Returns 32-bit or 64-bit
}
Function PinToStartMenu ($AppName,$PinnedApp,$App) {
Write-Host "Pin"$AppName" on Start Menu....." -NoNewline
If ((Test-Path $App) -eq $true) {
If ((Test-Path $PinnedApp) -eq $false) {
$sa = new-object -c shell.application
$AppSplit = $App.split("\")
$AppSplitCount = $AppSplit.Count
$Filename = $AppSplit[$AppSplitCount-1]
For ($i=0; $i -lt $AppSplitCount-1) {
$DirectoryPath = $DirectoryPath+$AppSplit[$i]
If ($i -ne $AppSplitCount-2) {
$DirectoryPath = $DirectoryPath+"\"
}
$i++
}
$pn = $sa.namespace($DirectoryPath).parsename($Filename)
$pn.invokeverb('startpin')
If ((Test-Path $PinnedApp) -eq $true) {
Write-Host "Success" -ForegroundColor Yellow
} else {
Write-Host "Failed " -ForegroundColor Red
}
} else {
Write-Host "Already Present" -ForegroundColor Yellow
}
} else {
Write-Host "Application not installed" -ForegroundColor Green
}
}
Function PinToTaskbar ($AppName,$PinnedApp,$App) {
Write-Host "Pin"$AppName" to Taskbar....." -NoNewline
If ((Test-Path $App) -eq $true) {
If ((Test-Path $PinnedApp) -eq $false) {
$sa = new-object -c shell.application
$AppSplit = $App.split("\")
$AppSplitCount = $AppSplit.Count
$Filename = $AppSplit[$AppSplitCount-1]
For ($i=0; $i -lt $AppSplitCount-1) {
$DirectoryPath = $DirectoryPath+$AppSplit[$i]
If ($i -ne $AppSplitCount-2) {
$DirectoryPath = $DirectoryPath+"\"
}
$i++
}
$pn = $sa.namespace($DirectoryPath).parsename($Filename)
$pn.invokeverb('taskbarpin')
If ((Test-Path $PinnedApp) -eq $true) {
Write-Host "Success" -ForegroundColor Yellow
} else {
Write-Host "Failed " -ForegroundColor Red
}
} else {
Write-Host "Already Present" -ForegroundColor Yellow
}
} else {
Write-Host "Application not installed" -ForegroundColor Green
}
}
Function UnpinFromStartMenu ($AppName,$PinnedApp,$App) {
Write-Host "Unpin"$AppName" from Start Menu....." -NoNewline
If ((Test-Path $PinnedApp) -eq $true) {
$sa = new-object -c shell.application
$AppSplit = $App.split("\")
$AppSplitCount = $AppSplit.Count
$Filename = $AppSplit[$AppSplitCount-1]
For ($i=0; $i -lt $AppSplitCount-1) {
$DirectoryPath = $DirectoryPath+$AppSplit[$i]
If ($i -ne $AppSplitCount-2) {
$DirectoryPath = $DirectoryPath+"\"
}
$i++
}
$pn = $sa.namespace($DirectoryPath).parsename($Filename)
$pn.invokeverb('startunpin')
If ((Test-Path $PinnedApp) -eq $false) {
Write-Host "Success" -ForegroundColor Yellow
} else {
Write-Host "Failed " -ForegroundColor Red
}
} else {
Write-Host "Already Removed" -ForegroundColor Yellow
}
}
Function UnpinFromTaskbar ($AppName,$PinnedApp,$App) {
Write-Host "Unpin"$AppName" from Taskbar....." -NoNewline
If ((Test-Path $PinnedApp) -eq $true) {
$AppSplit = $App.split("\")
$AppSplitCount = $AppSplit.Count
$Filename = $AppSplit[$AppSplitCount-1]
$DirectoryPath = $App.Trim($Filename)
$DirectoryPath = $DirectoryPath.Trim("\")
If ($Filename -eq "EXCEL.EXE") {
$DirectoryPath = "c"+$DirectoryPath
}
$sa = new-object -c shell.application
$pn = $sa.namespace($DirectoryPath).parsename($Filename)
$pn.invokeverb('taskbarunpin')
If ((Test-Path $PinnedApp) -eq $false) {
Write-Host "Success" -ForegroundColor Yellow
} else {
Write-Host "Failed " -ForegroundColor Red
}
} else {
Write-Host "Already Removed" -ForegroundColor Yellow
}
}
cls
GetRelativePath
ConsoleTitle $Global:Title
GetArchitecture
If ($Global:Architecture -eq "32-bit") {
UnpinFromStartMenu "Outlook" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Outlook.lnk" "C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE"
UnpinFromStartMenu "Word" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Word.lnk" "C:\Program Files\Microsoft Office\Office14\WINWORD.EXE"
UnpinFromStartMenu "Excel" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Excel.lnk" "C:\Program Files\Microsoft Office\Office14\EXCEL.EXE"
UnpinFromStartMenu "PowerPoint" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft PowerPoint.lnk" "C:\Program Files\Microsoft Office\Office14\POWERPNT.EXE"
PinToStartMenu "Outlook" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Outlook.lnk" "C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE"
PinToStartMenu "Word" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Word.lnk" "C:\Program Files\Microsoft Office\Office14\WINWORD.EXE"
PinToStartMenu "Excel" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Excel.lnk" "C:\Program Files\Microsoft Office\Office14\EXCEL.EXE"
PinToStartMenu "PowerPoint" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft PowerPoint.lnk" "C:\Program Files\Microsoft Office\Office14\POWERPNT.EXE"
UnpinFromTaskbar "Outlook" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Outlook 2010.lnk" "C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE"
UnpinFromTaskbar "Word" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Word 2010.lnk" "C:\Program Files\Microsoft Office\Office14\WINWORD.EXE"
UnpinFromTaskbar "Excel" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Excel 2010.lnk" "C:\Program Files\Microsoft Office\Office14\EXCEL.EXE"
UnpinFromTaskbar "PowerPoint" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft PowerPoint 2010.lnk" "C:\Program Files\Microsoft Office\Office14\POWERPNT.EXE"
PinToTaskbar "Outlook" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Outlook 2010.lnk" "C:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE"
PinToTaskbar "Word" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Word 2010.lnk" "C:\Program Files\Microsoft Office\Office14\WINWORD.EXE"
PinToTaskbar "Excel" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Excel 2010.lnk" "C:\Program Files\Microsoft Office\Office14\EXCEL.EXE"
PinToTaskbar "PowerPoint" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft PowerPoint 2010.lnk" "C:\Program Files\Microsoft Office\Office14\POWERPNT.EXE"
} else {
UnpinFromStartMenu "Outlook" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Outlook.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE"
UnpinFromStartMenu "Word" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Word.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE"
UnpinFromStartMenu "Excel" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Excel.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
UnpinFromStartMenu "PowerPoint" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft PowerPoint.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\POWERPNT.EXE"
PinToStartMenu "Outlook" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Outlook.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE"
PinToStartMenu "Word" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Word.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE"
PinToStartMenu "Excel" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\Microsoft Excel.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
UnpinFromTaskbar "Outlook" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Outlook 2010.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE"
UnpinFromTaskbar "Word" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Word 2010.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE"
UnpinFromTaskbar "Excel" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Excel 2010.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
UnpinFromTaskbar "PowerPoint" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft PowerPoint 2010.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\POWERPNT.EXE"
PinToTaskbar "Outlook" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Outlook 2010.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE"
PinToTaskbar "Word" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Word 2010.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE"
PinToTaskbar "Excel" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft Excel 2010.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
PinToTaskbar "PowerPoint" $Env:APPDATA"\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Microsoft PowerPoint 2010.lnk" "C:\Program Files (x86)\Microsoft Office\Office14\POWERPNT.EXE"
}