Variable VBS <=> CMD

Variable VBS <=> CMD - VB/VBA/VBS - Programmation

Marsh Posté le 03-05-2006 à 10:10:44    

Salut a tous.
Voila mon script VBS:
 

Code :
  1. Dim Utilisateur
  2. Utilisateur="***"
  3. Dim pass
  4. pass="***"
  6. 'on recupere le fichier date
  7.   Set Shell = WScript.CreateObject("WScript.Shell" )
  8.   Shell.Run("recupdate.cmd" )
  9.   set Shell = nothing
  11. 'On lit le fichier date.dat
  12.   Dim fso
  13.   'instanciation
  14.     Set FSO = CreateObject("Scripting.FileSystemObject" )
  15.   'on instance le fichier texte
  16.     Set Ftxt = FSO.OpenTextFile("date.dat" )
  17.   'on parcours chaque ligne du fichier texte
  18.     Dim datesauv
  19.     Do While Not Ftxt.AtEndOfStream
  20.       datesauv = Ftxt.Readline
  21.     Loop
  22.   'on ferme le fichier
  23.     Ftxt.Close
  25. 'on decoupe la date de sauvegarde en 3
  26.     Dim datesauvtab
  27.     datesauvtab = Split(datesauv, "/" )
  29. 'On recupere la date du jour
  30.   Dim Datejour
  31.   Datejour = DateValue(Now)
  33. 'on Coupe la date du jour en 3
  34.   Dim datetab
  35.   datetab = Split(Datejour, "/" )
  37. 'On calcul nbjour (nombre de jours entre la date de sauvagarde et la date du jour)
  38.   Dim nbjour
  39.   nbjour = datetab(0)-datesauvtab(0)
  41. 'On effectu les test sur les dates pour savoir si il faut sauvegarder ou pas.
  42.   If datetab(0)<=datesauvtab(0) Then
  43.     Call Copier
  44.   ElseIf nbjour>=7 then
  45.     Call Copier
  46.   ElseIf nbjour<7 Then
  47.     Rapport "pascopié"
  48.   End If
  51. 'Declaration des Subs
  53. Sub copier
  54.   MsgBox "Votre dossier personnel Outlook va etre sauvegardé." & vbCrLf & "Veuillez ne pas lancer Outlook jusqu'au message de confirmation" & Chr(13) & "Merci. Jeremy", vbOKOnly+vbInformation, "Sauvegarde des mails"
  55.   'Tuer le processus Outlook.exe
  56.     Set shell = CreateObject("WScript.Shell" )
  57.     shell.run ("taskkill /IM Outlook.exe" )
  58.     set shell = nothing
  59.   'On lance la copie du fichier de mail
  60.     Set Shell = WScript.CreateObject("WScript.Shell" )
  61.     Shell.Run("copierfichier.cmd" )
  62.     set Shell = nothing
  64.     Dim fso
  65.     'instanciation
  66.       Set FSO = CreateObject("Scripting.FileSystemObject" )
  67.     'on instance le fichier texte
  68.       Set Ftxt = FSO.OpenTextFile("date.dat" )
  69.     'on parcours chaque ligne du fichier texte
  70.       Dim datesauv
  71.       Do While Not Ftxt.AtEndOfStream
  72.         datesauv = Ftxt.Readline
  73.       Loop
  74.     'on ferme le fichier
  75.       Ftxt.Close
  77. 'on place le fichier sur le serveur FTP
  78.   Set Shell = WScript.CreateObject("WScript.Shell" )
  79.   Shell.Run("copierfichier.cmd" )
  80.   set Shell = nothing
  82. End Sub
  84. Sub Rapport(test)
  85.   Dim FSys
  86.   Dim monfic
  87.   Dim fichier
  88.   Set fichier = "Sauv" & tabdate(2) & tabdate(1) & tabdate(0) & ".log"
  89.   If test = "copié" Then
  90.     'on crée le fichier log du jour
  91.       Set FSys = CreateObject("Scripting.FileSystemObject" )
  92.       Set MonFic = FSys.CreateTextFile(fichier)
  93.       With MonFic 'Pour écrire dans le fichier texte
  94.         .writeLine "Ets Caillaud - Jeremy Leherpeur" 'Mettre write pour ne pas sauter à la ligne
  95.  .writeline "Le " & DateValue(Now)
  96.         .writeLine "Sauvegarde éffectuée correctement"
  97.  .close
  98.       End With
  99. 'on met a jour la date de sauvegarde
  100.   Set MonFic = FSys.CreateTextFile("date.dat" )
  101.       With MonFic 'Pour écrire dans le fichier texte
  102.  .writeline DateValue(Now)
  103.  .close
  104.       End With
  105. 'on envoi le fichier date.dat mis a jour sur le serveur
  106.   Set Shell = WScript.CreateObject("WScript.Shell" )
  107.   Shell.Run("envoyerdate.cmd" )
  108.   set Shell = nothing
  109. 'on supprime le fichier date.dat en local
  110. Dim fso
  111. Set FSO = CreateObject("Scripting.FileSystemObject" )
  112. Set Ftxt = fso.GetFile("c:\" )   'Fichier origine
  113. Ftxt.delete
  114.  
  115.       MsgBox "La copie de votre Dossier Personnel a été effectuée correctement." & vbCrLf & "Vous Pouvez dès a présent utiliser Outlook" & Chr(13) & "Merci. Jeremy", vbOKOnly+vbInformation, "Sauvegarde des mails"
  116.   Else if test = "pascopié" Then
  117.     'on crée le fichier log du jour
  118.       Set FSys = CreateObject("Scripting.FileSystemObject" )
  119.       Set MonFic = FSys.CreateTextFile(fichier)
  120.       With MonFic 'Pour écrire dans le fichier texte
  121.         .writeLine "Ets Caillaud - Jeremy Leherpeur" 'Mettre write pour ne pas sauter à la ligne
  122.  .writeline "Le " & DateValue(Now)
  123.         .writeLine "Pas de sauvegarde"
  124.  .close
  125.       End With
  126. End If
  127. End If
  128. End Sub


 
Je voudrai pouvoir transmettre des variable dans quand j'appel mes fichiers cmd.
Comment faire?
 
PS: Petite infos dans mes CMD ce sont des commandes FTP avec FTP.exe qui apelle un fichier de commande externe.
Comment faire pour que les variables arriaves aussi dans ces fichiers de commandes??


Message édité par Jeremy61 le 03-05-2006 à 10:14:34
Reply

Marsh Posté le 03-05-2006 à 10:10:44   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed