グループのスコープおよび種類を変更する

Active Directory

Exchange2010では配布リストはユニバーサルグループである必要がある。
よって、グローバルグループを使用している場合は、ユニバーサルグループに変更する必要がある。
ひとつひとつGUIでやるのが辛いので、プログラムを作って対応した。

On Error Resume Next

Const ADS_GROUP_TYPE_UNIVERSAL_GROUP = &H8 
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &H80000000 

Set colItems = GetObject ("LDAP://sample.local/OU=GroupOU,DC=sample,DC=local")
colItems.Filter = Array("Group")

For Each objItem in colItems
	Set objGroup = objItem
	objGroup.Put "groupType", ADS_GROUP_TYPE_UNIVERSAL_GROUP OR ADS_GROUP_TYPE_SECURITY_ENABLED 
	objGroup.SetInfo
	Wscript.Echo objItem.CN
Next


<グローバル セキュリティ グループをユニバーサル セキュリティ グループに変換する方法はありますか
>
http://gallery.technet.microsoft.com/scriptcenter/475295c7-b50a-4e1f-9f98-b03ec08d813c/