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.

SpeedupDSCLaunch


' 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 "<?xml version=""1.0"" encoding=""UTF-8""?>"
  objXMLFile.WriteLine "<configuration>"
  objXMLFile.WriteLine vbTab & "<runtime>"
  objXMLFile.WriteLine vbTab & vbTab & "<generatePublisherEvidence enabled=""false"" />"
  objXMLFile.WriteLine vbTab & "</runtime>"
  objXMLFile.WriteLine "</configuration>"

  objXMLFile.Close
  Set objXMLFile = Nothing
End If

set WshShell = Nothing
Set objFSO = Nothing

wscript.quit(0)
Jeremy Saunders

Jeremy Saunders

Independent Consultant | Contractor | Microsoft & Citrix Specialist | Desktop Virtualization Specialist at J House Consulting
Jeremy is a highly respected, IT Professional, with over 30 years’ experience in the industry. He is an independent IT consultant providing expertise to enterprise, corporate, higher education and government clients. His skill set, high ethical standards, integrity, morals and attention to detail, coupled with his friendly nature and exceptional design and problem solving skills, makes him one of the most highly respected and sought after Microsoft and Citrix technical resources in Australia. His alignment with industry and vendor best practices puts him amongst the leaders of his field.
Jeremy Saunders
Jeremy Saunders
Jeremy Saunders

Previous post:

Next post: