Sub RemoveDriverCategory(connection,driver,categoryName)

	Dim results
	Dim driverCategoryID
	Dim category
	Dim categories 
	Dim i

	If IsNull(driver.CategoryInstance_UniqueIDs) _
		 or UBound (driver.CategoryInstance_UniqueIDs) = -1 Then
		' There are no categories, so quit.
		Wscript.Echo "No categories found"
		Exit Sub
	End If  
 
	 Set results = _
	connection.ExecQuery("SELECT * From SMS_CategoryInstance WHERE LocalizedCategoryInstanceName = '" _
	+ categoryName+ "'")
	
	' If the category was found, delete, if it is there, from the driver.
	For Each category In results
   
		' Destination for copied categories.
		categories = Array(driver.CategoryInstance_UniqueIDs)
		i=0 
			 
		For Each driverCategoryID in driver.CategoryInstance_UniqueIDs
			If driverCategoryID = category.CategoryInstance_UniqueID Then
				' Found it, so skip it.
				 Redim Preserve categories (UBound(categories))
			Else
				' Copy the category.
				categories(i) = driverCategoryID
				i=i+1
			End If 
		Next 
	
		' Make sure the array is empty.
		if i = 0  Then
			Redim categories(-1)
		End If
		
		 driver.CategoryInstance_UniqueIDs = categories
		 driver.Put_
	Next
End Sub   

public void RemoveDriverCategory(WqlConnectionManager connection,
	IResultObject driver,
	string categoryName)
{
	try
	{
		// Get the category.
		IResultObject results = 
			connection.QueryProcessor.ExecuteQuery(
			"SELECT * From SMS_CategoryInstance WHERE LocalizedCategoryInstanceName = '" 
			+ categoryName 
			+ "'");

		ArrayList driverCategories = new ArrayList(driver["CategoryInstance_UniqueIDs"].StringArrayValue);

		// Remove the category from the driver.
		foreach (IResultObject category in results)
		{
			driverCategories.Remove(category["CategoryInstance_UniqueID"].StringValue);
	}

		// Update the driver.
		driver["CategoryInstance_UniqueIDs"].StringArrayValue = (string[])driverCategories.ToArray(typeof(string));
		driver.Put();
}
	catch(SmsException e)
	{
		Console.WriteLine("Failed to remove category :" + e.Message);
		throw;
}
}