Afficher les serveurs Dns avec du vbs

Bonjour à tous,

J'ai voulu récupérer les Adresses Dns (Dns Primaire et secondaire )mais je n'arrive pas à trouver le code pour, alors que le code pour Wins j'ai trouvé.

Voici mon code:

StrComputer= "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
 
if 
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
 
For Each objItem in colItems
 
     Msgbox "Serveur primaire wins : " &   objItem.WINSPrimaryServer
 
   Msgbox "Serveur secondary wins: " & objItem.WINSSecondaryServer 
 
 ' Pas sûr, car ca n'affiche rien lol  
 Msgbox "Serveur Dns : " objItem.DNSPrimaryServer
 
  ' Pas sûr, car ca n'affiche rien non plus lol  
  "Serveur Dns 2: "  & objItem.DNSPrimaryServer
 
Next

Avez-vous une idée comment je pourrai récupérer les Adresses Dns comme ceux qu'on trouve avec IpConfig/all?


Merci