Buscar Usuarios por Grupo en Active Directory

Hace algún tiempo necesitaba un pequeño script para detectar usuarios dentro de mi grupo wireless en Active Directory, asi que me di la tarea de investigar un poco en como lograrlo, así pude crear el siguiente script el cual pueden modificarlo para ver los usuarios que pertenecen a un grupo X.

Lo que hace es crear un archivo txt para guardar los resultados (en el mismo directorio donde esta el script), verifica los usuarios de un grupo y los datos a grabar son SAM Account, Name y displayName.

On Error Resume Next

Const DOMAINGROUP = "LDAP://cn=Wireless, cn=Users, dc=midominio,dc=dom"
Const GROUPHEADER = "<-= GROUP Wireless =->"
Const GROUPFOOTER = "====================="

doYourJob

openFile

Private Sub doYourJob()
Set objGroup = GetObject _
(DOMAINGROUP)
''objGroup.GetInfo

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("memberswifi.txt", True)

file.Writeline GROUPHEADER

For each objMember in objGroup.Members
file.Writeline "[---------------------------]"
file.Writeline objMember.SAMAccountName
file.Writeline objMember.Name
file.Writeline objMember.displayName
Next
file.Writeline GROUPFOOTER
file.Close
End Sub

Private Sub openFile()
Const WIN_STYLE = 4
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "notepad.exe c:memberswifi.txt", WIN_STYLE
End Sub

Graban este archivo con extensión vbs y listo.

Espero les sea de utilidad.

Farmville Auto Click

Ser un Farmville Addict no es fácil, requiere de esfuerzo y dedicación para tener tu Farm en buen estado, la flojera viene cuando tienes demasiados "cuadros" de sembradios y tienes que cosechar, arar y sembrar (clicks, clicks y mas clicks).
Para eso un programador con pseudonimo Sam creo una aplicación que se llama FarmVille Auto Click (FVAClick.exe).
Esta aplicación soluciona todos los problemas antes mencionados por que le indicas cuantos "cuadros" vas a dar click y lo hace automágicamente por ti por lo cual no más sufrimiento para las tareas diarias de FarmVille.
Screenshots



[Download]
Imagenes Obtenidas de aquí
Creditos: Para el Desarrollador de la aplicación.
Enjoy!!!

Windows 7 / Server 2008R2 Remote Kernel Crash

¿Recuerdan el exploit que provocaba un BSOD en Windows 7 de Laurent Gaffié?...
Si la respuesta es sí continuen leyendo, si es no, favor de ir aquí.
Pues nuestro amigo Laurent encontró otro fallo en SMB que afecta a Windows 7/ Server 2008 R2 con severidad de medium a high.
El impacto es que un atacante puede remotamente "tronar" cualquier Windows 7/Server 2008R2 dentro de la LAN o via IE (Internet Explorer).
NO hay patch por lo que se recomienda cerrar los puertos que usen SMB.
From Laurent...

"Most secure Os ever";
What ever your firewall is set to, you can get remotly smashed via IE or even via some broadcasting nbns tricks (no user interaction)
How funny.

[Blog de Laurent]

UPDATE: It works!, el PoC lo tienen que modificar un poco, una pizca de Ingenieria Social y listo!, la Windows Machine se Freezea!!! (Pwn3d!):

¿Microsoft Patenta Sudo?

DAMN!
Así empezamos es post, no soy "Microsoft hater" como algunas personas que usan Linux, yo uso ambos sistemas a diario, claro que tienen sus pros y sus contras pero al fin alcabo hacen lo que deben hacer.

Como el titulo de este post lo dice "¿Microsoft patenta sudo?", esta noticia la vi en Groklaw en donde describe una patente de Microsoft con numero 7,617,530 ingresada el 10 de noviembre de 2009 en la cual hace referencia a:

Systems and/or methods are described that enable a user to elevate his or her rights. In one embodiment, these systems and/or methods present a user interface identifying an account having a right to permit a task in response to the task being prohibited based on a user's current account not having that right.

Sistemas y/o metodos que permiten a un usuario elevar sus permisos.

O sea, NO ma#$%s...

Esta claro que estan describiendo a sudo y/o su, esto me hizo pensar en varias cuestiones, como lo mencione antes, no soy "Microsoft hater", pero en esta ocasión si se paso de ....

1.- ¿Le habra hecho daño a la comunidad que Microsoft se casara con Novell?
2.- ¿Microsoft esta "pirateandose" habilidades de GNU/Linux gracias a este "deal"?
- Will the REAL "NEW" in Windows 7 please stand up - TechRepublic
3.- ¿Seguira Microsoft ingresando patentes de sus "nuevos inventos" que saca de la comunidad de Software Libre y UNIX?
4.- ¿Algun día cobraran por x razón por aplicaciones hechas con MONO (uso, patentes, etc.)?
- Mono Tools for Visual Studio - By Icaza

Estas son algunas cuestiones que me he puesto a pensar, no tengo nada con la interoperabilidad de OSes, pero gandallearte con una patente creo que no es justo.

Let the Flame wars begin...

[GrokLaw Article]
Image by - xkcd

Members in Active Directory Group

Me vi en la necesidad de obtener una lista de usuarios de un grupo en AD en Win2003 Svr pero al quererlo hacer por medio de las herramientas administrativas no me daba el resultado deseado e inverti más tiempo de lo normal.

¿Qué fue lo que hice?

Tuve que recurrir al Command Prompt (Modo texto nunca se "raja").
Indagando un poco pude crear un pseudo vbs script:

On Error Resume Next

Const DOMAINGROUP = "LDAP://cn=grupo, cn=Users, dc=midominio,dc=com"
Const GROUPHEADER = "<-= GROUP grupo =->"
Const GROUPFOOTER = "====================="

doYourJob

openFile

Private Sub doYourJob()
Set objGroup = GetObject _
(DOMAINGROUP)
''objGroup.GetInfo

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("members.txt", True)

file.Writeline GROUPHEADER

For each objMember in objGroup.Members
file.Writeline objMember.Name
Next
file.Writeline GROUPFOOTER
file.Close
End Sub

Private Sub openFile()
Const WIN_STYLE = 4
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "notepad.exe c:members.txt", WIN_STYLE
End Sub


Solo hay que hacer copy-paste y grabarlo con extensión vbs.

Saludos!

Wireless Tools Windows OS

Despues de ver listas de correos y algo de tiempo navegando en Internet encontre un par de herramientas muy buenas para la verdadera auditoria de redes Wireless (no con aircrack).

La primera es HeatMapper, esta herramienta nos permite cargar un mapa para despues empezar a caminar por el area donde tenemos cobertura wireless trazando lineas por donde vayamos caminando, asi creamos un area de cobertura por cada access point.

La segunda es inSSIDer, es como el NetStumbler pero con esteroides, lo interesante es que tiene soporte nativo para la Wifi API de Windows.

Bueno, ahi las tienen, have fun!

OfficeTab

El dia de hoy me encontre con esta utilería: OfficeTab, la cual te permite crear tabs (pestañas) en Word, Excel y Powerpoint de MS Office, la verdad muy útil si estas acostumbrado a utilizar los tabs y no tener tantas ventanas abiertas.



[Fuente]