AutoIt Français

Code : Tout sélectionner

Local $oAccount 
; wbemFlagReturnImmediately et wbemFlagForwardOnly servent simplement à accélérer la reqûete WMI dans ce cas
; http://msdn.microsoft.com/en-us/library/aa392301%28v=vs.85%29.aspx
Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20

; Appel de WMI
Local $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
; Si l'appel a échoué, on quitte
If $objWMIService = 0 Then Exit

; Requête WMI on demande la liste de tous les comptes locaux (LocalAccount = True)
; dont le SID se termine par "-500" : on doit forcément tomber sur administrateur/administrator
$sQueryAccount = "select * from Win32_UserAccount Where LocalAccount = True AND SID like '%-500'"

; On exécute la reqûete
Local $colAccount = $objWMIService.ExecQuery($sQueryAccount, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
; Si le résustat n'est pas un objet, erreur => on quitte
If NOT IsObj($colAccount) Then Exit

; On parcous les objets 1 à 1
For $oAccount In $colAccount
    ; Si le compte est désactivé
    If $oAccount.Disabled Then
        $oAccount.Disabled = False ; On change le status en Activé
        $oAccount.Put_ ; On applique
        ExitLoop
    EndIf
Next