By David Wiseman (Administrator)Created 14 Jan 2006, Modified 04 May 2006
My Rating:
Vote
Rating:
Not Rated
Views:4331
Downloads:66

Exchange Management Tools installed?

Language:  VBScript

Compatibility

Windows XP Yes Windows 2003 Yes
Windows 2000 Unknown Windows NT Unknown
Vista Unknown Windows 2008 Unknown
Description

Determine if the Exchange Management Tools are installed.

Code

Line Numbers: On  Off      Plain Text
if isExchangeManagmentToolsInstalled then
	wscript.echo "Exchange Management Tools are installed"
else
	wscript.echo "Exchange Management Tools are NOT installed"
end if

function isExchangeManagmentToolsInstalled
	on Error resume next
	set objShell = createobject("Wscript.Shell")
	regpath="HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\F95DE19F-CF69-4b03-81B6-9EC050D20D3B\DisplayName"
	strData = objShell.RegRead(regpath)
	if err = 0 then
		isInstalled=True
	else
		isInstalled=False
	end if
	
end function

 


Got a useful script? Click here to upload!


 

  Post Comment
Order By:  
User Comments
      
Be the first to post a comment!