PROBLEME DANS MON SCRIPT VBS AIDEZ MOI

Salut, voici mon script"archiv.vbs", il ne marche pas je ne trouve pas mon erreur merci de m'aider. Si vous voulez des explication sur ce quee dois faire mon scipt dite le moi :) Dim At Dim Matricule Dim CommandeDOS Dim WSHShell Set WSHShell=WScript.CreateObject("WScript.Shell") At = %username% CommandeDOS = "Net use z: \\" & " nasrv008 " & "\Recup_Data" WSHShell.Run(CommandeDOS) If At <> opearchiv Then Matricule = InputBox("Entrer le matricule de l'utilisateur ") 'lance le prog xrunas avec la parametres user, pwd et prog CommandeDOS = "c:\xrunas /user: c:\archiv.vbs" WSHShell.Run(CommandeDOS) Else CommandeDOS = "xcopy /E c:\Archivages \\nasau002\archivages\Matricule" WSHShell.Run(CommandeDOS) End If Wscript.quit(0)

Tu ne dois pas mettre tes variables dans les " ".
Par exemple, au lieu de
CommandeDOS = "xcopy /E c:\Archivages \\nasau002\archivages\Matricule"
essaye plutôt
CommandeDOS = "xcopy /E c:\Archivages \\nasau002\archivages\" & Cstr(Matricule)

Merci je vais essayer ton truc je te redirai si ça marche :)

Non je dois avoir une autre erreur vant, car deja inputbox ne marche pas, aucune fenetre me demande le matricule :(

Alors essayons d'expliquer a quoi sert ce script. Et ben tout d'abord l'utilisateur lance ce script et ses données qui sont dans c:\archivges sont copié vers le serveur. Contraintes: l'utilisateur n'a pas le droit d'écrire sur ce serveur, il faut donc que le script lance un autre prog qui permettra de relancer ce prog avec les droits du compte opearchiv (il s'agit de la ligne "c:\xrunas /user: c:\archiv.vbs") Le script archiv.vbs se relance donc avec les droits qu'il faut t fait la copie. Les condition "if" permettent de vérifier avec quel compte le prog est lancé. Je suis obligé de lancer le prog de cette maniere car je veu garder le 1er compte (celui de l'utilisateur) dans une variable pour m'en servir dans la copie, car dès que je suis passé en opearchiv, je ne peux plus récupérer le nom du compte de l'utilisateur( avec la commande %username%) J'espere que j'ai été clair lol.

J'ai corrigé une partie en rouge à supprimer

Dim At
Dim Matricule
Dim CommandeDOS

'Note : pour lancer une commande dos il faut ecrire WSHShell.Run("cmd /c lignedecommande")

Dim WSHShell
Set WSHShell=WScript.CreateObject("WScript.Shell")
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")


At = %username% 
'interdit en vbs il faudrait faire :
 WshShell.run("cmd /c echo %username% >fichier.txt")
' et ensuite il faut lire le fichier texte pour récupérer valeur je n'est corrigé cette partie désolé à toi de trouver

CommandeDOS = "Net use z: \\" & " nasrv008 " & "\Recup_Data"
CommandeDOS = "cmd /c Net use z: \\nasrv008\Recup_Data"
WSHShell.Run(CommandeDOS)

If At <> opearchiv Then
If At <> "opearchiv" Then
  Matricule = InputBox("Entrer le matricule de l'utilisateur ")

  'lance le prog xrunas avec la parametres user, pwd et prog
  ' ? c'est quoi user, pwd et prog et à quoi sert matricule?
  CommandeDOS = "c:\xrunas /user:<utilisateur /pwd:<mot de passe> c:\archiv.vbs"
  WSHShell.Run(CommandeDOS)

Else
  CommandeDOS = "xcopy /E c:\Archivages \\nasau002\archivages\Matricule"
  CommandeDOS = "cmd /c xcopy /E c:\Archivages \\nasau002\archivages\Matricule"
  WSHShell.Run(CommandeDOS)
End If

merci de ton aide mais je m'étais compliké la vie g résolu le probleme en faite j'ouvre une msgbox pour lui demander son matricule merci pour ton aide :)