Exchange 2013/2016

Script to Create Shortcuts to the Exchange Toolbox tools

Other Versions of Exchange

This article is also available for other versions of Exchange.

Exchange 2007
Exchange 2010
Exchange 2016

Introduction

The Exchange Management Console contains a couple of useful tools for managing Exchange, which are actually separate items. This means that it is quite easy to setup a shortcuts in your Start Menu for those tools, so that you don't have to start them through the Exchange Management Console.

With Windows 2012/2012 R2, you can then pin these shortcuts to the taskbar. The Queue viewer in particular would be useful.

You can either create them manually, or use the script on this page which creates the menu structure shown on the left.

Script Use

1. Copy and paste the entire script below, in to notepad.
2. Save as shortcuts.vbs on the Exchange server.
3. Run the script from an elevated command prompt.

While the script will create shortcuts on any machine, they will only work on a system with the Exchange 2013 management tools installed. 

'Script to Create Exchange 2013 Toolbox Shortcuts 'Simon Butler 2013 'http://exchange.sembee.info/ 'Create Master Folder ParentFolder = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Exchange Server 2013" set objShell = CreateObject("Shell.Application") set objFolder = objShell.NameSpace(ParentFolder) objFolder.NewFolder "Toolbox" set WshShell = WScript.CreateObject("WScript.Shell") 'Configuration Management Tools Group ParentFolder = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Exchange Server 2013\Toolbox" set objShell = CreateObject("Shell.Application") set objFolder = objShell.NameSpace(ParentFolder) objFolder.NewFolder "Configuration Management Tools" set WshShell = WScript.CreateObject("WScript.Shell") 'Details Template Editor set oShortCut = WshShell.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Exchange Server 2013\Toolbox\Configuration Management Tools" & "\Details Template Editor.lnk") oShortCut.TargetPath = "%ProgramFiles%\Microsoft\Exchange Server\V15\Bin\Details Templates Editor.msc" oShortcut.WindowStyle = 3 oShortCut.IconLocation = "%ProgramFiles%\Microsoft\Exchange Server\V15\Bin\Microsoft.Exchange.Management.NativeResources.dll,9" oShortCut.Save 'Remote Connectivity Analyser set oShortCut = WshShell.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Exchange Server 2013\Toolbox\Configuration Management Tools" & "\Remote Connectivity Analyser.lnk") oShortCut.TargetPath = "http://go.microsoft.com/fwlink/?LinkID=154308" oShortcut.WindowStyle = 3 oShortCut.IconLocation = "%ProgramFiles%\Microsoft\Exchange Server\V15\Bin\Microsoft.Exchange.Management.NativeResources.dll,5" oShortCut.Save 'Mail Flow Tools Group ParentFolder = "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Exchange Server 2013\Toolbox" set objShell = CreateObject("Shell.Application") set objFolder = objShell.NameSpace(ParentFolder) objFolder.NewFolder "Mail Flow Tools" set WshShell = WScript.CreateObject("WScript.Shell") 'Queue Viewer set oShortCut = WshShell.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Exchange Server 2013\Toolbox\Mail Flow Tools" & "\Queue Viewer.lnk") oShortCut.TargetPath = "%ProgramFiles%\Microsoft\Exchange Server\V15\Bin\Exchange Queue Viewer.msc" oShortcut.WindowStyle = 3 oShortCut.IconLocation = "%ProgramFiles%\Microsoft\Exchange Server\V15\Bin\Microsoft.Exchange.Management.NativeResources.dll,0" oShortCut.Save