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