Enumerar grupos y usuarios de Active Directory

<#
.SYNOPSIS
    Este script enumera grupos y usuarios de Active Directory con una interfaz gráfica.

.DESCRIPTION
    Este script utiliza PowerShell y Windows Forms para crear una interfaz gráfica que permite listar y exportar grupos y usuarios de Active Directory. 
    Incluye filtros por categoría y alcance para grupos, y por estado para usuarios. También permite exportar los resultados a archivos CSV.

.AUTHOR
    Vladimir Campos

.VERSION
    1.0

.EXAMPLE
    Ejecuta el script para abrir la interfaz gráfica y listar grupos y usuarios de Active Directory.

.NOTES
    Requiere el módulo ActiveDirectory de PowerShell.
#>

# Importar el módulo ActiveDirectory
Import-Module ActiveDirectory

# Cargar una imagen en Base64 (opcional)
$LPNG = "iVBORw0KGgoAAAANSUhEUgAAAMgAAAAuCAYAAABtRVYBAAAACXBIWXMAAAsTAAALEwEAmpwYAAAGq2lUWHRYTUw6Y29tLmFkb2JlLnhtcAAAAAAAPD94cGFja2V0IGJlZ2luPSLvu78iIGlkPSJXNU0wTXBDZWhpSHpyZVN6TlRjemtjOWQiPz4gPHg6eG1wbWV0YSB4bWxuczp4PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRvYmUgWE1QIENvcmUgNy4xLWMwMDAgNzkuYTg3MzFiOSwgMjAyMS8wOS8wOS0wMDozNzozOCAgICAgICAgIj4gPHJkZjpSREYgeG1sbnM6cmRmPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4gPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIgeG1sbnM6eG1wTU09Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC9tbS8iIHhtbG5zOnN0UmVmPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvc1R5cGUvUmVzb3VyY2VSZWYjIiB4bWxuczpzdEV2dD0iaHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wL3NUeXBlL1Jlc291cmNlRXZlbnQjIiB4bWxuczp4bXA9Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFwLzEuMC8iIHhtbG5zOmRjPSJodHRwOi8vcHVybC5vcmcvZGMvZWxlbWVudHMvMS4xLyIgeG1sbnM6cGhvdG9zaG9wPSJodHRwOi8vbnMuYWRvYmUuY29tL3Bob3Rvc2hvcC8xLjAvIiB4bXBNTTpPcmlnaW5hbERvY3VtZW50SUQ9InhtcC5kaWQ6ODIxNzExM2UtNmZjNS0zNjQyLWIzMDctOGEzNDM3ZmY2NWRkIiB4bXBNTTpEb2N1bWVudElEPSJhZG9iZTpkb2NpZDpwaG90b3Nob3A6Mzk4YTY5ZDMtYzljYS0zYzRhLWE4YTctZjhmYmM2MmYxOWU0IiB4bXBNTTpJbnN0YW5jZUlEPSJ4bXAuaWlkOjEzNDk3YzZlLWVjNTgtMzM0YS1hZWY2LWFhMWFlODRjNGE0YiIgeG1wOkNyZWF0b3JUb29sPSJBZG9iZSBQaG90b3Nob3AgMjMuMCAoV2luZG93cykiIHhtcDpDcmVhdGVEYXRlPSIyMDI0LTExLTIwVDEzOjU2OjExLTA2OjAwIiB4bXA6TW9kaWZ5RGF0ZT0iMjAyNC0xMS0yMFQxNzo1MTo0My0wNjowMCIgeG1wOk1ldGFkYXRhRGF0ZT0iMjAyNC0xMS0yMFQxNzo1MTo0My0wNjowMCIgZGM6Zm9ybWF0PSJpbWFnZS9wbmciIHBob3Rvc2hvcDpDb2xvck1vZGU9IjMiPiA8eG1wTU06RGVyaXZlZEZyb20gc3RSZWY6aW5zdGFuY2VJRD0ieG1wLmlpZDo4MjE3MTEzZS02ZmM1LTM2NDItYjMwNy04YTM0MzdmZjY1ZGQiIHN0UmVmOmRvY3VtZW50SUQ9InhtcC5kaWQ6ODIxNzExM2UtNmZjNS0zNjQyLWIzMDctOGEzNDM3ZmY2NWRkIi8+IDx4bXBNTTpIaXN0b3J5PiA8cmRmOlNlcT4gPHJkZjpsaSBzdEV2dDphY3Rpb249InNhdmVkIiBzdEV2dDppbnN0YW5jZUlEPSJ4bXAuaWlkOjQ4OTAyZGY4LTNjNzQtNzc0MC05YjM1LTBjYjkyODRjYTgyMCIgc3RFdnQ6d2hlbj0iMjAyNC0xMS0yMFQxNzo0NzoyMi0wNjowMCIgc3RFdnQ6c29mdHdhcmVBZ2VudD0iQWRvYmUgUGhvdG9zaG9wIDIzLjAgKFdpbmRvd3MpIiBzdEV2dDpjaGFuZ2VkPSIvIi8+IDxyZGY6bGkgc3RFdnQ6YWN0aW9uPSJzYXZlZCIgc3RFdnQ6aW5zdGFuY2VJRD0ieG1wLmlpZDoxMzQ5N2M2ZS1lYzU4LTMzNGEtYWVmNi1hYTFhZTg0YzRhNGIiIHN0RXZ0OndoZW49IjIwMjQtMTEtMjBUMTc6NTE6NDMtMDY6MDAiIHN0RXZ0OnNvZnR3YXJlQWdlbnQ9IkFkb2JlIFBob3Rvc2hvcCAyMy4wIChXaW5kb3dzKSIgc3RFdnQ6Y2hhbmdlZD0iLyIvPiA8L3JkZjpTZXE+IDwveG1wTU06SGlzdG9yeT4gPC9yZGY6RGVzY3JpcHRpb24+IDwvcmRmOlJERj4gPC94OnhtcG1ldGE+IDw/eHBhY2tldCBlbmQ9InIiPz55i9rdAAAuNUlEQVR4nO2deXyU1fnovzOTmclkZ0ICWQyGgIDKUlBc2CKLgiDKYhGRKl7sVajQWkWF0ipwFYVfsWBj3RVFUIvI1kLAsAVZNBCWAAkhECALWSaTdTKZ5b1/nPfwToaZgPb+fu3nfng+n/mQmfc923Oe/XnOQacoCtfhOlyHwKD/d0/gOlyH/2S4ziDX4Tq0AdcZ5DpchzbgOoNch+vQBoQE+lGn0wHo1A+AVz4K8Lqvl69Xv/v+FqjNTwXfuXh8/pbjGNS/depcA0UefN/xBHiuV9/x+jy/lrnLsXQ+Y8h5+s4/WDvf5/9KxESvfjxqPwb1d6/Pd53Pc992wXCiU5970fbgWvCr0DbN+IMvDiUNXcucguGrrTXJubbVXhssUBRLZRADoIuLi7NardaOTqdT51UUA4rSasF6vV4xGo1KRUVFXW1tbZX6c6Rerzd4vV5fwv6p4I80ncViiQgLC2vvcrmUkJCQ5vj4eIfBYGg8efJkmdfrbQGIj49vHx0dHdvS0qIDMBqNSmNjY21ZWVmF2qeuU6dO8UajMdrlcul0Op1isVh0Doej4ty5czXh4eFhKSkpHZqbm41er9eg+K03AK48JpMJj8dTXVRUVKnOV9e9R48EV0tLpNvtRlEUQ4B26PV6r81ma6itra0AmtA2NdjGBpwCYq9CAGNycvIN6enpnZOTk2MAg6Io7tOnT1ds3LixwOVySRy41DH0gEGv15u6dO2a6HG7w91uNwBmsxmn01lZXFxc6bsXnTp1ijebze2dTicAISEhGI3GhlP5+aUoihfwtrNaI+Lj4hKdTqchEM0EwIXbbDbjcDgqL1y4UK2uSd+lS5eOQJTL5QJAxXNNUVFRuQ+e/An4Mj66du2aoChKtGxvNJlQFKXmTGHhJcAdpH3rzoIwiA4wAWFTp06NWLly5RCgC9ASpMMQRVGUmb/5zcU1q1eXDR4ypN7arl2LyWz2dklLo0+fPjqr1dqqQVvhZfmsurpa+eeWLbr6+npjZUVFaEpKimnF22/frIMepaWlutra2qaqqqqse+65J8fj8XgA98ZNm24cM3r0ECAcISW8586d+z41NTUPVcIWFBR079q16yAEURmA/BkzZux75513dKmpqa6ioqKewO0qAr0BpugLJqBmzZo1302ePPmSOoa38MyZLmmdOw9Rn7uDtNXX1dXx/b599mXLluVkbt1aADhUPF8rkxgBMxDzyquv9pn78ss3G41GL1CvjmsCos6fP++YMXNmzuZNmwqABnUMHWAxGAzGxqamW80m00AVHwagIiMj47uZM2dKYgIwrly5suPUqVOHAbEqbtwlJSU7b7jhhgK5b0PS0007d+wYANxKcJrxBTNQumTJkqw5c+bY1Xl5i4qKOqempt6jPtcDtZs2bfrugQceuKj22xwATwYgFDD9mJPTuV/fvkMBi/qsYdu2bVn33ntvcRvtW0EwBtEjCCwlIiJC99JLL5X96le/io6IiFA8Ho8SGRlJXl4eVVVVit1u112qqDDV2GxdR48enW4wGIofGDt2g8PhOG8yGunUqRPjx4+nZ8+el/tXFEVqqTbhyJEjvPf++ziamnA4HDFGo7H9xIkTL0ycONE4dOjQztu2bUt95JFHqm02mw5wAqYxY8ac3bhxo7u5uTmiqKhIufnmm1tenju3ZfHrr3dWkWKeMGHC2ddff12fmppqyc3N9a76/POGv2ZkpLpcrg5AzeOPP35q9uzZ4d27d9dfvHhRMRgM6HS6VnP2er2Eh4djsVgMGzZssP/xT3+KOVtUFAfUAVF333VXySuvvtoyaNCgiPLyco/vmp1OJ+3bt1diY2P1QBTQFYgYOWpU/tYtW4qBGnXzrkZYIQhi6LhkyZIuzz//vBU4DhSo7SVEA32AxIEDBxbv3bu3GJCSOgZIfOihhy69OGeO98677rLU1NTw9ddf2xctWmS9cOFCOFCi9pOUlpbWMG/evJrx48fHREdHs3379qaFCxcadu/enaDO22I0GnW///3vS5966qnIuLg4ysrKFKPRKGmrFQ4jIiIwGY2GL7/6qmbhwoVxJSUl0UAtEH3P0KHlc154wTl06NAIgM2bN9fOnz8/Oi8vLxooVnHt8sOJEWgH3HDbbbdVL1y4sGno0KGRAFu2bKmbO3duZF5eXju1fW2A9q0gGIMYVMT1UAf7Ljo6umnBggXY7XbWrVtHbm6ub5MooGttba0zKiqqYvbs2Z2WL1+eAlxESEQ5iO9g8m8jmt0ppY3B5zfJrB0RhFQOrPrd737neuONN5j86KP3rf/221vdbncpYsOzTp48WX7g4EE6xMczdOhQ4uPjLbW1tSPV/szA7tzc3LK6ujoGDx4MkALcq47VAmwFyp577jluv/12GhoacLlcSPMDhLo3GAy8/fbbHDlyBGAIQqpWAAlAIXB43LhxTJo0CZvNdrl9VVUVAwcOZMSIEb44TK2x25NirdYWRVHOAXZ1LsFAh2COhNtuuy3phx9+8AD59fX11YcPH+bixYuUlZXRo0cPBgwYgMfjwWq13lhSUnJDcnKyEziLII72CEl/Bjg2f/58duzYQXZ2NsBwdZx8dczuCG2SlZ6eTqdOnfj0009BMF8qgugiACuwOyoqyvanP/2JuLg4Ghsb8Xg8eL2aQjaZTISEhLB8+XKOHj2KugcmoBJIBs4BOU8++SQAH330EcBgIBI4or7n9MNLKBAP9Faf7/drPxAhMI6qe+XfvhUEdNJ9nkWpA+pra2t57bXXaGxspKGhwfedDjfffPPNeXl5Z4HCH374gb17985DmCgX0FS99EcUdYF6wJGSkhJhtVqNDofDk5+fX6ciKERtJx1yk7qoDupvdy1btmzB9OnTSx4YM+bAoUOH0s8WFXUEznTv3r3l008/5d133+XLL7/EZDLRp08f565du0xAIlAbGRnZmJiYyN/+9je5jgi1/1CEVNIDvP3220yfPp3q6mrKy8upqam5jByz2YzNZuPMmTO+uLAiBEI0qpO8bt06HA4HdrudpqYmAFwuF5mZmXz00UdMmjSJ++67D+Bcu5gY++TJk7t+8cUXyQifxEVwLWJAmA5J8/7wh0YEgdc+++yzkmgvQ8+ePVmzZg1Wq/VCUlJS45gxY9I2bdqUhBA24T77wcKFC2UzPUJ4han4l9rGDrBz507fIfTqmiN98Kivq6sjIyODiRMncujQIerr63E6nQhr+AocGtTxrsChSti+eI7ymZM/6NXxowFbkPbRavurRnHbYhA5kAl1ky5duuT/TvigQYNSVq1aVZz13XeFj02dSllZ2TwEB59C2LqlCC6VCO+Qnp5eUl5WFn4qPz/VarV+lJCQkF9WVtYBeKpdu3ZVAwcNurRxw4Y4BIe3qHNor/ZhRyBu7qJFixaUlZVdKi0pyb+pW7dJBfn5tXV1de6v166lpqaGKVOmUFFRweDBg727du1yAzcAjsTExKby8nKOHz8u1yE3VkGzV2lpaSEjI+NqOJQgGd+CIKrLyN+yZUvABvv372fNmjV88sknPP744wpQExMTU43w9y4gzKRg/ksIEG+xWPSjR48+BzR+8sknkjkMQJI6h/PHjh3zLlzj998663HW1yuwsL8/AsI6RiHYNLiS5cueQDDmDFjznTt2rXO7Xb7Jwl1CIKUpo0OICcnh23btjFs2DDP4cOH7Waz2S4bWa1WcnJymDFjBi6XKxUR3y/zx+mRI0c4ePAgHTt29KSkpHzfs2fPAsDb0tJSajKZHPPmzWPlypXy9ZsRYdCTCO3QlgZpQZhrbuAO4BhQlJ+fz+DBg5k1axZqeBubzVZjMpn2RUVF1ezZs6dTYlJSqL2mxsiVIWuamprIyMhg1KhRYiC/UiSdTkdkZCTr16+/Jg2yevVqpk2bRkVFhbusrMzm9XptIHwTq9XK559/ztKlS0FEB29ECA0pZP7tTNJWLVYHRCjSAnyD+ICCiMbI010uRAb3DqDu3NmzOwYMGBCZmZk5YOTIke+89tprGz/88EP3+PHj2bNnz6GPP/74y2nTpt2GkDh2tc/YGTNm7H/llVc2P/TQQ3Tt2pUlS5YsjoyK2jH35Zefvueee/bnHj681+l0JgCzEASdA1z0uN3laj9yozsgHFjKyspYtWoVs2bNAuAvf/kLp06dkuu3qHNvyyk2I4g3WW3jmzg1IHIzHoKUTrtcLk6cOHH5e36+KI694YYbaG5uprKy8iZgNCJPchahAa92VqEFIQwuqe3aIcK57YHvULPnIAomGxsbWblyJR6Px63X60usVmvHioqKRLSDWsHAhMZELtquMG4LwhClNgm09jEkDqNpu/bs3wL/CoPI9k6EJNMjnMyRwCabzbbhUnn5halTp7ZftWpVl6+//tqN2LxusbGxe91u97onnnji/JIlSzrv2bPHcsstt7RMnjx5R69evXb+6le/8qxfv74/0Lxs2bKjISEhHaZPn1546NChj0tLS/sjcialQCZCgl5CEJXv5sUgSkRiAPvzzz/PoEGD6NKlC6+88op8x6x+ZA4kWHgxBngOYepVozGSG7GplxCmQD0ipxIITIhSFS/CjGh+9dVXmTRpkm7r1q3HXnrppdyCggInwlStJ4B/4AdehJaxIez2cAQh90bUNh1X5/Q90JiZmcn27duZMmWKJzc3l1OnTrUgiFIWCfqPZULUcd2Klg7wIMyeLH7aqUcQwmUeQlvW+IznQuDwIiKv5EDsyX8E/Nw8SBLCnJqOsPXHIWy7RMRCuwIdjhw9Wm00GpeOnzAhFlgIfGY0Gt+aOXNm6GOPPcYHH3yQM3LkyK83bNiwaf78+auPHDny3aRJkzwRERH06NFjNrDZ4/Esffzxx29SFGVJTk5OCzABIYWKEDZ/KQLhvgQVjUCyEcGUuFwubr/9dtLS0mhsbJTrCFPfk/mAYOeoa9U+0xAMIJ1IJ4I5TiMI21cCBipXmYHwE24GUV4SFhamjBs3rmnjxo2rEP6amwD5CT/wTSL6ZvKPIWrXrAjingVMQwgK/uu//guAPXv2yD5k5W0gOlAQdWOzEHVdDwC/Vf/+OVCP2IsUnzEVxFrLEDispu3o3f84/FwNkga8oLavQou4VCGcRSuCgfZ/9NFHtVlZWYuaGhs3/uMf/+jzt3ffnTztiSeaTSYTq1atuh0oHDx4cE1ubq6+rq7uDuDIjp07m37729++2K1bt5wpjz3W9+Ff/vL+EcOHtyA2uzfCDLEhEGtDq6GSYEXLE7RHdfw8Hg+VlZW+6whDS6D5Mog/NCOcbj3CR6hHM8saEERZro53RS5EBVnrNQDoDxzetGmTcuTIEXr37q3cdNNN5wYPHtx+9+7dUUHa+4IeMHTs2NEyesyYnhHh4TfGx8fHpKSkxCQlJ+97dPJka3l5eT8EMY5X57b25MmTCrSqQZMaNBCDuBDCR9ZIgdACZfx07YHax0G1z6OIoI8bzVSsQDvAJI8cBKvGVXw+/nA13Pm2vyoj/lwGKUcg0IhYuA2xOMksZgQR/A54Zf/+/Q2bN2+eFhUV9fE7GRntZ86Ygdvt7oOIJIzbvXv3VoTPsBGYc096+kedU1N/MWrUqMzPP/vs+REjRjQj/JuxCClpRhCmjcBRiFgE8psQJe7BIAKhDXwz4IEQbEBs4jFELZYNraDOidhsGb9v18Z4Mkp0CxDu8XgaNmzYQO/evR2Aa8bMmRd3797dCcFkjQTfwBAgKiIiwvTB++971XVUA4Uej+fHmpqaOxEmUjFiH24C9M3NzZ6uXbtSUlKC+lweTgtmSZxF1I4dUb/bEebcz4FQBN5qEDi0owklicMGBK7bYkBZ6SA//nC18hTZXs+/eGCqLagDfkAs8ARic2SphYLYsCZESG7aH/7wh4/HjRt3rrCw8PcdOnT4CGGLhyNqc+QhmViE3TwM6FtaVtbvTFHRpLlz517avn37rcD/Vp+XIcJ4LoIfl4xDk0zWNtYRpv4rI0atCFKn09GhQwfKy8s9iI01IMy6SjR/x4OmwWShYjBoQZhCcQgzNX/dunXMnz8fQBk+bFg5IrAQi8BxW4elYgoLCxMTEhIKJk+evGfBggVERETI6FM9ggAvIASEPSwszJOamkpeXp7sQ1by+p709AcnYo/y0ULLP8lJt1gshIaGUlNT04SmiUoQwlQmKSUOFQRdgA+hJyYmMn/+fEpKSvj4k0+aSi5ebK++JyOQoOEqFL9Cz7CwMJ544glMJhObN29uOn36tH97OQcFgVuZiFV+LoMYEURSgWCQKlrXMkUiEBkKjPZ6vedvvfXW7+x2+6HNmze/NHr06BcRBXvrEJphoDqx74HUdu3a9bTZbNNWrFhx/vXXX09BOMgFCEmmIJxmLaFwJbRDc7wjEJIy0MaGo2WtW9Vhgchf/PnPf6agoCBk/vz5ph07dlhDQ0Nv14Tq93g3odOAxmUxenU7XoB4ZbksyuRG2tgkh1fMPHz7M0aNH6dWrF7GxsfYuXbo0FhYWdkT4csEubpBFisnl5eWeZcuWlRUXF7N27Vr69++vf/PNN+tnz57tRK2SffChh3LfXrGC5ORkoqOjqaurk0dkr5axdiH2uFzFSwVXueTAHx599FHmzp2L0+nU//rXvw7Nz8+PMJvNKQaDIRKdzoPo2Gsym71er7em8PRpGfC5vA/9+/fn6aefBtBPmzYt8r333os1m81D9QZDrV6nE4RsNOoTExKqP/zwwxN79uwx4CP8ExMTefnll0lOTta98MILkcuXL7eazeb0Vu1DQvRJSUm1X3zxxQ9bt26tUNu7fy6D6BESrgxhU1ajHYKRWWlZsBgBPOXxeEr79u17sqCgYMsbb7wR9eKLL/ZGEEsYQpp5AFNYWFiIzWZ75dtvv82fNWtWO+AlxMYcRDCiAaFBzAQ+y2BSx5Q2rgXBsNUB1hCBpuKviGC1b98enU5Ht27dwr766qv6xsbGFrPZ3NtgMHjR6UDcVBICtJSVle1KTEyUPkgwBnEhCD8U7QRd065du+jVq5cXUO6///765cuXd0YzswKZGxK3Mndk/Oabb1w7d+4kPT3dOGvWLM97771HXl5eWkJCwqVv162zA4adO3d61ACFvFhBlpsHYxJZeydDwQ5+ogPdt29fWRgatWfPnpqmpqZos9n8C71e79XpdPKGGyPQkJ2dnTVo0CAPYm8va7WioiJcLhc6nY7OnTsXLl68WNbj+ZpKJsD+7rvvGhB+52XattlsREdH4/F4SExMLFq8ePFOdf3+7es///xzGdip4V9gEB1aeLcBNcvuAwqCmEMQUj8GeOH06dNzxo8fX/XNN998dejQIcOXX36pRzhsOiDGaDSmVVZWfnzmzJn8cePGmRHM4UZkeUsQZkM4YsOkDe3vg0iGk7kEM0Ja+jOIUe1LOs9X3LT32Wef0bdvX4YPH95gNBq3hIeH78VXc6kX7G3btq1x0cKFIQitIBk3ENF5EREx6Rt1AM5+9dVXTJ06VYmJidGNGzfOtnz58lQEU8sCSn9Q1HkbEaZaBFCzYcMG0tPTnUDVwYMHXZ9++mnSgw8+eAzVn3n55ZdleUgCwsyrR/MDrrW0/CeVoBcUFADgcDiqLRbLxrCwMOn3ic4EDkM2btxY+8c//jECkeVudWz36NGjfP7550ybNs2LsCQK/MdZtmwZCxYs0Nnt9uEIvBpR96CmpoZTp05x++23KwihfDpQ+0WLFhlsNtvdiP1pApw/N8wLbatm6SBXITTMfoT0mbNu3bqQJ598kjVr1qwfPny4Cy1RF1NaWrqjoaHhpHribzaCSLLRch12NIkmLxTwh2hUaYJwCmUSyh/kiTwZjbqCEPPz89m/fz/qRWwNCI153vfz5ptvnr333nsrdu/Z0x4R5WnrqKxHnXs5gpE7AWRnZyOredPT0yvNZrMDQcDBzEgPQmM3Ioi9E8CKFSt46623aGlpOR8WFpb1zDPPfJmYmJgFXMjLy1MOH75cSdIdgdsa2k6QQmuH+Cefz/jwww+prKzEYrF4EAxfwpU4LBo7dmx1bm5ugrqeK7Tw8uXLg46xdOlSnnvuOex2ezhC+kfjgztFUZg+ffpV29tsNtk+BvVMzr+SKPRHnD/DyBDoJQTB7kY47b/5+OOP35oyZUrTtm3bdhmNxjFut9t89OjR7+vq6o6npaUB/BpR/LcHgUTfLLkLwSRxaA6dL0Sri6tU37MSmEHMaBooaA7kww8/5IYbbiAmJqbVnU4Gg4GcnBxef/31yz+hnYQLRkiKOl4FwkS4UZ1Di0/hX/OAAQPqsrKy5Mm/QLiVCcpyxMnEvsBRt9vtfeONN3jwwQdJTU29XImrKApPPPEE6nWhycAvEHisQTtW+98CDQ0N3HfffbzwwgsYjcar4TAEsVdO/Nadm5vLww8/TFJSUqv+bTYbn332mfzqRTBXOH4BqKNHjzJ27Fjfc0DB2re6D+BqDCI32t/B9b3nKhjIeqE6xEYaEQQ/HHh4+PDhX586depSXl5ebk5OTnuz2Zx76623AvwSUYC3F8EcZWiJQD1aIi2YBpF3PPme7osM8J481ir9D18GueyIlpSU8NRTT7WxzFbrDVPnFuxoqpT8doR5k4iQVhWvvfYaAwYM8CQkJDB79uyqrKysRHV9Mufi308zwmy0I+qwTgL7ysvLGT9+POnp6aj3ArN161YKCwtB7PdYhFm2H7E3FoLnBFoFLQjOTL7n+OW/l+d8+PBhHn300QDNrgAdGnHr8dPqf//736/WvgXtTL/Bf64bN268lvYyP6SHawvzBrrEQCL0akkZ6QDb1bFMiI2ZAJTefffde6urq3NSUlKIjo6mpaXlXkR17X5EvF1myWU0RzqV8khvIMKPRjsr0aKOLzPrTr/3QtCcebmWQOu9FvAlpmD5FEnYUrMmIzRlxeHDhxkxYgRLly6lubn5LMKJt6LlXPz7caprLEKYWL9Unx3Izc31+t18idrXWETEsBghfGTEKJij7rvHbSXX/Onh5yQSZT8yghUMh22BLwN7+ema8QoB0Fa5exyiJKKb2lCaIfJSgSZE4uwMrWtrAoEs6ItHbOadiGTZH2+55ZbTiqJw4sSJuxHHbQ8iHPfzCFNEErBcQAyCqPqj3fQnk3ahCNOlDBF+9iDKXm5ESGKZp/FV5TmITLtXnVsvtPuZ2io/8U84yXu1bOocZGjZ9z1ZeVCmzr2P+nsp2nl7VHw6EIR8liuDIKhrba/i4k6EmdWIyE+dRmhQ6cjHI8yqXurvexB7V6vO4xb1X3kjiw7NUS5Gy4N0Q2TnPWhMJddei8i7WBC5nBC/9/y1UTAcNqKd55H7IIndvw/fpKH0WeQFHPJsjxSKgdrLPmTBpMyBnEbcP1DVlgaRJQYKQoXHoJVl+BbnXYu0kM5ptdrHIQQRzcnLy5uFiDrMVid1Ai2RJP0D38W40SRwZwSRSV+kDsGwpercvGpfNyDOLEitIR3lg7RmMMlEfRBEFUmQcnA0KSfzDecQmXK7Ou4v0EK50smX65Pa7bz63i3qex40AtmNYBJfieoLLnXcSoR5FY4g4FHACLSaJj2CaPQI/OcitI6sezKoc+6JIH45D1k5UIV2mVs1wufpqY6nV/FVhGCkRrXPDuq62iMEo6SzYDh0qOMVqHiUGfUbVRxGIgSCPx4ksUuasKk4LlPfvwUhQCLRbo8M1N6jtrcjBKZN/S1oolASYiNCgoWqk7UgJEUh2nmQay1PlouoQBBdNuLit1mITSlQJycz1b6aw78fSeB56vc4dc5liARkJRqDhKh9GxCMYkIw/mmExGtEY5BmdV3HEBWx8ercAhGoVMf1ahtZsNiEYJpT6vMOCGSXqPOoQTCIAw23LgQxedGKH8tp24z19UNk5rgeEWqWkRzps8m7xE4g9k7eHuJFuyw6T51HHFq+5jRaZTFoRGxAmIcGdc35PjgPUfEahiDuODRfMRAOPepcLqj92FTcuBCM70X4TFFcmdiUBN6MYOSzCAazo/3XFi51rsESozJlUa22P4vPvchtMUgLWliuRR1YHgiqURHTwNVvwfPtU0a2KtTJNyNMoFqE5JcFaw1oROsPvhpE5lvkLScN6ne5WdI2NqjP8n3GlfVjvmXyDWiEWY5WQh4IJIPIg0vVaMEEk/qvDS1bL9ddjdgAeY7GjSDGCLXPRrWfSjT8BgNfXEi/qxjhb0hnV+5jNRp+pQmHOpdKNA0jNV6d+rsdLddkQ9PABep8ZThfanzfdZWiFYQG2kuJQ+lPSRxKnLrQ7skyEZzApTCvVds3Ifa5Ue3zFJrjHcw3lFdWVaBdANjmf6AjneowBLJlZEBGkWQyRdrq1wpS5UciuDoczQSpQxB2sBIL0GxFi9pWnkJDXVQTAjFS6hn91qBHO4PQiPYf1uh83g1Du7j7arkiGZlyoGlUA9oFzL5za0TDmU6dj0xsypCuDOHKd1toG7/SJwxFMFkk2lVG0gGXgQH5cap96v3ayhtepOko99gXP7KGSZ7ZkGF3qYn1PuuSdVFt4VDxwWETWrbeoM7HQvCqCd8+5J42+81D7qOsO2urvSyavIz3tv4LNuk4SWfN1xb2+HyuJZrlDwZ10ma0DZETvJbElZxLCK0vKZZRLqnV/B0w35yNfE86gPKZwefTVoLMN7ojx5V96f36CDQ3uBK/Evzxe7VojJx3CFr4Wq5XSnOZEHXT+v9g9N1nf1zKdxWf9+V7cr6+uPRdl3xH79PWHwLh0Nen9cWNlP6BnGw5X//SGT2taTfQPAK1l2vxtsUg/50QKDvbVhjxOlw7BCKEnxMyvQ4EMbGuw3W4DgL+lVqs63Ad/r+H6wxyHa5DG/B/AcCNEwMfhlGVAAAAAElFTkSuQmCC
$lenbytes = [Convert]::FromBase64String($LPNG)
$lenmemoria = New-Object System.IO.MemoryStream
$lenmemoria.Write($lenbytes, 0, $lenbytes.Length)
$lenmemoria.Position = 0
$imagenl = [System.Drawing.Image]::FromStream($lenmemoria, $true)



