Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

New MMC Available 2

Status
Not open for further replies.

markdmac

MIS
Dec 20, 2003
12,340
US
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.


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
 
Thanks to whoever gave me the star, I'm assuming it was you Pat since you are marked for feedback. I'm surprised there has not been more comment on this topic. Granted the new MMC is not an Earth shattering upgrade, but still I thought it would draw out some discussion.

I hope you find this post helpful.

Regards,

Mark
 
I always try to give stars when I learn something - whether it's my thread or not (others should do the same, IMHO). I'm a HUGE user of MMC, so this will help.

Thanks!

Pat Richard, MCSE(2) MCSA:Messaging, CNA(2)
 
FYI, I posted the XP version in the Windows XP forum too.

I hope you find this post helpful.

Regards,

Mark
 
I would have given you a star if I had been in looking, but been kind of lazy lately.

Mark,
You always deserve stars!!!!
 
Thanks tfg13, I know I can always count on you. :)

I hope you find this post helpful.

Regards,

Mark
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top