Wscript net use et windows 2000 [Résolu/Fermé]

Signaler
Messages postés
49
Date d'inscription
mardi 10 janvier 2006
Statut
Membre
Dernière intervention
5 avril 2009
-
grecoriz
Messages postés
49
Date d'inscription
mardi 10 janvier 2006
Statut
Membre
Dernière intervention
5 avril 2009
-
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...



4 réponses

Messages postés
289
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
12 juin 2008
31
E$ est un share administratif. Seul un admin peut l'accéder comme ça.
Bonjour,

Ah ok, pourtant, lors de la création de la tache planifié, je mets bien l'identifiant / mot de passe de l'admin de la machine.
Et dans le script, dans la sub mapdrive, je me connecte avec un identifiant / mot de passe de la machine distante.

Aurais-tu des précisions à apporter pendant que je cherche un moyen de contourner ce problème.

D'avance merci
Messages postés
289
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
12 juin 2008
31
je l'ai toujours accedé comme ça :

ExcelDir = "\\VM-AD\DFS1\SOFTWARES\Launcher\OUTLOOK2003\Data\"

et bien sur il faut avoir les droits. Je ne sait pas où tu pourrais ajouter un mot de passe.

Mais essaies toujours "Run As...".
grecoriz
Messages postés
49
Date d'inscription
mardi 10 janvier 2006
Statut
Membre
Dernière intervention
5 avril 2009
5
Bonjour,

Quelle est ta configuration parce que je n'arrive pas à y accéder comme ça.

Enfin merci quand même, je continue de chercher, toute aide est la bienvenue !
phil_232
Messages postés
289
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
12 juin 2008
31 > grecoriz
Messages postés
49
Date d'inscription
mardi 10 janvier 2006
Statut
Membre
Dernière intervention
5 avril 2009

message d'erreur ?
Messages postés
49
Date d'inscription
mardi 10 janvier 2006
Statut
Membre
Dernière intervention
5 avril 2009
5
Bon et bien, je ne sais pas ce que j'ai pu faire
Je crois que j'ai fais ca :
Mettre la valeur du registre
\HKEY_LOCAL_MACHINE subkey\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters\RestrictNullSessAccess à False

A utiliser avec modération, surtout que je ne suis pas sur du tout que c'est ce qui a résolu mon problème ...