Connexion
M’enregistrer
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$ocscleusb = @WorkingDir & "\"
Const $INI = @ScriptDir & "\db.ini"
$Name = IniReadSectionNames($INI) ; Lit le nom de toutes les sections
If Not IsArray($Name) Then
MsgBox(4096, "ATTENTION", "Il manque les sections dans le fichier db.ini dans le repertoire: integration \ini")
EndIf
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Integration postes", 267, 131, 192, 124)
Global $Combo = GUICtrlCreateCombo("Votre Site", 24, 24, 225, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_TABSTOP,$WS_VISIBLE,$WS_CHILD))
Global $Ok = GUICtrlCreateButton("Ok", 88, 88, 75, 25)
Global $Annuler = GUICtrlCreateButton("Annuler", 176, 88, 75, 25)
#EndRegion ### END Koda GUI section ###
For $i = 1 To UBound($Name) - 1
GUICtrlSetData($Combo, $Name[$i], "Votre Site")
Next
GUISetState(@SW_SHOW)
While 2
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Annuler
Exit
Case $Ok
$Name1 = (IniRead($INI, GUICtrlRead($Combo), "Lien", ""))
MsgBox(0, '', 'Vous avez choisit : ' & $Name1)
ExitLoop
EndSwitch
WEnd
GUIDelete()
$resultad = "migration poste dans AD"
