WMI lent

Salut!
Dans une procédure je recherche l'adresse MAC comme ceci :

{...}
Set WMIobj = GetObject("winmgmts:").ExecQuery("SELECT Index,MACAddress FROM Win32_NetworkAdapter " & _
              "WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")

    For Each MACobj In WMIobj

{...}

Le problème est que c'est super lent ! Connaissez vous un moyen d'optimiser ?

Merci