Bon, je suis en train d améliorrer mon script pour la sauvegarde .....
[cpp]' Script de sauvegarde des disques durs d'une machine
' 2010/07/09
'
Option Explicit
'Variables
Dim Shell, DateJour, strComputer, objWMIService, colDisks, objDisk, ret, Hostname, objShell, NomFichierBackup, lecteurReseau
strComputer = "."
' Montage du lecteur reseau
Const LettreLocale = "Z:"
Const CheminDistant = "\\Point\de\sauvegarde"
Const UserDistant = "login"
Const MdpDistant = "mdp"
Set lecteurReseau = WScript.CreateObject("WScript.Network")
lecteurReseau.MapNetworkDrive LettreLocale, CheminDistant,false,UserDistant,MdpDistant
'Definition date
DateJour = DatePart("yyyy", Date) & "-" & Right("0" & DatePart("m", Date),2) & "-" & Right("0" & DatePart("d", Date),2)
'Définition hostname
Set objShell = CreateObject("WScript.Shell")
Set ret = objShell.Exec ("hostname")
Hostname = trim(LCase(ret.StdOut.ReadAll))
Hostname = Left(Hostname, Len(Hostname) - 2)
'Definition liste des lecteurs
set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set colDisks = objWMIService.ExecQuery ("Select DeviceID from Win32_LogicalDisk Where DriveType = '3'")
'Lancement action pour chaque lecteur (+ definition nom de fichier)
For Each objDisk in colDisks
NomFichierBackup=Hostname & "_" & DateJour & "_" & Left(objDisk.DeviceID,1) & ".bkf"
cmd="C:\WINDOWS\system32\ntbackup.exe backup systemstate " & objDisk.DeviceID & "\ /M copy /SNAP:on /l:f /f " & LettreLocale & "\" & NomFichierBackup & " /hc:on"
objShell.run (cmd,4,true)
Next
lecteurReseau.RemoveNetworkDrive LettreLocale[/cpp]
Je souhaite que le lecteur n essaie pas de se mapper si uil l est déja
et je cherche à ne pas rendre la main totu de suite après la ligne 36 pour que sa decco pas tout de suite le lecteur réseau
