Script to Speedup the Delivery Services Console Launch

by Jeremy Saunders on November 29, 2009

This script addresses a known issue where Delivery Services Console (DSC) or Access Management Console (AMC) takes longer than expected to launch. Refer to Citrix KB article CTX120115 for further information.


‘ This script addresses a known issue where Delivery Services Console (DSC) or Access Management Console (AMC)
‘ takes longer than expected to launch. Refer to Citrix KB article CTX120115 for further information.

‘ Revision 1.0
‘ Written by Jeremy@jhouseconsulting.com on 20th May 2009.

Option Explicit

Dim WshShell, strXmlFile, strXMLLocation, objFSO, objXMLFile
Dim strProcessorArchitecture, strSystemRoot

CONST ForWriting = 2

set WshShell = WScript.CreateObject(“WScript.Shell”)

strXmlFile = “mmc.exe.config”
strProcessorArchitecture = WshShell.ExpandEnvironmentStrings(“%PROCESSOR_ARCHITECTURE%”)
strSystemRoot = WshShell.ExpandEnvironmentStrings(“%SYSTEMROOT%”)
If lcase(strProcessorArchitecture) = “x86” Then
strXMLLocation = strSystemRoot & “\system32”
Else
strXMLLocation = strSystemRoot & “\SysWOW64”
End If

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

If objFSO.FolderExists (strXMLLocation) Then
strXmlFile = strXMLLocation & “\” & strXmlFile
Set objXMLFile = objFSO.OpenTextFile(strXmlFile, ForWriting, True, 0)

objXMLFile.WriteLine “
objXMLFile.WriteLine “
objXMLFile.WriteLine vbTab & “
objXMLFile.WriteLine vbTab & vbTab & “
objXMLFile.WriteLine vbTab & “

objXMLFile.WriteLine “

objXMLFile.Close
Set objXMLFile = Nothing
End If

set WshShell = Nothing
Set objFSO = Nothing

wscript.quit(0)

Jeremy Saunders

Jeremy Saunders

Technical Architect | DevOps Evangelist | Software Developer | Microsoft, NVIDIA, Citrix and Desktop Virtualisation (VDI) Specialist/Expert | Rapper | Improvisor | Comedian | Property Investor | Kayaking enthusiast at J House Consulting
Jeremy Saunders is the Problem Terminator. He is a highly respected IT Professional with over 35 years’ experience in the industry. Using his exceptional design and problem solving skills with precise methodologies applied at both technical and business levels he is always focused on achieving the best business outcomes. He worked as an independent consultant until September 2017, when he took up a full time role at BHP, one of the largest and most innovative global mining companies. With a diverse skill set, high ethical standards, and attention to detail, coupled with a friendly nature and great sense of humour, Jeremy aligns to industry and vendor best practices, which puts him amongst the leaders of his field. He is intensely passionate about solving technology problems for his organisation, their customers and the tech community, to improve the user experience, reliability and operational support. Views and IP shared on this site belong to Jeremy.
Jeremy Saunders
Jeremy Saunders

Previous post:

Next post: