Bonjour voila j'explique mon problème, en fait j'ai eu à réalisé un script durant ma période de stage seulement je n'avais jamais fait de VBS, donc je les fait à l'aide de mon tuteur, seulement voila stage fini, vacances passées je dois faire mon rapport de stage et je ne me souviens plus de ce que veulent dire toutes lignes donc j'aimerais votre aide merci beaucoup !
 
Voici le script  
 
Dim fso, fichierlog
 
Permet d'initialiser la variable FSO
 
Set fso=WScript.CreateObject("Scripting.fileSystemObject" )

?
 
Dim WshNet  
Set WshNet = WScript.CreateObject("WScript.Network" )
If not fso.driveExists ("k:" ) then
WshNet.MapNetworkDrive "k:", "\\10.8.32.150\sauvenas\ged", true, "PREF08-CS-BOS", "************"
end if  
 
Initialise la variable WsHNet puis ouvre le lecteur réseau K: sinon il n'existe pas il le crée
 
Set wshnetwork = WScript.CreateObject("WScript.Network" )
user = wshnetwork.UserName
 
MsgBox user

Iniltialise la variable wshnetwork puis affiche à l'écran le nom d'utilisateur réseau actuellement connecté
 
dim strbackup
strbackup="C:\WINDOWS\system32\ntbackup.exe backup " &"""@C:\Documents and Settings\" & user & "\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\backupthunder.bks""" & " /a /d "&"""Jeu créé le 02/02/2009 à 15:33""" & " /v:no /r:no /rs:no /hc:off /m normal /j "&"""backupthunder"""&" /l:s /f "&"""K:\Backupthunder.bkf"""
 
Lien de la sauvegarde et ?
 
Set ObjShl = WScript.CreateObject("WScript.Shell" )
RunNTBackup = ObjShl.Run(strbackup, 0, true)
Set Objshl=nothing
 
Sinon que l'on ne fait plus rien
 
Voila merci beaucoup de votre aide En plus je dois présenter ce projet à l'oral lundi ... Bonne soirée

Un petit up it's very important for me ! Merci bien