AutoIt Français

Code : Tout sélectionner

; Script permettant de formater les supports amovibles USB
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIListBox.au3>
#include <GuiConstantsEx.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>

$Debug_LB = False ; Check ClassName being passed to ListBox functions, set to True and use a handle to another control to see it work

$variable = InputBox("Question", "Veuillez saisir la lettre correspondant au support USB à formater", "", "")
If $variable = "a" or $variable = "b" or $variable = "c" or $variable = "d" or $variable = "" Then
         MsgBox(64, "VERIFICATION", "Vous ne pouvez pas effectuer cette opération")
         exit
EndIf
        _Main()

        Func _Main()
         Local $hListBox

         ; Create GUI
         GUICreate("Contenu du volume " & $variable & " (Appuyez sur Echap pour poursuivre)", 400, 296,-1,-1,$WS_EX_TRANSPARENT)
         $hListBox = GUICtrlCreateList("", 2, 2, 396, 296)
         GUISetState()

         ; Add files
         _GUICtrlListBox_BeginUpdate($hListBox)
         _GUICtrlListBox_ResetContent($hListBox)
         _GUICtrlListBox_InitStorage($hListBox, 100, 4096)
         _GUICtrlListBox_Dir($hListBox, $variable & ":" & "\*.*", $DDL_DIRECTORY)
         _GUICtrlListBox_Dir($hListBox, "", $DDL_DIRECTORY)
         _GUICtrlListBox_EndUpdate($hListBox)

         ; Loop until user exits
         Do
         Until GUIGetMsg() = $GUI_EVENT_CLOSE
         GUIDelete()
        EndFunc   ;==>_Main



         $variable = " " & $variable & ":" 
         $parametres = "format.com "& $variable & " /v:dsi /FS:NTFS /X /Q < d:\rep.txt"
         $msgbox = MsgBox(1, "VERIFICATION", "Attention, formatage du volume "& $variable & " Etes-vous sur ?")
         if $msgbox="2" Then
         Exit
         Else
         RunAsWait("xxxx", @LogonDomain , "xxxx", 0, "label.exe"& $variable & "dsi",@SystemDir,@SW_HIDE)
         MsgBox(8192, "INFORMATION VOLUME TRAITE"& "-" & $variable & "-", "Pour information, le disque sera formaté en NTFS.")
         $file = FileOpen("d:\lance.cmd", 2)
         FileWrite($file, $parametres)
         FileClose($file)
         $file1 = FileOpen("d:\rep.txt", 2)
         FileWrite($file1, "dsi" & @CRLF)
         FileWrite($file1, "o" & @CRLF)
         FileClose($file1)
         RunAswait("xxx", @LogonDomain , "xxxx", 0, "d:\lance.cmd",@SystemDir,@SW_HIDE)
         MsgBox(64, "OPERATION TERMINEE", "Le formatage du volume"& $variable & " est terminé.")
         FileDelete("d:\lance.cmd")
         FileDelete("d:\rep.txt")
         EndIf