UDF Enable Disable card and UAC Autoit

#RequireAdmin
#include<Array.au3>
;~ _Reg_UAC(0)
;~ _ArrayDisplay(__GetAllCard())
;~ __Card(Default,False)

Func __GetAllCard()
    Local $return[0]
   Const $ssfCONTROLS = 49
    $ShellApp = ObjCreate("Shell.Application")
    $oNetConnections = $shellApp.Namespace($ssfCONTROLS)
    For $FolderItem In $oNetConnections.Items
            Local $temp[UBound($return)]
            For $k=0 To UBound($return)-1
                $temp[$k]=$return[$k]
            Next
            Local $return[UBound($temp)+1]
            For $k=0 To UBound($return)-2
                $return[$k]=$temp[$k]
            Next
            $return[UBound($return)-1]=$FolderItem.Name
   Next
    Return $return
EndFunc

Func __Card($oLanConnection="Wi-Fi", $bEnable=True)
    Local $strEnableVerb  = "En&able"
    Local $strDisableVerb = "Disa&ble"
    if @OSType<>"WIN32_NT" then
        Msgbox(0,"","This script requires Windows 2000 or higher.")
        exit
    endif
    if @OSVersion="WIN_2000" then
        $strFolderName = "Network and Dial-up Connections"
    else
        $strFolderName = "Network Connections"; Windows XP
    endif
    ;Virtual folder containing icons for the Control Panel applications. (value = 3 Or 49)
    Const $ssfCONTROLS = 49
    $ShellApp = ObjCreate("Shell.Application")
    $oNetConnections = $shellApp.Namespace($ssfCONTROLS)
    For $FolderItem In $oNetConnections.Items
        If StringLower($FolderItem.Name) = StringLower($oLanConnection) Then
            $oLanConnection = $FolderItem
            ConsoleWrite($FolderItem.Name&@CRLF)
            Exitloop
        EndIf
    Next
    If not IsObj($oLanConnection) Then
        MsgBox(0,"Error","Couldn't find " & $oLanConnection & " Item."
        Exit
    EndIf
    $oEnableVerb=""
    $oDisableVerb=""
    For $Verb In $oLanConnection.Verbs
        ConsoleWrite($Verb.Name&@CRLF)
    If $Verb.Name = $strEnableVerb Then
        $oEnableVerb = $Verb
    EndIf
    If $Verb.Name = $strDisableVerb Then
        $oDisableVerb = $Verb
    EndIf
    Next
    If $bEnable then
        If IsObj($oEnableVerb) Then $oEnableVerb.DoIt    ; Enable network card
    Endif
    If not $bEnable then
    If IsObj($oDisableVerb) Then $oDisableVerb.DoIt; Disable network card
    EndIf
    Sleep(1000)
EndFunc

Func _Reg_UAC($iState = 5);0: disable 5:enable
   Local $sRegKey, $sRegValue
   $sRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
   $sRegValue = "ConsentPromptBehaviorAdmin"
   If @OSVersion <> ("WIN_VISTA" Or "WIN_7") Then
      Return SetError(1, 0, -1)
   EndIf
   RegWrite($sRegKey, $sRegValue, "REG_DWORD", $iState)
EndFunc   ;==>_Reg_UAC