' Set up a connection to the local provider.
Set swbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set swbemServices= swbemLocator.ConnectServer(".", "root\sms")
Set providerLoc = swbemServices.InstancesOf("SMS_ProviderLocation")

For Each Location In providerLoc
	If location.ProviderForLocalSite = True Then
		Set swbemServices = swbemLocator.ConnectServer(Location.Machine, "root\sms\site_" + Location.SiteCode)
		Exit For
	End If
Next

Call EnumerateCollectionMembers(swbemServices)

Sub EnumerateCollectionMembers(connection)

' Set required variables.
' Note:  Values must be manually added to the queries below.

	' The following example shows how to enumerate the members of the All Systems (SMS00001) collection.
	Query1 = "SELECT ResourceID FROM SMS_FullCollectionMembership WHERE CollectionID = 'SMS00001'" 

	' Run query.
	Set ListOfResources1 = connection.ExecQuery(Query1, , wbemFlagForwardOnly Or wbemFlagReturnImmediately)

	' The query returns a collection that needs to be enumerated.
	Wscript.Echo " "
	Wscript.Echo "Query: " & Query1
	For Each Resource1 In ListOfResources1	 
		Wscript.Echo Resource1.ResourceID   
	Next

	' A slower alternative is to use the SMS_CollectionMember_a association class.
	Query2 = "SELECT ResourceID FROM SMS_CollectionMember_a WHERE CollectionID = 'SMS00001'" 

	' Run query.
	Set ListOfResources2 = connection.ExecQuery(Query2, , wbemFlagForwardOnly Or wbemFlagReturnImmediately)

	' The query returns a collection that needs to be enumerated.
	Wscript.Echo " "
	Wscript.Echo "Query: " & Query2
	For Each Resource2 In ListOfResources2	 
		Wscript.Echo Resource2.ResourceID   
	Next

	' A further alternative is to query the members by using the actual collection class name specified in the MemberClassName property of SMS_Collection. 
	Query3 = "SELECT ResourceID FROM SMS_CM_Res_Coll_SMS00001" 

	' Run query.
	Set ListOfResources3 = connection.ExecQuery(Query3, , wbemFlagForwardOnly Or wbemFlagReturnImmediately)

	' The query returns a collection that needs to be enumerated.
	Wscript.Echo " "
	Wscript.Echo "Query: " & Query3
	For Each Resource3 In ListOfResources3	 
		Wscript.Echo Resource3.ResourceID   
	Next

End Sub

public void EnumerateCollectionMembers(WqlConnectionManager connection)
{
	// Set required variables.
	// Note:  Values must be manually added to the queries below.

	try
	{
		// The following example shows how to enumerate the members of the All Systems (SMS00001) collection.
		string Query1 = "SELECT ResourceID FROM SMS_FullCollectionMembership WHERE CollectionID = 'SMS00001'";

		// Run query.
		IResultObject ListOfResources1 = connection.QueryProcessor.ExecuteQuery(Query1);

		// The query returns a collection that needs to be enumerated.
		Console.WriteLine(" ");
		Console.WriteLine("Query: " + Query1);
		foreach (IResultObject Resource1 in ListOfResources1)
		{
			Console.WriteLine(Resource1["ResourceID"].IntegerValue);
	}

		// A slower alternative is to use the SMS_CollectionMember_a association class.
		string Query2 = "SELECT ResourceID FROM SMS_CollectionMember_a WHERE CollectionID = 'SMS00001'";

		// Run query.
		IResultObject ListOfResources2 = connection.QueryProcessor.ExecuteQuery(Query2);

		// The query returns a collection that needs to be enumerated.
		Console.WriteLine(" ");
		Console.WriteLine("Query: " + Query2);
		foreach (IResultObject Resource2 in ListOfResources2)
		{
			Console.WriteLine(Resource2["ResourceID"].IntegerValue);
	}

		// A further alternative is to query the members by using the actual collection class name specified in the MemberClassName property of SMS_Collection.
		string Query3 = "SELECT ResourceID FROM SMS_CM_Res_Coll_SMS00001";

		// Run query.
		IResultObject ListOfResources3 = connection.QueryProcessor.ExecuteQuery(Query3);

		// The query returns a collection that needs to be enumerated.
		Console.WriteLine(" ");
		Console.WriteLine("Query: " + Query3);
		foreach (IResultObject Resource3 in ListOfResources3)
		{
			Console.WriteLine(Resource3["ResourceID"].IntegerValue);
	}
}

	catch (SmsException eX)
	{
		Console.WriteLine("Failed to run queries. Error: " + eX.Message);
		throw;
}
}