Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.14.2
Author: Julien Sénié
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIListBox.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GuiListBox.au3>
#include <GuiMenu.au3>
#Include <Array.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SAC Roles Extractor", 450, 307, 192, 124) ; Primary GUI
WinMove("SAC Roles Extractor", "", 10,10,385 , 327)
GUICtrlCreateLabel("User", 10, 5, 50)
$idUser = GUICtrlCreateInput("SAC_ADMIN", 10, 20, 100, 20) ; User
GUICtrlCreateLabel("Password", 170, 5, 50)
$idPWD = GUICtrlCreateInput("", 170, 20, 200, 20,$ES_PASSWORD) ; Password
GUICtrlSetState(-1, $GUI_FOCUS)
$Button1 = GUICtrlCreateButton("Extract All Roles", 10, 150, 90)
$Button2 = GUICtrlCreateButton("Select App.", 170, 150, 85)
$Button3 = GUICtrlCreateButton("Clear", 170, 180, 85)
$Button4 = GUICtrlCreateButton("Extract roles", 265, 150, 100)
$BrwseButton = GUICtrlCreateButton("Browse", 15, 265, 100)
$List1 = GUICtrlCreateList("", 170, 70, 200, 75, $WS_BORDER+$WS_VSCROLL)
$Input1 = GUICtrlCreateInput("", 15, 240, 297, 21)
$Label = GUICtrlCreateLabel("Environments", 10, 50, 90, 15)
$Labe2 = GUICtrlCreateLabel("Applications Selected View", 170, 50, 200, 15)
$Labe3 = GUICtrlCreateLabel("Destination", 15, 215, 70, 17)
;Local $env[4] = ["blcsimu-","blcprod-","vmr-","dtn-"]
Global $Tab2D[20][3]=[["EED-","EED"],["PDM-","SEE PDM"],["PLM-","SEE PLM"],["ADMINTOOLS-","SEE ADMIN"],["AUTHO-MANAG-","SHM AUTHO"],["BUILD-","SHM BUILD"],["CONFIG-MANAGER-","SHM CONFIG"],["CUTTING-","SHM CUTTING"],["ECN-","SHM ECN"],["HARNESS-MANAG-","SHM HARNESS"],["HARNESS-MANAG-ADMIN-","SHM HARNESS MANAGEMENT AD"],["KNOWLEDGEWARE-","SHM KNOWLEDGEWARE"],["LAUNCHER-","SHM LAUN"],["TEST-","SHM TEST"],["TOOLSHOP-","SHM TOOL"],["TRACEABILITY-","SHM TRACE"],["TRACEABILITY-ADMIN-","SHM TRACEABILITY AD"],["WIRESPREP-","SHM WIRES"],["WORKERSSKILLS-","SHM WORK"],["SPM-","SPM"]]
Global $checkboxes[4][2]=[[GUICtrlCreateCheckbox("SAC BLC Simu", 10, 65, 90),"\\eu\Dfseu\IS\Application\SHM\SHM_SIMU\SAC\UDL\Sac.udl"],[GUICtrlCreateCheckbox("SAC BLC Prod ", 10, 85, 90),"\\EU\DFSEU\IS\Application\SHMconfig\SAC\UDL\SAC.udl"],[GUICtrlCreateCheckbox("SAC VMR Prod", 10, 105, 90),"\\EU\DFSEU\Villemur\IS\Application\SHM\SHM_Prod\SHMConfig\SAC\UDL\SAC.udl"],[GUICtrlCreateCheckbox("SAC DNT Prod", 10, 125, 90),"\\EU\DFSEU\Corinth\IS\Application\SHM\SHM_Prod\SHMConfig\SAC\UDL\SACDTN.udl"]]
$d = @MDAY
$m = @MON
$y = @YEAR
;~ GUISetState(@SW_SHOW,$GUI1)
GUISetState(@SW_SHOW,$Form1)
#EndRegion ### END Koda GUI section ###
While 1
$iMsg = GUIGetMsg()
Select
Case $iMsg = $GUI_EVENT_CLOSE
Exit
Case $iMsg = $Button1
$DEST = GUICtrlRead($Input1)
$PWD = GUICtrlRead ( $idPWD )
If $PWD <> "" Then
If $Dest <> "" Then
If BitAND(GUICtrlRead($Checkboxes[0][0]), $GUI_UNCHECKED) = $GUI_UNCHECKED AND BitAND(GUICtrlRead($Checkboxes[1][0]), $GUI_UNCHECKED) = $GUI_UNCHECKED AND BitAND(GUICtrlRead($Checkboxes[2][0]), $GUI_UNCHECKED) = $GUI_UNCHECKED AND BitAND(GUICtrlRead($Checkboxes[3][0]), $GUI_UNCHECKED) = $GUI_UNCHECKED Then
MsgBox (48, "Error", "Select environments")
Else
Call("SAC")
For $i=0 To ubound($checkboxes, 1)-1
$check = BitAND(GUICtrlRead($checkboxes[$i][0]), $GUI_CHECKED) = $GUI_CHECKED
If $check Then
connexion($checkboxes[$i][1])
For $i=0 To ubound($Tab2D, 1)-1
$fic = $Tab2D[$i][0]
$mod = $Tab2D[$i][1]
extract($fic, $mod)
Next
EndIf
Next
WinClose("SEE Access Control Administration Tool")
WinWaitClose("SEE Access Control Administration Tool")
Msgbox(0, "Extract done", "Extract done to " & GUICtrlRead($Input1))
EndIf
Else
MsgBox(0x0, "Click", "Destination not set")
EndIf
Else
MsgBox(0x0, "Click", "Passwd not set")
EndIf
EndSelect
WEnd
Func SAC()
Run("C:\Program Files (x86)\IGE+XAO\SEE Access Control V4R5\See_soft\Exe\See_User_Access_AdminTool.exe")
EndFunc
Func Connexion($udl)
If Winwait("SEE Access Control Administration Tool") Then
ControlClick("SEE Access Control Administration Tool", "","ToolbarWindow321", "primary", 1, 70, 13)
Winwait("Open", "Tree View")
ControlSetText("Open", "", "Edit1", $udl)
ControlClick("Open", "", "Button1")
Winwait("Connection")
Send(GUICtrlRead($iduser))
ControlFocus("Connection", "", "Edit2")
Send(GUICtrlRead($idPWD))
ControlClick("Connection", "", "Button1")
EndIf
EndFunc
Func Extract($fichier_output, $module)
If WinWait("SEE Access Control Administration Tool") Then
ControlClick("SEE Access Control Administration Tool", "", "ToolbarWindow321", "primary", 1, 399, 12)
WinWait("Select Roles Definitions XML File to Export")
ControlSetText("Select Roles Definitions XML File to Export", "", 1001, $fichier_output & $d & $m & $y & ".xml")
Sleep(2000)
Send("{TAB 5}{SPACE}")
Send(GUICtrlRead($Input1))
Send("{ENTER}")
Sleep(2000)
ControlClick("Select Roles Definitions XML File to Export", "", "Button1")
WinWait("Export Roles")
ControlFocus("Export Roles", "", "ComboBox1")
ControlSend("Export Roles", "", "ComboBox1", $module)
ControlClick("Export Roles", "", "Button1")
EndIf
EndFunc
