General Motors > Informatique

Y a qui qui developpe en vb / vbs ici plz ?

<< < (2/2)

MickeyNox:
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 :o

MickeyNox:
plus haut ma version 5 qui ne fonctionne pas et qui me sort une erreur char 165 de ma ligne 36.

Pour l instant celmui qui fonctionen a peu pret c'est celui là :

[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 = ""
Const UserDistant = ""
Const MdpDistant = ""
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"
   objShell.Exec ("C:\WINDOWS\system32\ntbackup.exe backup systemstate " & objDisk.DeviceID & "\ /M copy /SNAP:on /l:f  /f " & LettreLocale & "\" & NomFichierBackup & " /hc:on")
Next

'lecteurReseau.RemoveNetworkDrive LettreLocale[/cpp]

dartyduck:

--- Citation de: MickeyNox le 13/07/10 09:36 ---Je souhaite que le lecteur n essaie pas de se mapper si uil l est déja
--- Fin de citation ---

j'avais lu "marrer" :sweat:

MickeyNox:
bon j ai presque fini , reste plus que ma ligne 40 à faire executer vraiment à la fin :)

MickeyNox:
bon j ai réussi à faire ce que je voulais, je suis Dieu

KTN91:
Non! Tu n'es pas Chuck Norris!

Navigation

[0] Index des messages

[*] Page précédente