# Función para mostrar resultados en una nueva ventana
function Mostrar-Resultados {
    param (
        [string]$Titulo,
        [array]$Datos,
        [string]$Tipo
    )

    # Crear el formulario de resultados
    $formResultados = New-Object System.Windows.Forms.Form
    $formResultados.Text = $Titulo
    $formResultados.Size = New-Object System.Drawing.Size(400, 400)
    $formResultados.StartPosition = "CenterScreen"


    # DataGridView para mostrar los datos
    $dataGridViewResultados = New-Object System.Windows.Forms.DataGridView
    $dataGridViewResultados.Location = New-Object System.Drawing.Point(10, 10)
    $dataGridViewResultados.Dock = [System.Windows.Forms.DockStyle]::Fill  # Dock para ocupar todo el espacio disponible
    $dataGridViewResultados.AutoSizeColumnsMode = "Fill"
    $dataGridViewResultados.BackgroundColor = [System.Drawing.Color]::White
    $dataGridViewResultados.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewResultados.ColumnHeadersDefaultCellStyle.BackColor = [System.Drawing.Color]::FromArgb(240, 240, 240)
    $dataGridViewResultados.ColumnHeadersDefaultCellStyle.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewResultados.RowHeadersDefaultCellStyle.BackColor = [System.Drawing.Color]::White
    $dataGridViewResultados.RowHeadersDefaultCellStyle.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewResultados.AllowUserToAddRows = $false
    $dataGridViewResultados.ReadOnly = $true

    # Configurar las columnas según el tipo de datos
    if ($Tipo -eq "Integrantes") {
        $dataGridViewResultados.Columns.Add("Nombre", "Nombre")
        foreach ($integrante in $Datos) {
            $dataGridViewResultados.Rows.Add($integrante)
        }
    } elseif ($Tipo -eq "Grupos") {
        $dataGridViewResultados.Columns.Add("Grupo", "Grupo")
        foreach ($grupo in $Datos) {
            $dataGridViewResultados.Rows.Add($grupo)
        }
    }

    # Botón para exportar a CSV
    $btnExportar = New-Object System.Windows.Forms.Button
    $btnExportar.Text = "Exportar a CSV"
    $btnExportar.Location = New-Object System.Drawing.Point(10, 320)
    $btnExportar.Size = New-Object System.Drawing.Size(120, 30)
    $btnExportar.BackColor = [System.Drawing.Color]::FromArgb(0, 123, 255)
    $btnExportar.ForeColor = [System.Drawing.Color]::White
    $btnExportar.Font = New-Object System.Drawing.Font("Segoe UI", 10)
    $btnExportar.FlatStyle = [System.Windows.Forms.FlatStyle]::Flat
    $btnExportar.FlatAppearance.BorderSize = 0
    $btnExportar.FlatAppearance.MouseOverBackColor = [System.Drawing.Color]::FromArgb(0, 86, 179)
    $btnExportar.Add_Click({
        $rutaArchivo = [System.IO.Path]::Combine($env:USERPROFILE, "$Titulo.csv")
        if ($Tipo -eq "Integrantes") {
            $Datos | Export-Csv -Path $rutaArchivo -NoTypeInformation -Encoding UTF8
        } elseif ($Tipo -eq "Grupos") {
            $Datos | Export-Csv -Path $rutaArchivo -NoTypeInformation -Encoding UTF8
        }
        [System.Windows.Forms.MessageBox]::Show("Los datos han sido exportados a: $rutaArchivo", "Exportación Completada", "OK", "Information")
    })

    # Agregar controles al formulario
    $formResultados.Controls.Add($dataGridViewResultados)
    $formResultados.Controls.Add($btnExportar)

    # Mostrar el formulario
    $formResultados.ShowDialog()
}

