Eysinem | Bonjour,
J'ai un souci avec le script ci-dessous, il fonctionne sur Seven mais pas sur XP.
Lorsque je le lance sous XP il m'affiche ce message :
Merci d'avance :-)
Voici le script :
Code :
- ' =========================================
- 'LogsUsers
- ' =========================================
- REM Sub LogsUsers
- 'Déclaration des variables
- Dim objFileSystem, objOutputFile, IPConfigSet, strOutputFile,wshNetwork, Nom_User, Computer, IPConfig
- Const OPEN_FILE_FOR_APPENDING = 8
- ' Emplacement du fichier de Logs
- strOutputFile = "\\srv-fic\Public\Support Informatique\LogsUsers.txt"
- REM strOutputFile = "C:\ecr.txt"
- 'Création des variables
- Set objFileSystem = CreateObject("Scripting.fileSystemObject" )
- Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, _
- OPEN_FILE_FOR_APPENDING)
- Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
- ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
- Set wshNetwork = CreateObject("Wscript.Network" )
- Nom_User = wshNetwork.UserName
- 'Collecte des informations et écriture dans le fichier
- For each IPConfig in IPConfigSet
- objOutputFile.WriteLine(Nom_User) 'Login
- objOutputFile.WriteLine(IPConfig.IPAddress(0)) 'Adresse IP
- objOutputFile.WriteLine(IPConfig.DNSHostName) 'Nom du PC
- objOutputFile.WriteLine(Date) 'Date
- objOutputFile.WriteLine(Time) 'Heure
- objOutputFile.WriteLine("---------------------" ) 'Séparation
- objOutputFile.Close
- Next
- Set objFileSystem = Nothing
- WScript.Quit(0)
- REM End Sub
- ' =========================================
- 'LogsUsers
- ' =========================================
|
|
