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 |
