API tools faq
paste
Guest User

Set WIndows Taskbar VBS

a guest
May 13th, 2016
220
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 18.37 KB | None | 0 0
raw download clone embed print report
  1. ' Put this file here HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce
  2.  
  3. Option Explicit
  4.  
  5. Const CSIDL_COMMON_PROGRAMS = &H17
  6. Const CSIDL_PROGRAMS = &H2
  7. Const CSIDL_STARTMENU = &HB
  8.  
  9. Dim objWShell
  10. Dim objShell, objFSO
  11. Dim objCurrentUserStartFolder
  12. Dim strCurrentUserStartFolderPath
  13. Dim objAllUsersProgramsFolder
  14. Dim strAllUsersProgramsPath
  15. Dim objFolder
  16. Dim objFolderItem
  17. Dim colVerbs
  18. Dim objVerb
  19. Dim oFSO, oTxtFile
  20. Set oFSO = CreateObject("Scripting.FileSystemObject")
  21. Set objWShell = WScript.CreateObject("WScript.Shell")
  22. Dim appData
  23. appData = objWShell.expandEnvironmentStrings("%APPDATA%")
  24. Set objShell = CreateObject("Shell.Application")
  25. Set objFSO = CreateObject("Scripting.FileSystemObject")
  26. Set objCurrentUserStartFolder = objShell.NameSpace (CSIDL_STARTMENU)
  27. strCurrentUserStartFolderPath = objCurrentUserStartFolder.Self.Path
  28. Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
  29. strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
  30.  
  31. ' - Remove pinned items -
  32. Set objFSO = CreateObject("Scripting.FileSystemObject")
  33.  
  34. If objFSO.FileExists(appData + "\Task.txt") Then
  35. Wscript.Quit
  36. Else
  37.  
  38. 'Internet Explorer
  39. If objFSO.FileExists(strCurrentUserStartFolderPath & "\Programs\Internet Explorer.lnk") Then
  40. Set objFolder = objShell.Namespace(strCurrentUserStartFolderPath & "\Programs")
  41. Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
  42. Set colVerbs = objFolderItem.Verbs
  43. For Each objVerb in colVerbs
  44. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  45. Next
  46. End If
  47.  
  48. 'Windows Explorer
  49. If objFSO.FileExists(strCurrentUserStartFolderPath & "\Programs\Accessories\Windows Explorer.lnk") Then
  50. Set objFolder = objShell.Namespace(strCurrentUserStartFolderPath & "\Programs\Accessories")
  51. Set objFolderItem = objFolder.ParseName("Windows Explorer.lnk")
  52. Set colVerbs = objFolderItem.Verbs
  53. For Each objVerb in colVerbs
  54. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  55. Next
  56. End If
  57.  
  58. 'File Explorer
  59. If objFSO.FileExists(strCurrentUserStartFolderPath & "\Programs\Accessories\File Explorer.lnk") Then
  60. Set objFolder = objShell.Namespace(strCurrentUserStartFolderPath & "\Programs\Accessories")
  61. Set objFolderItem = objFolder.ParseName("File Explorer.lnk")
  62. Set colVerbs = objFolderItem.Verbs
  63. For Each objVerb in colVerbs
  64. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  65. Next
  66. End If
  67.  
  68. 'Windows Media Player
  69. If objFSO.FileExists(strAllUsersProgramsPath & "\Windows Media Player.lnk") Then
  70. Set objFolder = objShell.Namespace(strAllUsersProgramsPath)
  71. Set objFolderItem = objFolder.ParseName("Windows Media Player.lnk")
  72. Set colVerbs = objFolderItem.Verbs
  73. For Each objVerb in colVerbs
  74. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  75. Next
  76. End If
  77.  
  78. 'Google Chrome
  79. If objFSO.FileExists(strAllUsersProgramsPath & "\Google Chrome\Google Chrome.lnk") Then
  80. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Google Chrome")
  81. Set objFolderItem = objFolder.ParseName("Google Chrome.lnk")
  82. Set colVerbs = objFolderItem.Verbs
  83. For Each objVerb in colVerbs
  84. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  85. Next
  86. End If
  87.  
  88. 'Store
  89. If objFSO.FileExists(strAllUsersProgramsPath & "\Store.lnk") Then
  90. Set objFolder = objShell.Namespace(strAllUsersProgramsPath)
  91. Set objFolderItem = objFolder.ParseName("Store.lnk")
  92. Set colVerbs = objFolderItem.Verbs
  93. For Each objVerb in colVerbs
  94. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  95. Next
  96. End If
  97.  
  98. ' - Pin to Taskbar -
  99.  
  100. 'Google Chrome
  101. If objFSO.FileExists(strAllUsersProgramsPath & "\Google Chrome\Google Chrome.lnk") Then
  102. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Google Chrome")
  103. Set objFolderItem = objFolder.ParseName("Google Chrome.lnk")
  104. Set colVerbs = objFolderItem.Verbs
  105. For Each objVerb in colVerbs
  106. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  107. Next
  108. End If
  109.  
  110. 'Mozilla Firefox
  111. If objFSO.FileExists(strAllUsersProgramsPath & "\Mozilla Firefox.lnk") Then
  112. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\")
  113. Set objFolderItem = objFolder.ParseName("Mozilla Firefox.lnk")
  114. Set colVerbs = objFolderItem.Verbs
  115. For Each objVerb in colVerbs
  116. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  117. Next
  118. End If
  119.  
  120. 'Internet Explorer
  121. If objFSO.FileExists(strCurrentUserStartFolderPath & "\Programs\Internet Explorer.lnk") Then
  122. Set objFolder = objShell.Namespace(strCurrentUserStartFolderPath & "\Programs")
  123. Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
  124. Set colVerbs = objFolderItem.Verbs
  125. For Each objVerb in colVerbs
  126. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  127. Next
  128. End If
  129.  
  130. 'Microsoft Outlook 2013
  131. If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office 2013\Outlook 2013.lnk") Then
  132. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office 2013")
  133. Set objFolderItem = objFolder.ParseName("Outlook 2013.lnk")
  134. Set colVerbs = objFolderItem.Verbs
  135. For Each objVerb in colVerbs
  136. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  137. Next
  138. End If
  139.  
  140. 'Microsoft Word 2013
  141. If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office 2013\Word 2013.lnk") Then
  142. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office 2013")
  143. Set objFolderItem = objFolder.ParseName("Word 2013.lnk")
  144. Set colVerbs = objFolderItem.Verbs
  145. For Each objVerb in colVerbs
  146. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  147. Next
  148. End If
  149.  
  150. 'Microsoft PowerPoint 2013
  151. If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office 2013\PowerPoint 2013.lnk") Then
  152. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office 2013")
  153. Set objFolderItem = objFolder.ParseName("PowerPoint 2013.lnk")
  154. Set colVerbs = objFolderItem.Verbs
  155. For Each objVerb in colVerbs
  156. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  157. Next
  158. End If
  159.  
  160. 'Microsoft Excel 2013
  161. If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office 2013\Excel 2013.lnk") Then
  162. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office 2013")
  163. Set objFolderItem = objFolder.ParseName("Excel 2013.lnk")
  164. Set colVerbs = objFolderItem.Verbs
  165. For Each objVerb in colVerbs
  166. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  167. Next
  168. End If
  169.  
  170. 'Microsoft Outlook 2010
  171. If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office\Microsoft Outlook 2010.lnk") Then
  172. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office")
  173. Set objFolderItem = objFolder.ParseName("Microsoft Outlook 2010.lnk")
  174. Set colVerbs = objFolderItem.Verbs
  175. For Each objVerb in colVerbs
  176. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  177. Next
  178. End If
  179.  
  180. 'Microsoft Word 2010
  181. If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office\Microsoft Word 2010.lnk") Then
  182. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office")
  183. Set objFolderItem = objFolder.ParseName("Microsoft Word 2010.lnk")
  184. Set colVerbs = objFolderItem.Verbs
  185. For Each objVerb in colVerbs
  186. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  187. Next
  188. End If
  189.  
  190. 'Microsoft PowerPoint 2010
  191. If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office\Microsoft PowerPoint 2010.lnk") Then
  192. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office")
  193. Set objFolderItem = objFolder.ParseName("Microsoft PowerPoint 2010.lnk")
  194. Set colVerbs = objFolderItem.Verbs
  195. For Each objVerb in colVerbs
  196. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  197. Next
  198. End If
  199.  
  200. 'Microsoft Excel 2010
  201. If objFSO.FileExists(strAllUsersProgramsPath & "\Microsoft Office\Microsoft Excel 2010.lnk") Then
  202. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Microsoft Office")
  203. Set objFolderItem = objFolder.ParseName("Microsoft Excel 2010.lnk")
  204. Set colVerbs = objFolderItem.Verbs
  205. For Each objVerb in colVerbs
  206. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  207. Next
  208. End If
  209.  
  210. 'AutoCAD 2015
  211. If objFSO.FileExists(strAllUsersProgramsPath & "\Autodesk\AutoCAD 2015 - English\AutoCAD 2015 - English.lnk") Then
  212. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Autodesk\AutoCAD 2015 - English")
  213. Set objFolderItem = objFolder.ParseName("AutoCAD 2015 - English.lnk")
  214. Set colVerbs = objFolderItem.Verbs
  215. For Each objVerb in colVerbs
  216. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  217. Next
  218. End If
  219.  
  220. 'AutoCAD Architecture 2015
  221. If objFSO.FileExists(strAllUsersProgramsPath & "\Autodesk\AutoCAD Architecture 2015 - English\AutoCAD Architecture 2015 - English.lnk") Then
  222. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Autodesk\AutoCAD Architecture 2015 - English")
  223. Set objFolderItem = objFolder.ParseName("AutoCAD Architecture 2015 - English.lnk")
  224. Set colVerbs = objFolderItem.Verbs
  225. For Each objVerb in colVerbs
  226. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  227. Next
  228. End If
  229.  
  230. 'AutoCAD 3dsMax 2015
  231. If objFSO.FileExists(strAllUsersProgramsPath & "\Autodesk\Autodesk 3ds Max Design 2015\3ds Max Design 2015.lnk") Then
  232. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Autodesk\Autodesk 3ds Max Design 2015")
  233. Set objFolderItem = objFolder.ParseName("3ds Max Design 2015.lnk")
  234. Set colVerbs = objFolderItem.Verbs
  235. For Each objVerb in colVerbs
  236. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  237. Next
  238. End If
  239.  
  240. 'AutoCAD 2013
  241. If objFSO.FileExists(strAllUsersProgramsPath & "\Autodesk\AutoCAD 2013 - English\AutoCAD 2013 - English.lnk") Then
  242. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Autodesk\AutoCAD 2013 - English")
  243. Set objFolderItem = objFolder.ParseName("AutoCAD 2013 - English.lnk")
  244. Set colVerbs = objFolderItem.Verbs
  245. For Each objVerb in colVerbs
  246. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  247. Next
  248. End If
  249.  
  250. 'AutoCAD Architecture 2013
  251. If objFSO.FileExists(strAllUsersProgramsPath & "\Autodesk\AutoCAD Architecture 2013 - English\AutoCAD Architecture 2013 - English.lnk") Then
  252. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Autodesk\AutoCAD Architecture 2013 - English")
  253. Set objFolderItem = objFolder.ParseName("AutoCAD Architecture 2013 - English.lnk")
  254. Set colVerbs = objFolderItem.Verbs
  255. For Each objVerb in colVerbs
  256. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  257. Next
  258. End If
  259.  
  260. 'Autodesk 3ds Max Design 2013
  261. If objFSO.FileExists(strAllUsersProgramsPath & "\Autodesk\Autodesk 3ds Max Design 2013 64-bit\Autodesk 3ds Max Design 2013 64-bit.lnk") Then
  262. If objFSO.FileExists(strAllUsersProgramsPath & "\Autodesk\Autodesk 3ds Max Design 2013 32-bit\Autodesk 3ds Max Design 2013 32-bit.lnk") Then
  263. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Autodesk\Autodesk 3ds Max Design 2013 32-bit")
  264. Set objFolderItem = objFolder.ParseName("Autodesk 3ds Max Design 2013 32-bit.lnk")
  265. Set colVerbs = objFolderItem.Verbs
  266. For Each objVerb in colVerbs
  267. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  268. Next
  269. End If
  270. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Autodesk\Autodesk 3ds Max Design 2013 64-bit")
  271. Set objFolderItem = objFolder.ParseName("Autodesk 3ds Max Design 2013 64-bit.lnk")
  272. Set colVerbs = objFolderItem.Verbs
  273. For Each objVerb in colVerbs
  274. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  275. Next
  276. Else
  277. If objFSO.FileExists(strAllUsersProgramsPath & "\Autodesk\Autodesk 3ds Max Design 2013 32-bit\Autodesk 3ds Max Design 2013 32-bit.lnk") Then
  278. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Autodesk\Autodesk 3ds Max Design 2013 32-bit")
  279. Set objFolderItem = objFolder.ParseName("Autodesk 3ds Max Design 2013 32-bit.lnk")
  280. Set colVerbs = objFolderItem.Verbs
  281. For Each objVerb in colVerbs
  282. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  283. Next
  284. End If
  285. End If
  286.  
  287. 'Adobe Photoshop CC 2014
  288. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe Photoshop CC 2014.lnk") Then
  289. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  290. Set objFolderItem = objFolder.ParseName("Adobe Photoshop CC 2014.lnk")
  291. Set colVerbs = objFolderItem.Verbs
  292. For Each objVerb in colVerbs
  293. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  294. Next
  295. End If
  296.  
  297. 'Adobe Photoshop CC 2015
  298. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe Photoshop CC 2015.lnk") Then
  299. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  300. Set objFolderItem = objFolder.ParseName("Adobe Photoshop CC 2015.lnk")
  301. Set colVerbs = objFolderItem.Verbs
  302. For Each objVerb in colVerbs
  303. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  304. Next
  305. End If
  306.  
  307. 'Adobe Illustrator CC 2014
  308. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe Illustrator CC 2014.lnk") Then
  309. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  310. Set objFolderItem = objFolder.ParseName("Adobe Illustrator CC 2014.lnk")
  311. Set colVerbs = objFolderItem.Verbs
  312. For Each objVerb in colVerbs
  313. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  314. Next
  315. End If
  316.  
  317. 'Adobe Illustrator CC 2015
  318. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe Illustrator CC 2015.lnk") Then
  319. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  320. Set objFolderItem = objFolder.ParseName("Adobe Illustrator CC 2015.lnk")
  321. Set colVerbs = objFolderItem.Verbs
  322. For Each objVerb in colVerbs
  323. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  324. Next
  325. End If
  326.  
  327. 'Adobe InDesign CC 2014
  328. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe InDesign CC 2014.lnk") Then
  329. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  330. Set objFolderItem = objFolder.ParseName("Adobe InDesign CC 2014.lnk")
  331. Set colVerbs = objFolderItem.Verbs
  332. For Each objVerb in colVerbs
  333. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  334. Next
  335. End If
  336.  
  337. 'Adobe InDesign CC 2015
  338. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe InDesign CC 2015.lnk") Then
  339. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  340. Set objFolderItem = objFolder.ParseName("Adobe InDesign CC 2015.lnk")
  341. Set colVerbs = objFolderItem.Verbs
  342. For Each objVerb in colVerbs
  343. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  344. Next
  345. End If
  346.  
  347. 'Adobe Photoshop CC
  348. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe Photoshop CC (64 Bit).lnk") Then
  349. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  350. Set objFolderItem = objFolder.ParseName("Adobe Photoshop CC.lnk")
  351. Set colVerbs = objFolderItem.Verbs
  352. For Each objVerb in colVerbs
  353. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  354. Next
  355. Set objFolderItem = objFolder.ParseName("Adobe Photoshop CC (64 Bit).lnk")
  356. Set colVerbs = objFolderItem.Verbs
  357. For Each objVerb in colVerbs
  358. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  359. Next
  360. Else
  361. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe Photoshop CC.lnk") Then
  362. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  363. Set objFolderItem = objFolder.ParseName("Adobe Photoshop CC.lnk")
  364. Set colVerbs = objFolderItem.Verbs
  365. For Each objVerb in colVerbs
  366. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  367. Next
  368. End If
  369. End If
  370.  
  371. 'Adobe Illustrator CC
  372. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe Illustrator CC (64 Bit).lnk") Then
  373. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  374. Set objFolderItem = objFolder.ParseName("Adobe Illustrator CC.lnk")
  375. Set colVerbs = objFolderItem.Verbs
  376. For Each objVerb in colVerbs
  377. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  378. Next
  379. Set objFolderItem = objFolder.ParseName("Adobe Illustrator CC (64 Bit).lnk")
  380. Set colVerbs = objFolderItem.Verbs
  381. For Each objVerb in colVerbs
  382. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  383. Next
  384. Else
  385. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe Illustrator CC.lnk") Then
  386. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  387. Set objFolderItem = objFolder.ParseName("Adobe Illustrator CC.lnk")
  388. Set colVerbs = objFolderItem.Verbs
  389. For Each objVerb in colVerbs
  390. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  391. Next
  392. End If
  393. End If
  394.  
  395. 'Adobe InDesign CC
  396. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe InDesign CC (64 Bit).lnk") Then
  397. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  398. Set objFolderItem = objFolder.ParseName("Adobe InDesign CC.lnk")
  399. Set colVerbs = objFolderItem.Verbs
  400. For Each objVerb in colVerbs
  401. If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
  402. Next
  403. Set objFolderItem = objFolder.ParseName("Adobe InDesign CC (64 Bit).lnk")
  404. Set colVerbs = objFolderItem.Verbs
  405. For Each objVerb in colVerbs
  406. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  407. Next
  408. Else
  409. If objFSO.FileExists(strAllUsersProgramsPath & "\Adobe\Adobe InDesign CC.lnk") Then
  410. Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Adobe")
  411. Set objFolderItem = objFolder.ParseName("Adobe InDesign CC.lnk")
  412. Set colVerbs = objFolderItem.Verbs
  413. For Each objVerb in colVerbs
  414. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  415. Next
  416. End If
  417. End If
  418.  
  419. 'Windows Explorer
  420. If objFSO.FileExists(strCurrentUserStartFolderPath & "\Programs\Accessories\Windows Explorer.lnk") Then
  421. Set objFolder = objShell.Namespace(strCurrentUserStartFolderPath & "\Programs\Accessories")
  422. Set objFolderItem = objFolder.ParseName("Windows Explorer.lnk")
  423. Set colVerbs = objFolderItem.Verbs
  424. For Each objVerb in colVerbs
  425. If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
  426. Next
  427. End If
  428. Set oTxtFile = oFSO.CreateTextFile(appData +"\Task.txt")
  429. End If
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!