o' This code changes the functional level of the forest.
' ---------------------------------------------------------------
' From the book "Active Directory Cookbook" by Robbie Allen
' Publisher: O'Reilly and Associates
' ISBN: 0-596-00466-4
' Book web site: http://rallenhome.com/books/adcookbook/code.html
' ---------------------------------------------------------------

Set objRootDSE = GetObject("LDAP://RootDSE")
Set objDomain = GetObject("LDAP://cn=partitions,"& _
	                       objRootDSE.Get("configurationNamingContext") )
if ObjDomain.Get("msDS-Behavior-Version") <> 2 then
	Wscript.Echo "Attempting to change forest to " &_
                 "Windows Server 2003 functional level…"
	objDomain.Put "msDS-Behavior-Version", 2
	objDomain.SetInfo
else
	Wscript.Echo "Forest already at Windows Server 2003 functional level"
end if