Permission non accordée : erreur avec VBS

Permission non accordée : erreur avec VBS - VB/VBA/VBS - Programmation

Marsh Posté le 12-05-2009 à 12:56:27    

Hello,
 
Je lance un script VBS avec le compte utilisateur sur un domaine.
 
J'ai cette erreur :
 
http://img16.imageshack.us/img16/8373/erreurbs.png
 
Et le script est le suivant :  
 

Code :
  1. Set FSO = CreateObject("Scripting.FileSystemObject" )
  2. Set objNetwork = CreateObject("Wscript.Network" )
  3. strUsername = objNetwork.username
  5. set objWMI = GetObject("winmgmts:root\cimv2" )
  6. sQuery = "Select * from Win32_process Where Name = 'nlnotes.exe'"
  8. For Each oproc In objWMI.execquery(sQuery)
  9. oproc.Terminate()
  10. Next
  12. rep = "\\172.16.17.1\save\" & strUserName
  14. if FSO.FolderExists(rep)Then
  15. set fold = FSO.GetFolder(rep)
  16. if fold.Attributes <> 18 then
  17.  fold.Attributes = 18
  18. end if
  19. else
  20. set fold = FSO.CreateFolder(rep)
  21. set fold = FSO.GetFolder(rep)
  22. fold.Attributes = 18
  23. end if
  25. for i=1 to 8
  27. select case (i)
  28.  case 1 : source = "c:\lotus\notes\data\"
  29.    destination = rep & "\notes_data\"
  31.  case 3 : source = "C:\Documents and Settings\" & strUserName & "\Bureau\"
  32.    destination = rep & "\Bureau\"
  34.  case 4 : source = "C:\Documents and Settings\" & strUserName & "\Favoris\"
  35.    destination = rep & "\Favoris\"
  37.  case 4 : source = "C:\Documents and Settings\" & strUserName & "\Mes documents\"
  38.    destination = rep & "\Mes documents\"
  41. end select
  43. runcopy source, destination
  44. next
  46. function runcopy(src, dest)
  48. if not  FSO.FolderExists(dest) then
  49.  set flddest = FSO.CreateFolder(dest)
  50. end if
  52. For each Fichier in FSO.GetFolder(src).Files
  53.   set File = FSO.GetFile(Fichier)
  54.   Obj = File.Name
  55.   if not FSO.FileExists(dest & Obj) then
  56.    FSO.CopyFile src & Obj, dest, true
  57.   else
  58.    DestItem = dest & Obj
  59.    set DestObj = FSo.GetFile(DestItem)
  61.    if CDate(File.DateLastModified) > CDate(DestObj.DateLastModified) then
  62.     FSO.CopyFile src & Obj, dest, true
  63.    end if
  64.   end if
  65. Next
  67. If FSO.FolderExists(src) Then
  68.   For each Fld in  FSO.GetFolder(src).SubFolders
  69.   newdest = dest & Fld.Name & "\"
  70.   newsrc = src & Fld.Name & "\"
  71.   runcopy newsrc, newdest
  72.   Next
  73. End If
  75. end function


 
En gros je veux lancer un script qui me copie le repertoire lotus notes, favoris, mes documents et le bureau de l'utilisateur lancant le script. Les données sont copier sur un serveur distant.
 
Merci d'avance,
 
Kevin

Reply

Marsh Posté le 12-05-2009 à 12:56:27   

Reply

Marsh Posté le 12-05-2009 à 13:55:41    

La ligne 56 est

  FSO.CopyFile src & Obj, dest, true


Le message dit que ce n'est pas autorisé. J'aurais tendance à penser que c'est vrai.
 
Maintenant, il y a deux hypothèses. Soit le problème vient de la copie à distance, soit vient d'autorisations d'accès liées à ce répertoire. Pour le savoir, il faudrait faire des tests complémentaires, par exemple en copiant sur un répertoire local, ou bien en copiant des choses dans ce répertoire de destination mais à partir d'un autre répertoire de la même machine.
 
Bon courage !

Reply

Marsh Posté le 12-05-2009 à 14:09:17    

Hello,
 
Merci pour ta réponse ... qui m'a permis de trouver le soucis :D ! J'ai oublié de mettre les droits sur un des repertoires :o !  
 
Sinon  deuxieme petite question est-ce possible de mettre une barre de progression ou une fenetre qui s'affiche quand la copie est finie ?
 
Merci,
 
Kevin

Reply

Sujets relatifs:

Leave a Replay

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