Microsoft has ported the Vista MMC UI to Windows 2003. Even after installing it you need to do a registry change. This script will do the registry change for you and also prompt if you want to be directed to the download.
I hope you find this post helpful.
Regards,
Mark
Code:
'==========================================================================
'
' NAME: UseMMCNewUIfor2003.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: [URL unfurl="true"]http://www.TheSpidersParlor.com[/URL]
' COPYWRITE (c) 2006 All Rights Reserved
' DATE : 4/27/2006
'
' COMMENT: For use with Microsoft's new MMC for XP
' To apply this update, you must have Windows Server 2003 Service Pack 1 (SP1) installed on the computer.
' Additionally, you must have version 2.0.50727 of the Microsoft .NET Framework installed on the computer.
' Download the MMC update from-
' [URL unfurl="true"]http://www.microsoft.com/downloads/details.aspx?FamilyId=4C84F80B-908D-4B5D-8AA8-27B962566D9F[/URL]
' After downloading run this script to enable the new interface.
' This script and many more is part of the Spider's Parlor Admin Script Pack
'==========================================================================
Set WSHShell = CreateObject("Wscript.Shell")
Path = "HKLM\SOFTWARE\Microsoft\MMC\UseNewUI\"
WSHShell.Regwrite Path, 1 ,"REG_DWORD"
If Err Then
WScript.Echo "Problem creating registry key"
Else
InfoText = "Registry modification successful." & vbCrLf & "If you have not already done so, download and install the updated MMC from Microsoft. Would you like to navigate to the download now?"
If Msgbox(InfoText, vbYesNo, "Get Download?") = vbYes then
DwnLoc = "[URL unfurl="true"]http://www.microsoft.com/downloads/details.aspx?FamilyId=4C84F80B-908D-4B5D-8AA8-27B962566D9F"[/URL]
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate2 DwnLoc
wscript.sleep 100
IE.Visible=True
End If
End If
I hope you find this post helpful.
Regards,
Mark