' Listing 9: The excludedServer Function

Private Function excludedServer(ByVal strComputer, ByVal arrExServers)
  Dim objItem
  For Each objItem In arrExServers
    If LCase(strComputer) = LCase(objItem) Then
      excludedServer = True
      Exit Function
    End If
  Next
  excludedServer = False
End Function