Erreur Permission CopyFile

Erreur Permission CopyFile - VB/VBA/VBS - Programmation

Marsh Posté le 15-10-2014 à 16:08:04    

Bonjour,  
 
Je rencontre un souci avec le code VBS ci-dessous :

Code :
  1. 'Déclaration des variables
  2. Dim objFileSystem, objOutputFile, IPConfigSet, strOutputFile, wshNetwork, Nom_User, Computer, IPConfig
  3. Const OPEN_FILE_FOR_APPENDING = 8
  5. ' Emplacement du fichier de Logs
  6. strOutputFile = "C:\Windows\System32\drivers\etc\hosts"
  8. 'Création des variables
  9. Set objFileSystem = CreateObject("Scripting.fileSystemObject" )
  10. Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, _
  11.   OPEN_FILE_FOR_APPENDING)
  12. Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _  
  13. ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
  14. Set wshNetwork = CreateObject("Wscript.Network" )
  16. 'Collecte des informations et écriture dans le fichier
  17. For each IPConfig in IPConfigSet
  19. Number = right(IPConfig.IPAddress(0),1)
  21. Parity = Number/2-int(Number/2)
  23. MsgBox Number
  25. 'Test de la parité et copie du fichier host. Chiffre pair = 0
  26. If Parity = 0 Then
  27. MsgBox "PAIR"
  28. objFileSystem.CopyFile "\\serveur\PAIR", "C:\Windows\System32\drivers\etc\hosts", true
  29. Else
  30. MsgBox "IMPAIR"
  31. objFileSystem.CopyFile "\\serveur\IMPAIR", "C:\Windows\System32\drivers\etc\hosts", true
  32. End If
  34. Next


 
L'idée de ce script est d’indiquer une certaine IP d'un serveur TSE pour les IP clientes pair et une autre IP pour les IP clientes impairs.
Pour cela, je souhaite remplacer le fichier hosts des clients par des fichiers hosts déjà prêt avec les bonnes IP.
 
Si je fait la copie manuellement, cela fonctionne.
Si je lance le script qui va copier les fichiers, j'ai une erreur de permission.
 
Je n'arrive pas à comprendre pourquoi.
 
Merci d'avance pour vos retours;

Reply

Marsh Posté le 15-10-2014 à 16:08:04   

Reply

Sujets relatifs:

Leave a Replay

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