Forum des Condylures resuscités

General Motors => Informatique => Discussion démarrée par: MickeyNox le 12/07/10 11:44

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: MickeyNox le 12/07/10 11:44

C'est pour me donner un coup de main svp

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: MickeyNox le 12/07/10 17:10

Bon, c'est bon tampis pour vous :p

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: 0rken le 12/07/10 18:53

J'ai eu fait vbs. dis toujours

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: dartyduck le 12/07/10 22:18

Citation de: MickeyNox le 12/07/10 11:44

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

Marion [:cupra]

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: MickeyNox le 13/07/10 09:36

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

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: MickeyNox le 13/07/10 09:42

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]

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: dartyduck le 13/07/10 10:04

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

j'avais lu "marrer" :sweat:

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: MickeyNox le 13/07/10 12:26

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

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: MickeyNox le 15/07/10 15:25

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

Titre: Y a qui qui developpe en vb / vbs ici plz ?
Posté par: KTN91 le 15/07/10 22:59

Non! Tu n'es pas Chuck Norris!