Ejemplos de scripts de Visual Basic del DVD de compilación del servidor
Se aplica a: Exchange Server 2007 SP3, Exchange Server 2007 SP2, Exchange Server 2007 SP1
Última modificación del tema: 2008-07-24
En este tema se proporcionan scripts de Visual Basic de ejemplo que se pueden utilizar como punto de partida para la creación de los archivos de script necesarios para hacer que un DVD de compilación mejore los procesos de compilación de un servidor. Puede modificar los siguientes procedimientos para crear los archivos por lotes necesarios para la organización.
Los scripts de muestra siguientes se deben modificar para que puedan funcionar en un entorno específico. Estos scripts le ayudarán a automatizar muchos de los pasos necesarios para implementar un servidor de Exchange en su entorno.
Scripts de Visual Basic de ejemplo
Importante
Estos scripts sirven de muestra para ilustrar la implementación de los pasos de automatización. Es necesario modificarlos para adecuarlos a su entorno. Debe probarse todo en un entorno de laboratorio antes de intentar utilizarlos en un entorno de producción.
Antes de empezar
Para realizar los procedimientos siguientes, la cuenta utilizada debe ser miembro del grupo Administradores locales.
Para obtener más información acerca de los permisos, la delegación de funciones y los derechos necesarios para administrar Exchange 2007, consulte Consideraciones sobre permisos.
LegacyEAS.vbs
Procedimiento
Utilice el Bloc de notas para crear un script de Visual Basic para habilitar Autenticación Windows integrada y autenticación básica en el directorio virtual de /Microsoft-Server-Activesync en servidores de Exchange 2003 (dentro de un grupo administrativo definido)
Abra el Bloc de notas u otro editor de texto.
Copie el código siguiente en un archivo y guarde dicho archivo con un nombre descriptivo y la extensión .bat. Es aconsejable denominar el archivo legacyEAS.vbs.
#"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" #"!!!!!!! THIS IS NOT A MICROSOFT SUPPORTED SCRIPT. !!!!!!!!" #"!!!!!!! TEST IN A LAB FOR DESIRED OUTCOME !!!!!!!!" #"!!!!!!! !!!!!!!!!!" #"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" #" " '======================================= 'legacyEAS.vbs ' 'Copyright (c) 2007, Microsoft Corporation. All Rights Reserved. ' 'THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY 'KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE 'IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A 'PARTICULAR PURPOSE. ' ' Description: This script will enable Windows Integrated Authentication and Basic Authentication ' on the /Microsoft-Server-Activesync virtual directory on Exchange 2003 servers ' within in a defined administrative group. ' 'Written by: Ross Smith IV (Microsoft) ' 'Version: 1.3 'Last Updated: 2/26/06 '======================================= '===================================================== 'Define Variables & Constants '===================================================== Option Explicit Dim oArg, cnADQuery, cmEASQuery, cmOrgQuery, rsOrgDN, rsEAS, oRootDSE, strConfigurationNC, objContainer Dim strAGName, strAttValue, strAttribute, strDomainController, strEASDN, strLDAPPath, strLDAPCNC, strOrgDN, strLDAPSDN Dim i, strRemoveVal Const ADS_SCOPE_BASE = 0 Const ADS_SCOPE_ONELEVEL = 1 Const ADS_SCOPE_SUBTREE = 2 Const ADS_PROPERTY_CLEAR = 1 Const ADS_PROPERTY_UPDATE = 2 Const ADS_PROPERTY_APPEND = 3 Const ADS_PROPERTY_DELETE = 4 '===================================================== 'Determine if CSCRIPT must be used '===================================================== if InStr(1,wscript.fullname,"cscript.exe",1) = 0 then wscript.echo "This script should be run using 'cscript.exe <scriptfile>'. Terminating script." wscript.quit end if '===================================================== ' Clear and set string variables '===================================================== strAGName = "" strDomainController = "" strLDAPCNC = "" strLDAPSDN = "" strOrgDN = "" strEASDN = "" strConfigurationNC = "" strAttribute = "msExchAuthenticationFlags" strAttValue = "6" '===================================================== ' Parse command-line arguments '===================================================== Set oArg = wscript.arguments if oArg.Count = 0 then ' we need the arguments DisplayHelpMessage wscript.quit End If For i = 0 to oArg.Count - 1 'Get Domain Contoller value If LCase(Left(oArg.Item(i),3)) = "-d:" then strDomainController = Mid(oArg.Item(i),4) 'wscript.echo strDomainController end if 'Get Administrative Group Name value If LCase(Left(oArg.Item(i),3)) = "-a:" then strAGName = Mid(oArg.Item(i),4) 'wscript.echo strAGName end if Next '===================================================== ' Make sure AG argument has been passed '===================================================== If strAGName = "" then wscript.echo "A valid Administrative Group argument was not passed!" wscript.quit end if '===================================================== ' Determine if Domain Controller argument was passed '===================================================== If strDomainController <> "" then strLDAPPath = "LDAP://" & strDomainController & "/" else strLDAPPath = "LDAP://" end if '===================================================== ' Initialize any objects that need initialization '===================================================== Set cnADQuery = CreateObject("ADODB.Connection") Set cmEASQuery = CreateObject("ADODB.Command") Set cmOrgQuery = CreateObject("ADODB.Command") '===================================================== ' Open the connection '===================================================== cnADQuery.Provider = "ADsDSOObject" ' This is the ADSI OLE-DB provider name cnADQuery.Open "Active Directory Provider" '===================================================== ' Create command objects for this connection '===================================================== Set cmOrgQuery.ActiveConnection = cnADQuery Set cmEASQuery.ActiveConnection = cnADQuery '===================================================== ' Get Configuration Naming Context & Build LDAP Path '===================================================== Set oRootDSE = GetObject(strLDAPPath & "RootDSE") strConfigurationNC = oRootDSE.Get("configurationNamingContext") 'wscript.echo strConfigurationNC strLDAPCNC = strLDAPPath & strConfigurationNC '===================================================== ' Compose Search string & set search order ' for Exchange Organization Search '===================================================== cmOrgQuery.CommandText = "select distinguishedName from '" & strLDAPCNC & "' where objectCategory = 'msExchOrganizationContainer'" cmOrgQuery.Properties("searchscope") = ADS_SCOPE_SUBTREE 'Verification of CommandText 'wscript.echo "cmOrgQuery = " & cmOrgQuery.CommandText '===================================================== ' Execute & Navigate Server Query '===================================================== Set rsOrgDN = cmOrgQuery.Execute if Err.Number <> 0 then wscript.echo "Could not locate the organization container!" wscript.quit end if while not rsOrgDN.EOF 'wscript.echo rsOrgDN.Fields("distinguishedName").value strOrgDN = rsOrgDN.Fields("distinguishedName").value rsOrgDN.MoveNext wend '===================================================== ' Compose Search string & set search order ' for EAS vdir Search '===================================================== If strOrgDN = "" then wscript.echo "Could not locate the organization container!" wscript.quit else strLDAPSDN = strLDAPPath & "cn=" & strAGName & ",cn=Administrative Groups," & strOrgDN end if cmEASQuery.CommandText = "select name, distinguishedName from '" & strLDAPSDN & "' where cn = 'Microsoft-Server-Activesync'" cmEASQuery.Properties("searchscope") = ADS_SCOPE_SUBTREE 'Verification of CommandText 'wscript.echo "cmEASQuery = " & cmEASQuery.CommandText '===================================================== ' Execute & Navigate SG Query '===================================================== Set rsEAS = cmEASQuery.Execute if Err.Number <> 0 then wscript.echo "The failed query was..." wscript.echo cmEASQuery.CommandText wscript.quit end if while not rsEAS.EOF 'wscript.echo rsEAS.Fields("distinguishedName").value 'wscript.echo rsEAS.Fields("name").value strEASDN = rsEAS.Fields("distinguishedName").value Set objContainer = GetObject(strLDAPPath & strEASDN) objContainer.Put strAttribute, strAttValue objContainer.SetInfo wscript.echo "Exchange Server Container DN - " & strEASDN wscript.echo "Attribute Name & Value - " & strAttribute & ": " & strAttValue wscript.echo "Attribute set!!" wscript.echo "" strEASDN = "" rsEAS.MoveNext wend '===================================================== ' Closing & Clearing Connections '===================================================== rsEAS.Close Set rsEAS = Nothing rsOrgDN.close Set rsOrgDN = Nothing cnADQuery.Close Set cnADQuery = Nothing '===================================================== ' Help Listing '===================================================== Sub DisplayHelpMessage() wscript.echo "Description: This script will enable Windows Integrated Authentication and Basic Authentication" wscript.echo " on the /Microsoft-Server-Activesync virtual directory on Exchange 2003 servers" wscript.echo " within in a defined administrative group." wscript.echo "" wscript.echo "Usage: legacyEAS.vbs -a:<AdministrativeGroupName> [-d:<DomainController>]" wscript.echo "" wscript.echo "Required Arguments:" wscript.echo "" wscript.echo "-a:<AdministrativeGroupName>" wscript.echo "Specify legacy Exchange Administrative Group Name" wscript.echo "Ex: NorthAmerica" wscript.echo "" wscript.echo "Optional Arguments:" wscript.echo "" wscript.echo "-d:<DomainController>" wscript.echo "Specify the domain controller to search" wscript.echo "Ex: W2K3-DC-01" wscript.echo "" wscript.echo "-remove" wscript.echo "Removes the specified attribute" wscript.echo "" wscript.echo "Example: legacyEAS.vbs -d:W2K3-DC-01 -a:NorthAmerica" End Sub
Debuginstall.vbs
Procedimiento
Utilice el Bloc de notas para crear un script de Visual Basic para modificar el Registro para la depuración de aplicaciones
Abra el Bloc de notas u otro editor de texto.
Copie el código siguiente en un archivo y guarde dicho archivo con un nombre descriptivo y la extensión .bat. Es aconsejable denominar el archivo debuginstall.vbs.
#"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" #"!!!!!!! THIS IS NOT A MICROSOFT SUPPORTED SCRIPT. !!!!!!!!" #"!!!!!!! TEST IN A LAB FOR DESIRED OUTCOME !!!!!!!!" #"!!!!!!! !!!!!!!!!!" #"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" #" " '======================================= 'debuginstall.vbs ' 'Copyright (c) 2005, Microsoft Corporation. All Rights Reserved. ' 'THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY 'KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE 'IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A 'PARTICULAR PURPOSE. ' 'Description: This script will modify the registry for debugging applications. ' 'Written by: Ross Smith IV (Microsoft) ' 'Version: 1.0 'Last Updated: 2/10/2005 '======================================= '===================================================== 'Define Variables & Constants '===================================================== Option Explicit Dim objRegistry, oArg, i, strEnvKeyPath, strEnvPathName, strEnvPathValue, strServerName, strEnvSymbolName, strEnvSymbolValue Const HKEY_LOCAL_MACHINE = &H80000002 '===================================================== 'Determine if CSCRIPT must be used '===================================================== if InStr(1,wscript.fullname,"cscript.exe",1) = 0 then wscript.echo "This script should be run using 'cscript.exe <scriptfile>'. Terminating script." wscript.quit end if '===================================================== 'Clear variables '===================================================== strEnvPathValue = "" strServerName = "." '===================================================== ' Parse command-line arguments '===================================================== Set oArg = wscript.arguments For i = 0 to oArg.Count - 1 'Help Arguments If LCase(Left(oArg.Item(i),2)) = "/h" then DisplayHelpMessage wscript.quit end if If LCase(Left(oArg.Item(i),2)) = "/?" then DisplayHelpMessage wscript.quit end if If LCase(Left(oArg.Item(i),5)) = "/help" then DisplayHelpMessage wscript.quit end if 'Get Computer Name for Remote Registry Access If LCase(Left(oArg.Item(i),3)) = "-s:" then strServerName = Mid(oArg.Item(i),4) 'wscript.echo strServerName end if Next '===================================================== ' Open Registry '===================================================== Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strServerName & "\root\default:StdRegProv") if Err.Number <> 0 then wscript.echo "ERROR: Unable to connect to remote registry on the local system (" & Err.Number & ", " & Err.Description & "). Registry not updated." wscript.quit end if '===================================================== ' Define Registry Variables & Edit the Registry '===================================================== strEnvKeyPath = "System\CurrentControlSet\Control\Session Manager\Environment" strEnvPathName = "Path" strEnvSymbolName = "_NT_SYMBOL_PATH" strEnvSymbolValue = "%SystemRoot%\Symbols" 'wscript.echo strEnvPath 'Get the Path statement objRegistry.GetExpandedStringValue HKEY_LOCAL_MACHINE, strEnvKeyPath, strEnvPathName, strEnvPathValue 'wscript.echo "Before " & strEnvPathValue 'Set Path strEnvPathValue = StrEnvPathValue & ";C:\Tools\Exchange" & ";C:\Tools\Debugging" 'wscript.echo "After " & strEnvPathValue 'Write new registry values objRegistry.SetExpandedStringValue HKEY_LOCAL_MACHINE, strEnvKeyPath, strEnvPathName, strEnvPathValue objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strEnvKeyPath, strEnvSymbolName, strEnvSymbolValue If Err.Number = 0 Then wscript.echo "Registry Updated!" Else WScript.Echo "Registry was not updated!" & " Error = " & Err.Number End If '===================================================== ' Closing & Clearing Connections '===================================================== Set objRegistry = Nothing '===================================================== ' Help Listing '===================================================== Sub DisplayHelpMessage() wscript.echo "Description: This script will set several registry settings needed" wscript.echo " for debugging applications." wscript.echo "" wscript.echo "Usage: debuginstall.vbs [-s:<ServerName>] [/?] [/h] [/help]" wscript.echo "" wscript.echo "Optional Arguments" wscript.echo "-s:<ServerName>" wscript.echo "Specify the Server to modify" wscript.echo "Ex: E2K-PF-01" wscript.echo "" End Sub
Para obtener más información
Para obtener más información acerca de la documentación y automatización del proceso de compilación de un servidor de Exchange, consulte Guías de instalación y automatización del servidor (en inglés).