Discussion :

[Claude51]

Bonjour,

J'aimerais afficher le masque de sous-réseau, la passerelle et les dsn d'un PC local.

Ce model fonctionne pas totalement.

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
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
Set wshNetwork = CreateObject("Wscript.Network")
If Err.Number<>0 Then 
     wscript.echo " - non accessible -" 
Else 
for each IPConfig in IPConfigSet 
     MsgBox " Configuration de l'ordinateur " & computer & vbcrlf & vbcrlf & _
          " Utilisateur : " & vbcrlf & _
          "     Nom du PC " & vbtab & vbtab & " : " & IPConfig.DNSHostName & vbcrlf & _
          "     Utilisateur " & vbtab & vbtab & " : " & wshNetwork.Username & vbcrlf & _
          "     Domaine " & vbtab & vbtab & " : " & wshNetwork.UserDomain & vbcrlf & vbcrlf & _
          " Carte réseau : " & vbcrlf & _
          "     Nom de la Carte " & vbtab & vbtab & " : " & IPConfig.Description & vbcrlf & _ 
          "     Adresse MAC " & vbtab & vbtab & " : " & IPConfig.MACAddress & vbcrlf & vbcrlf & _ 
          " Réseau : " & vbcrlf & _
          "     Adresse IP " & vbtab & vbtab & " : " & IPConfig.IPAddress(0) & vbcrlf & _
          "     Masque de sous-réseau " & vbtab & " : " & vbcrlf & _
          "     Passerelle par défaut " & vbtab & " : " & vbcrlf & _
          "     DNS préférée " & vbtab & vbtab & " : " & vbcrlf & _
          "     DNS secondaire " & vbtab & vbtab & " : " & vbcrlf & _
          "     Wins primaire " & vbtab & vbtab & " : " & IPConfig.WINSPrimaryServer & vbcrlf & _
          "     Wins secondaire " & vbtab & " : " & IPConfig.WINSSecondaryServer _
          ,,"PC - Info  " 
     Next 
End If

MERCI pour l'aide

[NicoGirard]

Bonjour,
je remarque que pour les infos : Masque de sous-réseau, Passerelle par défaut DNS préférée et DNS secondaire tu ne demande aucune information, tu ne fait qu'un saut de ligne "vbcrlf".
Voila le bou de code avec les infos :

Code :

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

1
2
3
4
5
"     Masque de sous-réseau " & vbtab & " : " & IPconfig.IPSubnet(0) & vbcrlf & _
          "     Passerelle par défaut " & vbtab & " : " & Ipconfig.DefaultIPGateway
 & vbcrlf & _
          "     DNS préférée " & vbtab & vbtab & " : " & DNSServerSearchOrder(0)& vbcrlf & _
          "     DNS secondaire " & vbtab & vbtab & " : "&DNSServerSearchOrder(1) & vbcrlf & _

Sinon tu peu telecharger un petit outil "scriptomatic" qui te permet de connaitre toutes les infos sur un objet wmi.

En esperant que ca t'aide...