FORUM des condylures musclés
  Informatique
  Autres

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

 

10 utilisateurs inconnus

 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°21880
MickeyNox
I'm a I3omI3 !
Note : 2.7/10 pour 32 votes
profilanswer
Posté le 12-07-2010 à 11:44:53  
 

C'est pour me donner un coup de main svp

mood
Google
#DEDFDF-#F7F7F7
profilanswer
Posté le 12-07-2010 à 11:44:53  
 

n°21891
MickeyNox
I'm a I3omI3 !
Note : 2.7/10 pour 32 votes
profilanswer
Posté le 12-07-2010 à 17:10:22  
 

Bon, c'est bon tampis pour vous :p

n°21898
0rken
Gros dégueulasse©
Note : 3.3/10 pour 35 votes
profilanswer
Posté le 12-07-2010 à 18:53:42  
 

J'ai eu fait vbs. dis toujours

n°21915
dartyduck
Poney lurkeur
Note : 2.6/10 pour 58 votes
profilanswer
Posté le 12-07-2010 à 22:18:37  
 

MickeyNox a écrit :

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


Marion [:cupra]


---------------
http://www.dayday.fr
n°21924
MickeyNox
I'm a I3omI3 !
Note : 2.7/10 pour 32 votes
profilanswer
Posté le 13-07-2010 à 09:36:28  
 

Bon, je suis en train d améliorrer mon script pour la sauvegarde .....
 

Code :
  1. ' Script de sauvegarde des disques durs d'une machine
  2. ' 2010/07/09
  3. '
  4. Option Explicit
  5. 'Variables
  6. Dim Shell, DateJour, strComputer, objWMIService, colDisks, objDisk, ret, Hostname, objShell, NomFichierBackup, lecteurReseau
  7. strComputer = "."
  8. ' Montage du lecteur reseau
  9. Const LettreLocale = "Z:"
  10. Const CheminDistant = "\\Point\de\sauvegarde"
  11. Const UserDistant = "login"
  12. Const MdpDistant = "mdp"
  13. Set lecteurReseau = WScript.CreateObject("WScript.Network" )
  14. lecteurReseau.MapNetworkDrive LettreLocale, CheminDistant,false,UserDistant,MdpDistant
  15. 'Definition date
  16. DateJour = DatePart("yyyy", Date) & "-" & Right("0" & DatePart("m", Date),2) & "-" & Right("0" & DatePart("d", Date),2)
  17. 'Définition hostname
  18. Set objShell = CreateObject("WScript.Shell" )
  19. Set ret = objShell.Exec ("hostname" )
  20. Hostname = trim(LCase(ret.StdOut.ReadAll))
  21. Hostname = Left(Hostname, Len(Hostname) - 2)
  22. 'Definition liste des lecteurs
  23. set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  24. set colDisks = objWMIService.ExecQuery ("Select DeviceID from Win32_LogicalDisk Where DriveType = '3'" )
  25. 'Lancement action pour chaque lecteur (+ definition nom de fichier)
  26. For Each objDisk in colDisks
  27. NomFichierBackup=Hostname & "_" & DateJour & "_" & Left(objDisk.DeviceID,1) & ".bkf"
  28. cmd="C:\WINDOWS\system32\ntbackup.exe backup systemstate " & objDisk.DeviceID & "\ /M copy /SNAP:on /l:f  /f " & LettreLocale & "\" & NomFichierBackup & " /hc:on"
  29. objShell.run (cmd,4,true)
  30. Next
  31. lecteurReseau.RemoveNetworkDrive LettreLocale


 
 
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

Message cité 1 fois
Message édité par MickeyNox le 13-07-2010 à 12:27:09
n°21925
MickeyNox
I'm a I3omI3 !
Note : 2.7/10 pour 32 votes
profilanswer
Posté le 13-07-2010 à 09:42:37  
 

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à :
 

Code :
  1. ' Script de sauvegarde des disques durs d'une machine
  2. ' 2010/07/09
  3. '
  4. Option Explicit
  5. 'Variables
  6. Dim Shell, DateJour, strComputer, objWMIService, colDisks, objDisk, ret, Hostname, objShell, NomFichierBackup, lecteurReseau
  7. strComputer = "."
  8. ' Montage du lecteur reseau
  9. Const LettreLocale = "Z:"
  10. Const CheminDistant = ""
  11. Const UserDistant = ""
  12. Const MdpDistant = ""
  13. Set lecteurReseau = WScript.CreateObject("WScript.Network" )
  14. lecteurReseau.MapNetworkDrive LettreLocale, CheminDistant,false,UserDistant,MdpDistant
  15. 'Definition date
  16. DateJour = DatePart("yyyy", Date) & "-" & Right("0" & DatePart("m", Date),2) & "-" & Right("0" & DatePart("d", Date),2)
  17. 'Définition hostname
  18. Set objShell = CreateObject("WScript.Shell" )
  19. Set ret = objShell.Exec ("hostname" )
  20. Hostname = trim(LCase(ret.StdOut.ReadAll))
  21. Hostname = Left(Hostname, Len(Hostname) - 2)
  22. 'Definition liste des lecteurs
  23. set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  24. set colDisks = objWMIService.ExecQuery ("Select DeviceID from Win32_LogicalDisk Where DriveType = '3'" )
  25. 'Lancement action pour chaque lecteur (+ definition nom de fichier)
  26. For Each objDisk in colDisks
  27. NomFichierBackup=Hostname & "_" & DateJour & "_" & Left(objDisk.DeviceID,1) & ".bkf"
  28. objShell.Exec ("C:\WINDOWS\system32\ntbackup.exe backup systemstate " & objDisk.DeviceID & "\ /M copy /SNAP:on /l:f  /f " & LettreLocale & "\" & NomFichierBackup & " /hc:on" )
  29. Next
  30. 'lecteurReseau.RemoveNetworkDrive LettreLocale

n°21927
dartyduck
Poney lurkeur
Note : 2.6/10 pour 58 votes
profilanswer
Posté le 13-07-2010 à 10:04:16  
 

MickeyNox a écrit :

Je souhaite que le lecteur n essaie pas de se mapper si uil l est déja


j'avais lu "marrer" :sweat:


---------------
http://www.dayday.fr
n°21938
MickeyNox
I'm a I3omI3 !
Note : 2.7/10 pour 32 votes
profilanswer
Posté le 13-07-2010 à 12:26:25  
 

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


Message édité par MickeyNox le 13-07-2010 à 12:27:57
n°22095
MickeyNox
I'm a I3omI3 !
Note : 2.7/10 pour 32 votes
profilanswer
Posté le 15-07-2010 à 15:25:34  
 

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

n°22104
KTN91
Mangeur de Trolls
Note : 0.4/10 pour 79 votes
profilanswer
Posté le 15-07-2010 à 22:59:58  
 

Non! Tu n'es pas Chuck Norris!


---------------
"Tout est provisoire: l'amour, l'art, la planète terre, vous, moi... surtout moi."
                                                                                                           Octave Parango
mood
Google
#DEDFDF-#F7F7F7
profilanswer
Posté le   
 


Aller à :
Ajouter une réponse
  FORUM des condylures musclés
  Informatique
  Autres

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