question sur VBS

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

Reply

Marsh Posté le 04-09-2002 à 15:18:02   

Reply

Marsh Posté le 04-09-2002 à 15:55:07    

UP

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed