| fuful |
Bon voila un début de script, fait de truc vu a droite et a gauche, que j'ai regroupé.
Je l'ai pas testé avec des PC en 95/98 (on n'en a plus au taff), ni des postes sous *nix, car on n'en a pas plus ! Par contre, j'ai testé avec notre AS400, il m'a royallement envoyé chier.
Donc ca marche avec NT4, mais pas avec tout les postes, c'est bizarre, et sous 2000/XP sans probleme.
Bon le code est un peu pourri, entre les non déclarations de variable et la non restitution de la mémoire a la fin, mais, comme dans ma bonté immense je le met en open source, des courageux vont le corriger/améliorer :D
Plus sérieusement, ca devrait commencer a faire ton boulot, la tout de suite, j'ai pas vraiment le temps de te faire beaucoup mieux, mais bon si je peux aider sur un probleme précis que tu aurais, pourquoi pas :D Comme ca j'aurais un allié à mon prochain TT ;)
A+
Le code :
Code :
- computer = "10.10.10.255"
- config = "Configuration réseau de l'ordinateur " & computer & VbCrLf
- on error resume next
- set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
- ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
- If Err.Number<>0 Then
- wscript.echo " - non accessible -"
- Else
- for each IPConfig in IPConfigSet
- adrIP=IPConfig.IPAddress
- min=LBound(adrIP)
- max=UBound(adrIP)
- nadrIP=max-min+1
- adrMAC=IPConfig.MACAddress
- config = config & IPConfig.Description & VbCrLf
- config = config & "adresse MAC : " & adrMAC & VbCrLf
- If nadrIP=1 Then
- config = config & "adresse IP : " & adrIP(min) & VbCrLf
- Else
- config = config & FormatStr(nadrIP,3) & "adresses IP : " & adrIP(min) & VbCrLf
- For i = min+1 To max
- curadr=adrIP(i)
- If len(curadr)>0 Then config = config & " : " & curadr & VbCrLf
- Next
- end if
- config = config & "DHCP : " & IPConfig.DHCPEnabled & VbCrLf
- next
- End If
- wscript.echo config
|
|