# Crear una función para cargar la interfaz gráfica
function Mostrar-GruposYUsuariosAD {
    Add-Type -AssemblyName System.Windows.Forms
    Add-Type -AssemblyName System.Drawing

    # Fuente moderna
    $modernFont = New-Object System.Drawing.Font("Segoe UI", 10)

    # Crear el formulario principal
    $form = New-Object System.Windows.Forms.Form
    $form.Text = "Lista de Grupos y Usuarios de Active Directory"
    $form.Size = New-Object System.Drawing.Size(1400, 800)
    $form.StartPosition = "CenterScreen"
    $form.MaximizeBox = $false
    $form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedDialog

    # Agregar una imagen en la parte superior
    $pictureBox = New-Object System.Windows.Forms.PictureBox
    $pictureBox.Size = New-Object System.Drawing.Size(200, 40)
    $pictureBox.Location = New-Object System.Drawing.Point(10, 10)
    $pictureBox.Image = $imagenl
    $form.Controls.Add($pictureBox)


    # Crear un control TabControl para las pestañas
    $tabControl = New-Object System.Windows.Forms.TabControl
    $tabControl.Location = New-Object System.Drawing.Point(10, 60)
    $tabControl.Size = New-Object System.Drawing.Size(1360, 650)
    $tabControl.BackColor = [System.Drawing.Color]::White
    $tabControl.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)

    # Pestaña para Grupos
    $tabGrupos = New-Object System.Windows.Forms.TabPage
    $tabGrupos.Text = "Grupos"
    $tabGrupos.BackColor = [System.Drawing.Color]::White
    $tabGrupos.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)

    # Filtros para Grupos
    $labelFiltroGrupos = New-Object System.Windows.Forms.Label
    $labelFiltroGrupos.Text = "Filtros:"
    $labelFiltroGrupos.Location = New-Object System.Drawing.Point(10, 10)
    $labelFiltroGrupos.AutoSize = $true
    $tabGrupos.Controls.Add($labelFiltroGrupos)

    # Campo para buscar grupos por nombre
    $labelBuscarGrupo = New-Object System.Windows.Forms.Label
    $labelBuscarGrupo.Text = "Buscar Grupo:"
    $labelBuscarGrupo.Location = New-Object System.Drawing.Point(10, 40)
    $labelBuscarGrupo.AutoSize = $true
    $tabGrupos.Controls.Add($labelBuscarGrupo)

    $txtBuscarGrupo = New-Object System.Windows.Forms.TextBox
    $txtBuscarGrupo.Location = New-Object System.Drawing.Point(110, 40)
    $txtBuscarGrupo.Size = New-Object System.Drawing.Size(200, 20)
    $tabGrupos.Controls.Add($txtBuscarGrupo)

    $comboCategoria = New-Object System.Windows.Forms.ComboBox
    $comboCategoria.Location = New-Object System.Drawing.Point(10, 70)
    $comboCategoria.Size = New-Object System.Drawing.Size(150, 20)
    $comboCategoria.Items.AddRange(@("Todos", "Security", "Distribution"))
    $comboCategoria.SelectedIndex = 0
    $tabGrupos.Controls.Add($comboCategoria)

    $comboAlcance = New-Object System.Windows.Forms.ComboBox
    $comboAlcance.Location = New-Object System.Drawing.Point(170, 70)
    $comboAlcance.Size = New-Object System.Drawing.Size(150, 20)
    $comboAlcance.Items.AddRange(@("Todos", "DomainLocal", "Global", "Universal"))
    $comboAlcance.SelectedIndex = 0
    $tabGrupos.Controls.Add($comboAlcance)

    $txtDescripcion = New-Object System.Windows.Forms.TextBox
    $txtDescripcion.Location = New-Object System.Drawing.Point(330, 70)
    $txtDescripcion.Size = New-Object System.Drawing.Size(150, 20)
    $tabGrupos.Controls.Add($txtDescripcion)

    $txtCorreo = New-Object System.Windows.Forms.TextBox
    $txtCorreo.Location = New-Object System.Drawing.Point(490, 70)
    $txtCorreo.Size = New-Object System.Drawing.Size(150, 20)
    $tabGrupos.Controls.Add($txtCorreo)

    # Aplicar placeholder a los TextBox
    Set-Placeholder -TextBox $txtDescripcion -PlaceholderText "Descripción"
    Set-Placeholder -TextBox $txtCorreo -PlaceholderText "Correo"

    # DataGridView para Grupos
    $dataGridViewGrupos = New-Object System.Windows.Forms.DataGridView
    $dataGridViewGrupos.Location = New-Object System.Drawing.Point(10, 100)
    $dataGridViewGrupos.Size = New-Object System.Drawing.Size(1330, 370)
    $dataGridViewGrupos.AutoSizeColumnsMode = "Fill"
    $dataGridViewGrupos.BackgroundColor = [System.Drawing.Color]::White
    $dataGridViewGrupos.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewGrupos.ColumnHeadersDefaultCellStyle.BackColor = [System.Drawing.Color]::FromArgb(240, 240, 240)
    $dataGridViewGrupos.ColumnHeadersDefaultCellStyle.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewGrupos.RowHeadersDefaultCellStyle.BackColor = [System.Drawing.Color]::White
    $dataGridViewGrupos.RowHeadersDefaultCellStyle.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewGrupos.AllowUserToAddRows = $false
    $dataGridViewGrupos.ReadOnly = $true

    # Columnas para Grupos
    $dataGridViewGrupos.Columns.Add("Name", "Nombre")
    $dataGridViewGrupos.Columns.Add("GroupCategory", "Categoría")
    $dataGridViewGrupos.Columns.Add("GroupScope", "Alcance")
    $dataGridViewGrupos.Columns.Add("Description", "Descripción")
    $dataGridViewGrupos.Columns.Add("Mail", "Correo")
    $dataGridViewGrupos.Columns.Add("ManagedBy", "Gestionado Por")
    $dataGridViewGrupos.Columns.Add("SID", "SID")
    $dataGridViewGrupos.Columns.Add("WhenCreated", "Fecha de Creación")
    $dataGridViewGrupos.Columns.Add("WhenChanged", "Última Modificación")
    
    $tabGrupos.Controls.Add($dataGridViewGrupos)

    # Crear la etiqueta para mostrar el recuento total de grupos
    $labelRecuentoGrupos = New-Object System.Windows.Forms.Label
    $labelRecuentoGrupos.Location = New-Object System.Drawing.Point(10, 480)
    $labelRecuentoGrupos.AutoSize = $true
    $labelRecuentoGrupos.Text = "Total de grupos: 0"  # Valor inicial
    $tabGrupos.Controls.Add($labelRecuentoGrupos)

    # Botón Buscar Grupos
    $btnBuscarGrupos = New-Object System.Windows.Forms.Button
    $btnBuscarGrupos.Text = "Buscar"
    $btnBuscarGrupos.Location = New-Object System.Drawing.Point(10, 510)
    $btnBuscarGrupos.Size = New-Object System.Drawing.Size(100, 30)
    $btnBuscarGrupos.BackColor = [System.Drawing.Color]::FromArgb(0, 123, 255)
    $btnBuscarGrupos.ForeColor = [System.Drawing.Color]::White
    $btnBuscarGrupos.Font = $modernFont
    $btnBuscarGrupos.FlatStyle = [System.Windows.Forms.FlatStyle]::Flat
    $btnBuscarGrupos.FlatAppearance.BorderSize = 0
    $btnBuscarGrupos.FlatAppearance.MouseOverBackColor = [System.Drawing.Color]::FromArgb(0, 86, 179)
    $btnBuscarGrupos.Add_Click({
        # Limpiar DataGridView
        $dataGridViewGrupos.Rows.Clear()

        # Construir el filtro
        $filtro = ""
        if ($txtBuscarGrupo.Text) {
            $filtro += "(Name -like '*$($txtBuscarGrupo.Text)*')"
        }
        if ($comboCategoria.SelectedItem -ne "Todos") {
            if ($filtro -ne "") { $filtro += " -and " }
            $filtro += "(GroupCategory -eq '$($comboCategoria.SelectedItem)')"
        }
        if ($comboAlcance.SelectedItem -ne "Todos") {
            if ($filtro -ne "") { $filtro += " -and " }
            $filtro += "(GroupScope -eq '$($comboAlcance.SelectedItem)')"
        }
        if ($txtDescripcion.Text -and $txtDescripcion.Text -ne "Descripción") {
            if ($filtro -ne "") { $filtro += " -and " }
            $filtro += "(Description -like '*$($txtDescripcion.Text)*')"
        }
        if ($txtCorreo.Text -and $txtCorreo.Text -ne "Correo") {
            if ($filtro -ne "") { $filtro += " -and " }
            $filtro += "(Mail -like '*$($txtCorreo.Text)*')"
        }

        # Si no hay filtros, usar "*"
        if ($filtro -eq "") {
            $filtro = "*"
        }

        # Obtener grupos con filtros
        $grupos = Get-ADGroup -Filter $filtro -Properties Name, GroupCategory, GroupScope, Description, Mail, ManagedBy, SID, WhenCreated, WhenChanged
        foreach ($grupo in $grupos) {
        $dataGridViewGrupos.Rows.Add(
            $grupo.Name,
            $grupo.GroupCategory,
            $grupo.GroupScope,
            $grupo.Description,
            $grupo.Mail,
            $grupo.ManagedBy,
            $grupo.SID,
            $grupo.WhenCreated,
            $grupo.WhenChanged
        )
    }

        # Actualizar el recuento total
        $labelRecuentoGrupos.Text = "Total de grupos: $($grupos.Count)"
    })
    $tabGrupos.Controls.Add($btnBuscarGrupos)

    # Botón Exportar Grupos
    $btnExportarGrupos = New-Object System.Windows.Forms.Button
    $btnExportarGrupos.Text = "Exportar"
    $btnExportarGrupos.Location = New-Object System.Drawing.Point(120, 510)
    $btnExportarGrupos.Size = New-Object System.Drawing.Size(100, 30)
    $btnExportarGrupos.BackColor = [System.Drawing.Color]::FromArgb(0, 123, 255)
    $btnExportarGrupos.ForeColor = [System.Drawing.Color]::White
    $btnExportarGrupos.Font = $modernFont
    $btnExportarGrupos.FlatStyle = [System.Windows.Forms.FlatStyle]::Flat
    $btnExportarGrupos.FlatAppearance.BorderSize = 0
    $btnExportarGrupos.FlatAppearance.MouseOverBackColor = [System.Drawing.Color]::FromArgb(0, 86, 179)
    $btnExportarGrupos.Add_Click({
        $rutaArchivo = [System.IO.Path]::Combine($env:USERPROFILE, "GruposAD.csv")
        $grupos = Get-ADGroup -Filter * -Properties Description, Created, Modified, Mail
        $grupos | Export-Csv -Path $rutaArchivo -NoTypeInformation -Encoding UTF8
        [System.Windows.Forms.MessageBox]::Show("Los grupos han sido exportados a: $rutaArchivo", "Exportación Completada", "OK", "Information")
    })
    $tabGrupos.Controls.Add($btnExportarGrupos)

    # Botón Mostrar Integrantes
    $btnMostrarIntegrantes = New-Object System.Windows.Forms.Button
    $btnMostrarIntegrantes.Text = "Mostrar Integrantes"
    $btnMostrarIntegrantes.Location = New-Object System.Drawing.Point(230, 510)
    $btnMostrarIntegrantes.Size = New-Object System.Drawing.Size(160, 30)
    $btnMostrarIntegrantes.BackColor = [System.Drawing.Color]::FromArgb(0, 123, 255)
    $btnMostrarIntegrantes.ForeColor = [System.Drawing.Color]::White
    $btnMostrarIntegrantes.Font = $modernFont
    $btnMostrarIntegrantes.FlatStyle = [System.Windows.Forms.FlatStyle]::Flat
    $btnMostrarIntegrantes.FlatAppearance.BorderSize = 0
    $btnMostrarIntegrantes.FlatAppearance.MouseOverBackColor = [System.Drawing.Color]::FromArgb(0, 86, 179)
    $btnMostrarIntegrantes.Add_Click({
        # Obtener el grupo seleccionado
        $grupoSeleccionado = $dataGridViewGrupos.SelectedRows[0].Cells["Nombre"].Value
        if ($grupoSeleccionado) {
            # Obtener los miembros del grupo
            $integrantes = Get-ADGroupMember -Identity $grupoSeleccionado | Select-Object -ExpandProperty Name
            if ($integrantes) {
                Mostrar-Resultados -Titulo "Integrantes del Grupo $grupoSeleccionado" -Datos $integrantes -Tipo "Integrantes"
            } else {
                [System.Windows.Forms.MessageBox]::Show("El grupo '$grupoSeleccionado' no tiene integrantes.", "Integrantes del Grupo", "OK", "Information")
            }
        } else {
            [System.Windows.Forms.MessageBox]::Show("Selecciona un grupo para ver sus integrantes.", "Error", "OK", "Error")
        }
    })
    $tabGrupos.Controls.Add($btnMostrarIntegrantes)

    # Pestaña para Usuarios
    $tabUsuarios = New-Object System.Windows.Forms.TabPage
    $tabUsuarios.Text = "Usuarios"
    $tabUsuarios.BackColor = [System.Drawing.Color]::White
    $tabUsuarios.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)

    # Filtros para Usuarios
    $labelFiltroUsuarios = New-Object System.Windows.Forms.Label
    $labelFiltroUsuarios.Text = "Filtros:"
    $labelFiltroUsuarios.Location = New-Object System.Drawing.Point(10, 10)
    $labelFiltroUsuarios.AutoSize = $true
    $tabUsuarios.Controls.Add($labelFiltroUsuarios)

    # Campo para buscar usuarios por nombre
    $labelBuscarUsuario = New-Object System.Windows.Forms.Label
    $labelBuscarUsuario.Text = "Buscar Usuario:"
    $labelBuscarUsuario.Location = New-Object System.Drawing.Point(10, 40)
    $labelBuscarUsuario.AutoSize = $true
    $tabUsuarios.Controls.Add($labelBuscarUsuario)

    $txtBuscarUsuario = New-Object System.Windows.Forms.TextBox
    $txtBuscarUsuario.Location = New-Object System.Drawing.Point(120, 40)
    $txtBuscarUsuario.Size = New-Object System.Drawing.Size(200, 20)
    $tabUsuarios.Controls.Add($txtBuscarUsuario)

    $comboEstado = New-Object System.Windows.Forms.ComboBox
    $comboEstado.Location = New-Object System.Drawing.Point(10, 70)
    $comboEstado.Size = New-Object System.Drawing.Size(150, 20)
    $comboEstado.Items.AddRange(@("Todos", "Habilitado", "Deshabilitado"))
    $comboEstado.SelectedIndex = 0
    $tabUsuarios.Controls.Add($comboEstado)

    $txtDepartamento = New-Object System.Windows.Forms.TextBox
    $txtDepartamento.Location = New-Object System.Drawing.Point(170, 70)
    $txtDepartamento.Size = New-Object System.Drawing.Size(150, 20)
    $tabUsuarios.Controls.Add($txtDepartamento)

    $txtCargo = New-Object System.Windows.Forms.TextBox
    $txtCargo.Location = New-Object System.Drawing.Point(330, 70)
    $txtCargo.Size = New-Object System.Drawing.Size(150, 20)
    $tabUsuarios.Controls.Add($txtCargo)

    $chkBloqueado = New-Object System.Windows.Forms.CheckBox
    $chkBloqueado.Text = "Bloqueado"
    $chkBloqueado.Location = New-Object System.Drawing.Point(490, 70)
    $chkBloqueado.AutoSize = $true
    $tabUsuarios.Controls.Add($chkBloqueado)

    # Aplicar placeholder a los TextBox
    Set-Placeholder -TextBox $txtDepartamento -PlaceholderText "Departamento"
    Set-Placeholder -TextBox $txtCargo -PlaceholderText "Cargo"

    # DataGridView para Usuarios
    $dataGridViewUsuarios = New-Object System.Windows.Forms.DataGridView
    $dataGridViewUsuarios.Location = New-Object System.Drawing.Point(10, 100)
    $dataGridViewUsuarios.Size = New-Object System.Drawing.Size(1330, 370)
    $dataGridViewUsuarios.AutoSizeColumnsMode = "Fill"
    $dataGridViewUsuarios.BackgroundColor = [System.Drawing.Color]::White
    $dataGridViewUsuarios.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewUsuarios.ColumnHeadersDefaultCellStyle.BackColor = [System.Drawing.Color]::FromArgb(240, 240, 240)
    $dataGridViewUsuarios.ColumnHeadersDefaultCellStyle.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewUsuarios.RowHeadersDefaultCellStyle.BackColor = [System.Drawing.Color]::White
    $dataGridViewUsuarios.RowHeadersDefaultCellStyle.ForeColor = [System.Drawing.Color]::FromArgb(64, 64, 64)
    $dataGridViewUsuarios.AllowUserToAddRows = $false
    $dataGridViewUsuarios.ReadOnly = $true

    # Columnas para Usuarios
    $dataGridViewUsuarios.Columns.Add("Cuenta", "Cuenta")
    $dataGridViewUsuarios.Columns.Add("Nombre", "Nombre")
    $dataGridViewUsuarios.Columns.Add("Estado", "Estado")
    $dataGridViewUsuarios.Columns.Add("Correo", "Correo")
    $dataGridViewUsuarios.Columns.Add("Departamento", "Departamento")
    $dataGridViewUsuarios.Columns.Add("Cargo", "Cargo")
    $dataGridViewUsuarios.Columns.Add("Teléfono", "Teléfono")
    $dataGridViewUsuarios.Columns.Add("Último Inicio de Sesión", "Último Inicio de Sesión")
    $dataGridViewUsuarios.Columns.Add("Fecha Expiración", "Fecha Expiración")
    $dataGridViewUsuarios.Columns.Add("Bloqueado", "Bloqueado")
    $dataGridViewUsuarios.Columns.Add("Manager", "Manager")
    $dataGridViewUsuarios.Columns.Add("ID Empleado", "ID Empleado")
    $dataGridViewUsuarios.Columns.Add("Dirección", "Dirección")
    $dataGridViewUsuarios.Columns.Add("Ciudad", "Ciudad")
    $dataGridViewUsuarios.Columns.Add("Código Postal", "Código Postal")
    $dataGridViewUsuarios.Columns.Add("País", "País")
    $dataGridViewUsuarios.Columns.Add("Empresa", "Empresa")

    $tabUsuarios.Controls.Add($dataGridViewUsuarios)

    # Botón Buscar Usuarios
    $btnBuscarUsuarios = New-Object System.Windows.Forms.Button
    $btnBuscarUsuarios.Text = "Buscar"
    $btnBuscarUsuarios.Location = New-Object System.Drawing.Point(10, 480)
    $btnBuscarUsuarios.Size = New-Object System.Drawing.Size(100, 30)
    $btnBuscarUsuarios.BackColor = [System.Drawing.Color]::FromArgb(0, 123, 255)
    $btnBuscarUsuarios.ForeColor = [System.Drawing.Color]::White
    $btnBuscarUsuarios.Font = $modernFont
    $btnBuscarUsuarios.FlatStyle = [System.Windows.Forms.FlatStyle]::Flat
    $btnBuscarUsuarios.FlatAppearance.BorderSize = 0
    $btnBuscarUsuarios.FlatAppearance.MouseOverBackColor = [System.Drawing.Color]::FromArgb(0, 86, 179)
    # Botón Buscar Usuarios
