Se connecter / S'enregistrer
Votre question

Afficher les serveurs Dns avec du vbs

Tags :
  • Serveur
  • Programmation
Dernière réponse : dans Programmation
21 Août 2007 16:16:29

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:

  1. StrComputer= "."
  2. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  3.  
  4.  
  5. if
  6. Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true",,48)
  7.  
  8. For Each objItem in colItems
  9.  
  10. Msgbox "Serveur primaire wins : " & objItem.WINSPrimaryServer
  11.  
  12. Msgbox "Serveur secondary wins: " & objItem.WINSSecondaryServer
  13.  
  14. ' Pas sûr, car ca n'affiche rien lol
  15. Msgbox "Serveur Dns : " objItem.DNSPrimaryServer
  16.  
  17. ' Pas sûr, car ca n'affiche rien non plus lol
  18. "Serveur Dns 2: " & objItem.DNSPrimaryServer
  19.  
  20. Next


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


Merci

Autres pages sur : afficher serveurs dns vbs

a c 232 L Programmation
22 Août 2007 00:00:11

Tu pourrais pas exécuter un ipconfig /all, avec une commande VBScript ?

Comme WScript.Exec() ?
22 Août 2007 15:34:38

OmaR a dit :
Tu pourrais pas exécuter un ipconfig /all, avec une commande VBScript ?

Comme WScript.Exec() ?


Salut Omar,

Si je peux, mais ca fonctionne juste avec la machine local,
mais moi je veux récupérer l'info d'une machine distante
Contenus similaires
a c 232 L Programmation
22 Août 2007 15:57:08

Dans ce cas, je ne peux pas t'aider... désolé
24 Août 2007 03:27:33

OmaR a dit :
Dans ce cas, je ne peux pas t'aider... désolé


merci comme même
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS