ControlPanelObj()
{   A_SysDir := A_WinDir "\System32\"
    if InStr(FileExist(A_SysDir),"D")
    {   tmpObj := {}
        loop,files,%A_SysDir%*.cpl
        {   thisFile := A_LoopFileFullPath
            SplitPath,thisFile,thisFileName,thisDir,thisExt,thisNoExt,thisDrive
            tmpObj[thisNoExt]   :=  {   "full"  :   thisFile
                                    ,   "path"  :   {   "filename"  :   thisFileName
                                                    ,   "directory" :   thisDir
                                                    ,   "extension" :   thisExt
                                                    ,   "noextension":  thisNoExt
                                                    ,   "drive"     :   thisDrive}
                                    ,   "info"  :   FileInfo(thisFile)}
        }
        return tmpObj
    }
}

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

License provided in the License folder on the source page