Afficher les serveurs Dns avec du vbs - Programmation

**persia** · 21/08/2007, 21h07

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:

[cpp]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

**ced600** · 22/08/2007, 13h32

Regarde ici

**persia** · 23/08/2007, 16h58

Envoyé par ced600

Regarde ici

J'ai essayé tout les paramètres qui ont un lien avec la Dns, mais ca ne m'affiche pas les adresses Dns comme ceux qu'on voit en excutant la commande "IpConfig/all" , alors que les infos sur Wins s'affichent bien.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
  Wscript.Echo "DNSDomain: " & objItem.DNSDomain
    Wscript.Echo "DNSDomainSuffixSearchOrder: " _
        & strDNSDomainSuffixSearchOrder
    Wscript.Echo "DNSEnabledForWINSResolution: " _
        & objItem.DNSEnabledForWINSResolution
    Wscript.Echo "DNSHostName: " & objItem.DNSHostName
    Wscript.Echo "DNSServerSearchOrder: " _
        & strDNSServerSearchOrder
    Wscript.Echo "DomainDNSRegistrationEnabled: " _
        & objItem.DomainDNSRegistrationEnabled

**jbaudin** · 23/08/2007, 17h08

Chez moi ceci fonctionne très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_NetworkAdapterConfiguration instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "DNSDomain: " & objItem.DNSDomain
Next

**persia** · 24/08/2007, 03h32

Envoyé par jbaudin

Chez moi ceci fonctionne très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_NetworkAdapterConfiguration instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "DNSDomain: " & objItem.DNSDomain
Next

Heu, tai sûr qu'il t'affiche la Dns primaire et la Dns secondaire avec
ce bout de code ???

**RadPAT** · 23/08/2007, 17h34

Si tu tiens à passer par la commande IPCONFIG /ALL, tu peux faire comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Set objShell = CreateObject("Wscript.Shell")
 
Set objWshScriptExec = objshell.Exec("Cmd /c IpConfig /all")
Set objStdOut = objWshScriptExec.StdOut
 
Do Until objStdOut.AtEndOfStream
   strLine = objStdOut.ReadLine
   If Instr(strLine, "Serveur WINS p") > 0 and Tag0 = 0 Then 
      Affiche = Affiche & strLine & vbclrf
      Tag0 = 1
   End IF
   If Instr(strLine, "Serveur WINS s") > 0 and Tag1 = 0 Then 
      Affiche = Affiche & strLine & vbclrf
      Tag1 = 1
   End IF
 
Loop
msgbox Affiche

c'est pas super élégant mais ca marche.

A+

**ced600** · 23/08/2007, 17h39

Normalement les adresse DNS sont contenus dans ce tableau de string : DNSDomainSuffixSearchOrder.

Chez moi il est null (c'est bizzare d'ailleurs) .
J'utilise ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" _
    & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration") 
For Each objItem in colItems 
Wscript.Echo objItem.DNSDomainSuffixSearchOrder
Next

Normalement cela devrait marcher, mais bon ...
Sinon la solution de passer par ipconfig /all est une solution acceptable, alors si toi aussi ton tableau est vide je te conseille de passer par la solution de RadPAT.

**RadPAT** · 23/08/2007, 17h59

Bon, puisqu'on developpe vite fait à l'arrache, je peux proposer ca aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
On Error Resume Next
 
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
 
For Each objItem in colItems
    strComputer = objItem.Name
Next
 
arrComputers = Array(strcomputer)
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
 
For Each objItem In colItems
    If tag = 0 and objItem.WINSPrimaryServer <> "" Then
       WScript.Echo "WINSPrimaryServer: " & objItem.WINSPrimaryServer
       WScript.Echo "WINSSecondaryServer: " & objItem.WINSSecondaryServer
       WScript.Echo
       Tag = 1
    End If
Next

doit bien y avoir encore d'autre méthodes....

**persia** · 27/08/2007, 20h42

Envoyé par RadPAT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
On Error Resume Next
 
 
For Each objItem In colItems
    If tag = 0 and objItem.WINSPrimaryServer <> "" Then
       WScript.Echo "WINSPrimaryServer: " & objItem.WINSPrimaryServer
       WScript.Echo "WINSSecondaryServer: " & objItem.WINSSecondaryServer
       WScript.Echo
       Tag = 1
    End If
Next

Lol, pour le wins j'ai pas de problème, mais c'est plutôt avec la Dns

**ced600** · 28/08/2007, 09h27

récupérer ces informations sur une machine distante et non sur ma machine local

Regarde ici.

**RadPAT** · 28/08/2007, 10h09

Ben DNS, WINS c'est la même chose ca se termine par les mêmes lettres, non ?

Donc premiere méthode avec le Ipconfig /all ca peut donner ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Set objShell = CreateObject("Wscript.Shell")
 
Set objWshScriptExec = objshell.Exec("Cmd /c IpConfig /all")
Set objStdOut = objWshScriptExec.StdOut
 
Do Until objStdOut.AtEndOfStream
   strLine = objStdOut.ReadLine
   If Instr(strLine, "Serveurs DNS") > 0 Then 
      Affiche = Affiche & strLine
      strLine = objStdOut.ReadLine
      If Instr(strLine, ":") = 0 Then
         Affiche = Affiche & strLine & vbclrf
      End If
      Exit Do
   End IF
Loop
msgbox Affiche

Sinon adapté du scriptomatic il y a ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
On Error Resume Next
 
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
 
arrComputers = Array("<*******NOM DU PC********>")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="
 
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
 
   For Each objItem In colItems
         strDNSServerSearchOrder = Join(objItem.DNSServerSearchOrder, ", ")
         WScript.Echo "DNSServerSearchOrder: " & strDNSServerSearchOrder
         WScript.Echo
   Next
Next

et tu vas me dire : "Oui mais c'est pas l'ordre de recherche des serveurs DNS dont j'ai besoin", ce à quoi je réponds : "ben si il y a un ordre de serveurs DNS c'est qu'il y a bien des serveurs DNS".
Bon j'y retourne.

A+

**persia** · 27/08/2007, 20h39

Envoyé par RadPAT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Set objShell = CreateObject("Wscript.Shell")
 
Set objWshScriptExec = objshell.Exec("Cmd /c IpConfig /all")
Set objStdOut = objWshScriptExec.StdOut
 
Do Until objStdOut.AtEndOfStream
   strLine = objStdOut.ReadLine
   If Instr(strLine, "Serveur WINS p") > 0 and Tag0 = 0 Then 
      Affiche = Affiche & strLine & vbclrf
      Tag0 = 1
   End IF
   If Instr(strLine, "Serveur WINS s") > 0 and Tag1 = 0 Then 
      Affiche = Affiche & strLine & vbclrf
      Tag1 = 1
   End IF
 
Loop
msgbox Affiche

Ton code fonctionne parfaitement, mais moi j'aimerais plus récupérer ces informations sur une machine distante et non sur ma machine local

Merci

Afficher les serveurs Dns avec du vbs - Programmation

VBScript

Vue hybride

Discussions similaires

Partager

Partager