Bonjour à tous, je suis nouveau sur le forum, je m'appelle benjy et j'ai besoin de votre aide !

Je vient de commencer à apprendre le vbs et j'ai deja un problème  

Mon script récupère le nom d'utilisateur, puis envoie un e-mail par smtp (orange)
En fait mon problème est que je voudrais que le script aille rechercher un fichier pour la pièce jointe de l'e-mail mais vu que je ne connaitrai pas le nom de l'utilisateur (vista), je voudrais qu'il recupere le nom puis l'inscrive en piece jointe :s car le fichier txt sera dans C:\Users\TonNom\...\test.txt
Je met mon script si vous pourriez m'aider, je vous en remercie beaucoup !

Set WshShellObj = WScript.CreateObject("WScript.Shell" )
Set WshProcessEnv = WshShellObj.Environment("PROCESS" )
WshUsername = WshProcessEnv("USERNAME" )

With CreateObject("CDO.Message" )
.From="Moi@mail.com"
.To="toi@gmail.com"
.Subject="Bonjour"
.TextBody="..."
.Addattachment( & "\...\test.txt" )  'C'est ici que je voudrait inserer WshUsername
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 1
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = "moi@orange.fr"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "password"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp-msa.orange.fr"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 587
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp.orange.fr"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Error"
On Error GoTo 0
End With

J'ai trouvé, il fallait mettre :
 
.Addattachment("C:\Users\" & WshUsername & "\...\test.txt" )
 
Merci à moi lol
Ok je sors