Esempi di script di Visual Basic per un DVD di build dei server

Articolo
08/07/2014

Si applica a: Exchange Server 2007 SP3, Exchange Server 2007 SP2, Exchange Server 2007 SP1

Ultima modifica dell'argomento: 2008-07-24

In questo argomento vengono forniti file script di esempio in Visual Basic che possono essere utilizzati come punto di partenza per la creazione di file script richiesti per la creazione di un DVD build al fine di migliorare il processo di build dei server. Le procedure riportate di seguito possono essere modificate per creare gli script necessari per la propria organizzazione.

Gli script di esempio forniti di seguito devono essere modificati al fine di renderli funzionali nell'ambiente di utilizzo specifico. Questi script consentiranno di automatizzare numerosi passaggi necessari per la distribuzione di un server Exchange nell'ambiente.

Script di Visual Basic di esempio

Importante

Questi esempi di script illustrano il modo in cui è possibile implementare passaggi di automazione e devono essere modificati in base alle esigenze specifiche dell'ambiente in cui verranno utilizzati. Prima di utilizzarli nell'ambiente di produzione, è opportuno provarli in un ambiente di laboratorio.

Informazioni preliminari

Per eseguire le seguenti procedure, è necessario utilizzare un account che sia membro del gruppo Administrators locale.

Per ulteriori informazioni sulle autorizzazioni, sulla delega dei ruoli e sui diritti necessari per l'amministrazione di Exchange 2007, vedere Considerazioni sulle autorizzazioni.

LegacyEAS.vbs

Procedura

Utilizzare Blocco note per creare uno script di Visual Basic per abilitare l'Autenticazione Windows integrata e l'Autenticazione di base nella directory virtuale /Microsoft-Server-Activesync sui server Exchange 2003 (all'interno di un gruppo amministrativo definito)

Aprire Blocco note o un altro editor di testo.

Copiare il seguente codice in un file e salvare il file assegnandovi un nome descrittivo e l'estensione bat. Si consiglia di assegnare al file il nome 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

Procedura

Utilizzare Blocco note per creare uno script di Visual Basic per modificare il Registro di sistema per applicazioni di debug

Aprire Blocco note o un altro editor di testo.

Copiare il seguente codice in un file e salvare il file assegnandovi un nome descrittivo e l'estensione bat. Si consiglia di assegnare al file il nome 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

Ulteriori informazioni

Per ulteriori informazioni sulla documentazione e l'automazione del processo di build dei server Exchange, vedere Guide all'installazione server e all'automazione.

Share via

Esempi di script di Visual Basic per un DVD di build dei server

Script di Visual Basic di esempio

Informazioni preliminari

LegacyEAS.vbs

Procedura

Utilizzare Blocco note per creare uno script di Visual Basic per abilitare l'Autenticazione Windows integrata e l'Autenticazione di base nella directory virtuale /Microsoft-Server-Activesync sui server Exchange 2003 (all'interno di un gruppo amministrativo definito)

Debuginstall.vbs

Procedura

Utilizzare Blocco note per creare uno script di Visual Basic per modificare il Registro di sistema per applicazioni di debug

Ulteriori informazioni

Risorse aggiuntive