$btnBuscarUsuarios.Add_Click({
    # Limpiar DataGridView
    $dataGridViewUsuarios.Rows.Clear()

    # Obtener usuarios con filtros
    $filtro = ""
    if ($txtBuscarUsuario.Text) {
        $filtro += "(Name -like '*$($txtBuscarUsuario.Text)*')"
    }
    if ($comboEstado.SelectedItem -eq "Habilitado") {
        if ($filtro -ne "") { $filtro += " -and " }
        $filtro += "(Enabled -eq '$true')"
    } elseif ($comboEstado.SelectedItem -eq "Deshabilitado") {
        if ($filtro -ne "") { $filtro += " -and " }
        $filtro += "(Enabled -eq '$false')"
    }
    if ($txtDepartamento.Text -and $txtDepartamento.Text -ne "Departamento") {
        if ($filtro -ne "") { $filtro += " -and " }
        $filtro += "(Department -like '*$($txtDepartamento.Text)*')"
    }
    if ($txtCargo.Text -and $txtCargo.Text -ne "Cargo") {
        if ($filtro -ne "") { $filtro += " -and " }
        $filtro += "(Title -like '*$($txtCargo.Text)*')"
    }

    # Si no hay filtros, usar "*"
    if ($filtro -eq "") {
        $filtro = "*"
    }

    # Obtener usuarios con filtros
    $usuarios = Get-ADUser -Filter $filtro -Properties SamAccountName, DisplayName, Enabled, EmailAddress, Department, Title, LastLogonDate, AccountExpirationDate, TelephoneNumber, Manager, EmployeeID, StreetAddress, City, PostalCode, Country, Company

    # Obtener cuentas bloqueadas
    $cuentasBloqueadas = Search-ADAccount -LockedOut | Select-Object -ExpandProperty SamAccountName

    foreach ($usuario in $usuarios) {
    $estado = if ($usuario.Enabled) { "Habilitado" } else { "Deshabilitado" }
    $bloqueado = if ($cuentasBloqueadas -contains $usuario.SamAccountName) { "Sí" } else { "No" }
    $dataGridViewUsuarios.Rows.Add(
        $usuario.SamAccountName,
        $usuario.DisplayName,
        $estado,
        $usuario.EmailAddress,
        $usuario.Department,
        $usuario.Title,
        $usuario.TelephoneNumber,
        $usuario.LastLogonDate,
        $usuario.AccountExpirationDate,
        $bloqueado,
        $usuario.Manager,
        $usuario.EmployeeID,
        $usuario.StreetAddress,
        $usuario.City,
        $usuario.PostalCode,
        $usuario.Country,
        $usuario.Company
    )
}
})
    $tabUsuarios.Controls.Add($btnBuscarUsuarios)

    # Botón Exportar Usuarios
    $btnExportarUsuarios = New-Object System.Windows.Forms.Button
    $btnExportarUsuarios.Text = "Exportar"
    $btnExportarUsuarios.Location = New-Object System.Drawing.Point(120, 480)
    $btnExportarUsuarios.Size = New-Object System.Drawing.Size(100, 30)
    $btnExportarUsuarios.BackColor = [System.Drawing.Color]::FromArgb(0, 123, 255)
    $btnExportarUsuarios.ForeColor = [System.Drawing.Color]::White
    $btnExportarUsuarios.Font = $modernFont
    $btnExportarUsuarios.FlatStyle = [System.Windows.Forms.FlatStyle]::Flat
    $btnExportarUsuarios.FlatAppearance.BorderSize = 0
    $btnExportarUsuarios.FlatAppearance.MouseOverBackColor = [System.Drawing.Color]::FromArgb(0, 86, 179)
    $btnExportarUsuarios.Add_Click({
        $rutaArchivo = [System.IO.Path]::Combine($env:USERPROFILE, "UsuariosAD.csv")
        $usuarios = Get-ADUser -Filter * -Properties SamAccountName, DisplayName, Enabled, EmailAddress, Department, Title, LastLogonDate, AccountExpirationDate, LockedOut, TelephoneNumber
        $usuarios | Export-Csv -Path $rutaArchivo -NoTypeInformation -Encoding UTF8
        [System.Windows.Forms.MessageBox]::Show("Los usuarios han sido exportados a: $rutaArchivo", "Exportación Completada", "OK", "Information")
    })
    $tabUsuarios.Controls.Add($btnExportarUsuarios)

    # Botón Mostrar Grupos del Usuario
    $btnMostrarGrupos = New-Object System.Windows.Forms.Button
    $btnMostrarGrupos.Text = "Mostrar Grupos"
    $btnMostrarGrupos.Location = New-Object System.Drawing.Point(230, 480)
    $btnMostrarGrupos.Size = New-Object System.Drawing.Size(150, 30)
    $btnMostrarGrupos.BackColor = [System.Drawing.Color]::FromArgb(0, 123, 255)
    $btnMostrarGrupos.ForeColor = [System.Drawing.Color]::White
    $btnMostrarGrupos.Font = $modernFont
    $btnMostrarGrupos.FlatStyle = [System.Windows.Forms.FlatStyle]::Flat
    $btnMostrarGrupos.FlatAppearance.BorderSize = 0
    $btnMostrarGrupos.FlatAppearance.MouseOverBackColor = [System.Drawing.Color]::FromArgb(0, 86, 179)
    $btnMostrarGrupos.Add_Click({
        # Obtener el usuario seleccionado
        $usuarioSeleccionado = $dataGridViewUsuarios.SelectedRows[0].Cells["Cuenta"].Value
        if ($usuarioSeleccionado) {
            # Obtener los grupos del usuario
            $grupos = Get-ADPrincipalGroupMembership -Identity $usuarioSeleccionado | Select-Object -ExpandProperty Name
            if ($grupos) {
                Mostrar-Resultados -Titulo "Grupos del Usuario $usuarioSeleccionado" -Datos $grupos -Tipo "Grupos"
            } else {
                [System.Windows.Forms.MessageBox]::Show("El usuario '$usuarioSeleccionado' no pertenece a ningún grupo.", "Grupos del Usuario", "OK", "Information")
            }
        } else {
            [System.Windows.Forms.MessageBox]::Show("Selecciona un usuario para ver sus grupos.", "Error", "OK", "Error")
        }
    })
    $tabUsuarios.Controls.Add($btnMostrarGrupos)

    # Agregar las pestañas al TabControl
    $tabControl.TabPages.Add($tabGrupos)
    $tabControl.TabPages.Add($tabUsuarios)

    # Agregar el TabControl al formulario
    $form.Controls.Add($tabControl)

    # Botón de Cerrar
    $btnCerrar = New-Object System.Windows.Forms.Button
    $btnCerrar.Location = New-Object System.Drawing.Point(1230, 720)
    $btnCerrar.Size = New-Object System.Drawing.Size(100, 30)
    $btnCerrar.Text = "Cerrar"
    $btnCerrar.BackColor = [System.Drawing.Color]::FromArgb(0, 123, 255)
    $btnCerrar.ForeColor = [System.Drawing.Color]::White
    $btnCerrar.Font = $modernFont
    $btnCerrar.FlatStyle = [System.Windows.Forms.FlatStyle]::Flat
    $btnCerrar.FlatAppearance.BorderSize = 0
    $btnCerrar.FlatAppearance.MouseOverBackColor = [System.Drawing.Color]::FromArgb(0, 86, 179)
    $btnCerrar.Add_Click({ $form.Close() })
    $form.Controls.Add($btnCerrar)

    # Mostrar el formulario
    $form.ShowDialog()
}

# Función para simular placeholder
function Set-Placeholder {
    param (
        [System.Windows.Forms.TextBox]$TextBox,
        [string]$PlaceholderText
    )
    if ($TextBox.Text -eq "") {
        $TextBox.Text = $PlaceholderText
        $TextBox.ForeColor = [System.Drawing.Color]::Gray
    }

    $TextBox.Add_GotFocus({
        if ($this.Text -eq $PlaceholderText) {
            $this.Text = ""
            $this.ForeColor = [System.Drawing.Color]::Black
        }
    })

    $TextBox.Add_LostFocus({
        if ($this.Text -eq "") {
            $this.Text = $PlaceholderText
            $this.ForeColor = [System.Drawing.Color]::Gray
        }
    })
}

# Llamar a la función para mostrar la interfaz gráfica
Mostrar-GruposYUsuariosAD