Wscript net use et windows 2000

Bonjour,

je souhaite réalisé des sauvegardes automatiques mais je rencontre un problème.

je dispose d'un serveur de sauvegarde (windows 2000server) et je souhaite lancer des sauvegardes automatique depuis celui-ci.
J'ai fait un script (même deux) qui fonctionnent bien mais pas dans tout les cas.

Lorsque je sauvegarde des fichiers qui sont sur un serveur windows 2003, aucun problème.

Par contre lorsque les fichiers sont sur un windows 2000, la ça ne fonctionne que lorsque je lance le script en direct ou depuis le planificateur de tache avec une session ouverte.
Le cas qui m'intéresse depuis le planificateur de tache et pas de session ouverte ne fonctionne pas.

Y aurait-il quelque chose que je fais mal?
Ci dessous le script dans un fichier wsf :

Sub backup
	Dim sLogFolder, sLogFileName
	Dim sToday

	Dim sServerName, sDriveLetter, sPassword, sDriveOnHost, sBackupFolder
	Dim oNetwork, oFS, oFolder, oFile, curFile
	Dim i

	Dim oShell

	sLogFolder = "chemin_du_repertoire_de_log\"
	sToday = "20080423"

	'initialise les valeurs
	set oFS = CreateObject("Scripting.FileSystemObject")
	Set oShell = CreateObject("WScript.Shell")
	Set oNetwork = WScript.CreateObject("WScript.Network")

	sLogFileName = "log_" & sToday & ".log"
	sServerName = "IP_du_Serveur"
	sDriveLetter = "L:"	'lettre de lecteur utilisée pour le mappage
	sDriveOnHost = "e$"	'lecteur sur l'ordinateur distant
	sPassword = "passxord"
	sBackupFolder = "E:\repertoire_ou_on_sauvegarde\"

	'supprime éventuellement le lecteur réseau 
	Call unMapDrive
	'map le lecteur réseau
	Call MapDrive

	'Créer le répertoire de sauvegarde s'il n'existe pas (un par jour)
	If Not oFS.FolderExists(sBackupFolder & "backup_" & sToday) Then
		oFS.createFolder sBackupFolder & "backup_" & sToday & "\"
	Else
'		Call send2LogFile ("Le répertoire " & sBackupFolder & "backup_" & sToday & "\ existe déja")
	End If

'	Call send2LogFile ("Sauvegarde de " & sDriveLetter & "\ dans le répertoire " & sBackupFolder & "backup_" & sToday & "\")
	set oFolder = oFS.GetFolder(sDriveLetter & "\")
'	Call send2LogFile (oFolder.name)

	for each x in oFolder.SubFolders
'		Call send2LogFile ("  " & x.name)
		x.Copy sBackupFolder & "backup_" & sToday & "\", False
	next
	
	Call unMapDrive
	Set oFolder = nothing
	set oFS = nothing
	Set oShell = nothing
	Set oNetwork = nothing
End Sub


Sub MapDrive
'	send2LogFile "MAPDRIVE : Mappage du Lecteur " & sDriveLetter & " en cours"
'	send2LogFile "MAPDRIVE : ... "
	If not oFS.DriveExists(sDriveLetter) Then
		oNetwork.MapNetworkDrive sDriveLetter, "\\" & sServerName & "\" & sDriveOnHost, False, "administrateur", sPassword
'		send2LogFile "MAPDRIVE : Lecteur " & sDriveLetter & " mappé avec succès"
	Else
'		send2LogFile "MAPDRIVE : Le lecteur " & sDriveLetter & " existe déja"
	End If
End Sub

Sub UnMapDrive
'	send2LogFile "UNMAPDRIVE : Suppression du Lecteur " & sDriveLetter & " en cours"
'	send2LogFile "UNMAPDRIVE : ... "
	If oFS.DriveExists(sDriveLetter) Then
		oNetwork.RemoveNetworkDrive sDriveLetter
'		send2LogFile "UNMAPDRIVE : Lecteur " & sDriveLetter & " supprimé avec succès"
	Else
'		send2LogFile "UNMAPDRIVE : Le Lecteur " & sDriveLetter & " n'existe pas, impossible de le supprimé"
	End If
End Sub

Merci d'avance pour votre aide.
PS : j'ai aussi fait un script avec le net use dans un .bat qui me pose le même problème...