В. Как изменить имя групп, допущенных к работе с электронной почтой, отображаемое в списке глобальных адресов (GAL)?

О. Следующий сценарий добавляет префикс к имени списка рассылки (DL). Необходимо изменить переменную strRootDomain.

Option Explicit

Dim objCommand, objConnection, objChild, objUserConnection, strBase,
strFilter, strAttributes
Dim objShell, strRootDomain, strQuery, objRecordset, strName

' ********************* ИЗМЕНИТЕ ЭТИ ЗНАЧЕНИЯ НА КОРЕНЬ ОБЛАСТИ ПОИСКА ПОЛЬЗОВАТЕЛЕЙ ***********************************

strRootDomain="ou=savilltech,dc=savilltech,dc=net"

'

***********************************************************************

******************************************************************

Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
strBase = ""

strFilter = "(&(objectcategory=group)(mail=*))"
strAttributes = "distinguishedName,displayName"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute

' WScript.echo "Running at " & Date()

Do Until objRecordSet.EOF
strName = objRecordSet.Fields("displayName").Value

Set objUserConnection = GetObject("LDAP://" &
objRecordSet.Fields("distinguishedName").Value)
objuserConnection.displayName = "GEN-" & strName
Wscript.Echo "GEN-" & strName
objuserConnection.SetInfo

objRecordSet.MoveNext

Loop

objConnection.Close

The following shows the execution:

cscript updatelist.vbs

Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

GEN-AVENGERS
GEN-JUSTICELEAGUE

Поделитесь материалом с коллегами и друзьями