question sur VBS - Programmation
Marsh Posté le 04-09-2002 à 15:18:02
voilà j'ai fait un script en vbs mais le seul défaut, il a besoin de WMI pour tourner sous NT4 WMI n'etant pas deployé sur tous les postes pouvez-vous m'aider à passer le probleme voici le script ' --------------------------------------------------------------- ' 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 merci
Marsh Posté le 04-09-2002 à 15:55:07
UP
Make sure you enter the(*)required information where indicate.HTML code is not allowed
Marsh Posté le 04-09-2002 à 15:18:02
voilà j'ai fait un script en vbs
mais le seul défaut, il a besoin de WMI pour tourner sous NT4
WMI n'etant pas deployé sur tous les postes pouvez-vous m'aider à passer le probleme
voici le script
' ---------------------------------------------------------------
' 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
merci