wackou

ENI TORRENT DEPLOY (V2)

Jun 20th, 2014
2,162
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include <ButtonConstants.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <GUIListBox.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. #include <GuiListView.au3>
  7. #include <MsgBoxConstants.au3>
  8. #include <ListviewConstants.au3>
  9. ;~ recupere les salles et torrent dispo
  10. Run("powershell.exe .\SCRIPTS\start.ps1")
  11. ;~ installation du logo
  12. FileInstall("logo.jpg", @ScriptDir & "\logo.jpg")
  13. ;~ on attend que l'extraction soit finis
  14. Sleep (5000)
  15. ;~ definition de la GUI
  16. $Form = GUICreate("ENI TORRENT DEPLOY", 409, 359, 223, 143)
  17. $LOGO = GUICtrlCreatePic(".\logo.jpg", 16, 8, 100, 100)
  18. ;~ BOUTTONS
  19. $LANCER = GUICtrlCreateButton("LANCER", 272, 216, 115, 65)
  20. $QUITTER = GUICtrlCreateButton("QUITTER", 152, 80, 75, 25)
  21. $PROPOS = GUICtrlCreateButton("A PROPOS", 152, 24, 75, 25)
  22. $TEXTE = GUICtrlCreateLabel("Sélectionner une salle puis un cours", 232, 56, 174, 17)
  23. GUICtrlSetBkColor(-1, 0xFF0000)
  24. ;~ LISTES
  25. $salles = GUICtrlCreateList("", 12, 164, 100, 188)
  26. $cours = GUICtrlCreateList("", 156, 164, 100, 188)
  27. ;~ LECTURE FICHIERS
  28. $sData = "|" & StringReplace(FileRead(@ScriptDir & ".\TEMP\salles.txt"), @CRLF, "|")
  29. $tData = "|" & StringReplace(FileRead(@ScriptDir & ".\TEMP\torrent.txt"), @CRLF, "|")
  30. ;~ TEXTES
  31. $Label_salles = GUICtrlCreateLabel("Salles disponibles", 16, 144, 87, 17)
  32. $Label_cours = GUICtrlCreateLabel("Cours disponibles", 160, 144, 86, 17)
  33.  
  34. ;~ REMPLIS LES LISTES
  35. GUICtrlSetData($salles, $sData)
  36. GUICtrlSetData($cours, $tData)
  37. GUISetState(@SW_SHOW)
  38.  
  39.  
  40. While 1
  41.     $nMsg = GUIGetMsg()
  42.     Switch $nMsg
  43.         Case $GUI_EVENT_CLOSE, $QUITTER
  44.             Exit
  45.         Case $LANCER
  46.             $Ssalles = GUICtrlRead($salles)
  47.             $Scours = GUICtrlRead($cours)
  48.             run("powershell.exe "".\SCRIPTS\computers.ps1"" '"  & $Ssalles & "'") ;~on recupere les PC de la salle
  49.             Sleep (2000)
  50.             run("powershell.exe "".\SCRIPTS\deploiement.ps1"" '"  & $Scours & "'") ;~on commence le deploiement
  51.          Case $PROPOS
  52.             MsgBox (0,"A propos","Créé par WACKOU (www.wackou.com)")
  53.     EndSwitch
  54. WEnd
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×