' ---------------------------------------------------------------
' Script VBS donnant les adresses MAC et IP actives, nom machine, login, date et heure
' Script original de JC BELLAMY © 2002 Modifié par Laurent Desprez
' ------------------------------------------------------------------------------------
Dim ComputerSystem,IPConfigSet, IPConfig, Network,DomainSet,fso,shell,f
Set fso =WScript.CreateObject("Scripting.FileSystemObject" )
Set network=Wscript.CreateObject("WScript.Network" )
Set Shell =Wscript.CreateObject("WScript.Shell" )
Set f = fso.OpenTextFile("f:\adm\ip.txt", 8, True)
computer=ucase(network.ComputerName)
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration" )
for each IPConfig in IPConfigSet
adrIP=IPConfig.IPAddress
adrMAC=IPConfig.MACAddress
wscript.echo computer &";"& (adrIP(min)) &";"&adrMAC &";" & ucase(network.userName) & ";" & date & " " & time
f.Writeline (computer & ";"& (adrIP(min))&";"&adrMAC &";" & ucase(network.userName) & ";" & date & " " & time)
f.Close
next
Wscript.quit
voilà le script qui me recupere cela, lancer en demarrage sur les postes via le patch de demarrage le seul hic marche pas sur tous les postes NT4 !!!
je ne sais pas pourquoi ??
une idee