' Setup 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 DeleteCollection(swbemServices,"ABC00010")


Sub DeleteCollection(connection, collectionIDToDelete)

	' Get the specific collection instance to delete.
	Set collectionToDelete = connection.Get("SMS_Collection.CollectionID='" & collectionIDToDelete & "'")

	' Delete the collection.
	collectionToDelete.Delete_

	' Display change information.
	Wscript.Echo "Deleted collection: " & collectionIDToDelete

End Sub

public void DeleteCollection(WqlConnectionManager connection, string collectionIDToDelete)
{
	//  Note:  On delete, the provider cleans up the SMS_CollectionSettings and SMS_CollectToSubCollect objects.
   
	try
	{
		// Get the specific collection instance to delete.
		IResultObject collectionToDelete = connection.GetInstance(@"SMS_Collection.CollectionID='" + collectionIDToDelete + "'");

		// Delete the collection.
		collectionToDelete.Delete();

		// Output the ID of the deleted collection.
		Console.WriteLine("Deleted collection: " + collectionIDToDelete);
}

	catch (SmsException ex)
	{
		Console.WriteLine("Failed to delete collection. Error: " + ex.Message);
		throw;
}
}