General Motors > Informatique

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

(1/2) > >>

MickeyNox:
C'est pour me donner un coup de main svp

MickeyNox:
Bon, c'est bon tampis pour vous :p

0rken:
J'ai eu fait vbs. dis toujours

dartyduck:

--- Citation de: MickeyNox le 12/07/10 11:44 ---Y a qui qui developpe en vb / vbs ici plz ?
--- Fin de citation ---

Marion [:cupra]

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

Navigation

[0] Index des messages

[#] Page suivante