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 "<?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)
Related posts:
