Enumerating COM+ Partition Sets

Returns a list of Active Directory COM+ partition sets

Set objCOMPartitionSets = GetObject _
  ("LDAP://cn=ComPartitionSets,cn=System,dc=NA,dc=fabrikam,dc=com")
 
For Each objPartitionSet in objCOMPartitionSets
  WScript.Echo objPartitionSet.Name
Next

This is a VB Script, this can be used by saving the file in .vbs file