«Недопустимое пространство имен» относится не к System.Management, потому что первый параметр
Dim WmiSelect As New ManagementObjectSearcher _("rootCIMV2", "SELECT * FROM
не принят.
Попробуйте использовать другой конструктор без первого параметра :
Dim WmiSelect As New ManagementObjectSearcher _("SELECT * FROM Win32_VideoController")