VBScript: Find All Exchange Servers in Active Directory
The code but wanted to try to see if I could use my Recordset/ADsDSOObject skrills to shorten the code. The outcome isn't any shorter but it does get the version, so that's cool. Thanks, Sharfa, for pointing me towards the WMI Exchange_Server thing, too. '**************************************************************************** ' This script created by Chrissy LeMaire (clemaire@gmail.com) ' Website: http://netnerds.net/ ' ' This script finds all Exchange Servers in AD. Includes Exchange Version. ' ' Run this script with admin privs on any computer within a domain. ' ' This script has only been tested on Windows Server 2003 ' ' NO WARRANTIES, USE THIS AT YOUR OWN RISK, etc. '***************************************************************************** Set objAdRootDSE = GetObject("LDAP://RootDSE") Set objRS = CreateObject("adodb.recordset") varConfigNC = objAdRootDSE.Get("configurationNamingContext...