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 que dois faire mon scipt dite le moi . Deja inputbox ne marche pas, aucune fenetre me demande le matricule    
 
 
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:<utilisateur /pwd:<mot de passe> c:\archiv.vbs"  
  WSHShell.Run(CommandeDOS)
 
Else
  CommandeDOS = "xcopy /E c:\Archivages \\nasau002\archivages\" & Cstr(Matricule)  
  WSHShell.Run(CommandeDOS)
 
End If
 
Wscript.quit(0)

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 le script archiv.vbs avec les droits du compte opearchiv (il s'agit de la ligne "c:\xrunas /user:<utilisateur /pwd:<mot de passe> 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.