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