Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1321 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Erreur Permission CopyFile

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Erreur Permission CopyFile

n°2240376
Eysinem
Posté le 15-10-2014 à 16:08:04  profilanswer
 

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
  4. ' Emplacement du fichier de Logs
  5. strOutputFile = "C:\Windows\System32\drivers\etc\hosts"
  6. 'Création des variables
  7. Set objFileSystem = CreateObject("Scripting.fileSystemObject" )
  8. Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, _
  9.   OPEN_FILE_FOR_APPENDING)
  10. Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _  
  11. ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE" )
  12. Set wshNetwork = CreateObject("Wscript.Network" )
  13. 'Collecte des informations et écriture dans le fichier
  14. For each IPConfig in IPConfigSet
  15. Number = right(IPConfig.IPAddress(0),1)
  16. Parity = Number/2-int(Number/2)
  17. MsgBox Number
  18. 'Test de la parité et copie du fichier host. Chiffre pair = 0
  19. If Parity = 0 Then
  20. MsgBox "PAIR"
  21. objFileSystem.CopyFile "\\serveur\PAIR", "C:\Windows\System32\drivers\etc\hosts", true
  22. Else
  23. MsgBox "IMPAIR"
  24. objFileSystem.CopyFile "\\serveur\IMPAIR", "C:\Windows\System32\drivers\etc\hosts", true
  25. End If
  26. 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;

mood
Publicité
Posté le 15-10-2014 à 16:08:04  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Erreur Permission CopyFile

 

Sujets relatifs
Erreur " unexpected '=', expecting ')' "Problème Bash: permission denied
Requete: "CREATE TABLE truc LIKE Machin" Erreur de syntaxe !! ?C# et connexion mySQL erreur 1042
Erreur d'éxcution "13" incompatibilité de type[RESOLU ] [VBA] ERREUR 91 - FINDNEXT
Help SVP "erreur d'exécution 13 incompatibilité de type, vba"[PDO] erreur avec fetchColumn
Noobshell : c'est quoi mon erreur?Erreur code vhdl
Plus de sujets relatifs à : Erreur Permission CopyFile


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR