Iompatibilité script entre Seven et XP

Iompatibilité script entre Seven et XP - VB/VBA/VBS - Programmation

Marsh Posté le 23-05-2012 à 12:09:31    

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 :
http://img15.hostingpics.net/thumbs/mini_674299Erreur.png
 
Merci d'avance :-)
 
Voici le script :

Code :
  1. ' =========================================
  2. 'LogsUsers
  3. ' =========================================
  4. REM Sub LogsUsers
  6. 'Déclaration des variables
  7. Dim objFileSystem, objOutputFile, IPConfigSet, strOutputFile,wshNetwork, Nom_User, Computer, IPConfig
  8. Const OPEN_FILE_FOR_APPENDING = 8
  10. ' Emplacement du fichier de Logs
  11. strOutputFile = "\\srv-fic\Public\Support Informatique\LogsUsers.txt"
  12. REM strOutputFile = "C:\ecr.txt"
  14. 'Création des variables
  15. Set objFileSystem = CreateObject("Scripting.fileSystemObject" )
  16. Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, _
  17.   OPEN_FILE_FOR_APPENDING)
  18. Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _  
  19. ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
  20. Set wshNetwork = CreateObject("Wscript.Network" )
  21. Nom_User = wshNetwork.UserName
  23. 'Collecte des informations et écriture dans le fichier
  24. For each IPConfig in IPConfigSet
  25. objOutputFile.WriteLine(Nom_User) 'Login
  26. objOutputFile.WriteLine(IPConfig.IPAddress(0)) 'Adresse IP
  27. objOutputFile.WriteLine(IPConfig.DNSHostName) 'Nom du PC
  28. objOutputFile.WriteLine(Date) 'Date
  29. objOutputFile.WriteLine(Time) 'Heure
  30. objOutputFile.WriteLine("---------------------" ) 'Séparation
  31. objOutputFile.Close
  32. Next
  33. Set objFileSystem = Nothing
  34. WScript.Quit(0)
  36. REM End Sub
  37. ' =========================================
  38. 'LogsUsers
  39. ' =========================================

Reply

Marsh Posté le 23-05-2012 à 12:09:31   

Reply

Sujets relatifs:

Leave a Replay

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