viernes, 27 de febrero de 2009
Autenticar con active directory (LDAP)
Todos sabemos que la autenticación con Active directory es muy buena y eficiente, siempre pensamos que la deberiamos de usar, pero realmente microsoft no pone tal facil la información para utilizar el active directory y por lo mismo muchos no lo usan, aquí les expongo codigo enviado por mi amigo Luis Gonzales de como a Autenticar y extraer datos del active directory como grupo de trabajo. espero les sirva cualquier comentario es bienvenido.
Imports System
Imports System.Text
Imports System.Collections
Imports System.DirectoryServices
Imports System.Configuration
Public Class AutenticarLDAP
Private _path As String
Private _filterAttribute As String
Private _descripcion As String
Public Sub New(ByVal path As String)
_path = path
End Sub
Public ReadOnly Property isDisplayName() As Integer
Get
Return _descripcion
End Get
End Property
Public Function Devuelve_Propiedad(ByVal Domain As String, ByVal username As String, ByVal pwd As String, ByVal Propiedad As String) As String
Dim domainAndUsername As String = (Domain & "\") + username
Dim entry As New DirectoryEntry(_path, domainAndUsername, pwd)
Try
Dim search As New DirectorySearcher(entry)
search.Filter = "(&(objectClass=user)(anr=" + username + "))"
Dim resEnt As SearchResult = search.FindOne()
Dim de As DirectoryEntry = resEnt.GetDirectoryEntry()
_descripcion = de.Properties(Propiedad).Value.ToString
entry.Close()
Catch ex As Exception
Return "Error al traer la informacion"
End Try
Return _descripcion
End Function
Public Function IsAuthenticated(ByVal Domain As String, ByVal username As String, ByVal pwd As String) As Boolean
Dim Success As Boolean = False
Dim Entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & Domain, username, pwd)
Dim Searcher As New System.DirectoryServices.DirectorySearcher(Entry)
Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel
Try
Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne
Success = Not (Results Is Nothing)
Catch
Success = False
End Try
Return Success
End Function
Public Function GetGroups() As String
Dim search As New DirectorySearcher(_path)
search.Filter = "(cn=" & _filterAttribute & ")"
search.PropertiesToLoad.Add("memberOf")
Dim groupNames As New StringBuilder()
Try
Dim result As SearchResult = search.FindOne()
Dim propertyCount As Integer = result.Properties("memberOf").Count
Dim dn As String
Dim equalsIndex As Integer, commaIndex As Integer
For propertyCounter As Integer = 0 To propertyCount - 1
dn = DirectCast(result.Properties("memberOf")(propertyCounter), String)
equalsIndex = dn.IndexOf("=", 1)
commaIndex = dn.IndexOf(",", 1)
If -1 = equalsIndex Then
Return Nothing
End If
groupNames.Append(dn.Substring((equalsIndex + 1), (commaIndex - equalsIndex) - 1))
groupNames.Append("|")
Next
Catch ex As Exception
Throw New Exception("Error obtaining group names. " & ex.Message)
End Try
Return groupNames.ToString()
End Function
End Class
Ver
Imports System
Imports System.Text
Imports System.Collections
Imports System.DirectoryServices
Imports System.Configuration
Public Class AutenticarLDAP
Private _path As String
Private _filterAttribute As String
Private _descripcion As String
Public Sub New(ByVal path As String)
_path = path
End Sub
Public ReadOnly Property isDisplayName() As Integer
Get
Return _descripcion
End Get
End Property
Public Function Devuelve_Propiedad(ByVal Domain As String, ByVal username As String, ByVal pwd As String, ByVal Propiedad As String) As String
Dim domainAndUsername As String = (Domain & "\") + username
Dim entry As New DirectoryEntry(_path, domainAndUsername, pwd)
Try
Dim search As New DirectorySearcher(entry)
search.Filter = "(&(objectClass=user)(anr=" + username + "))"
Dim resEnt As SearchResult = search.FindOne()
Dim de As DirectoryEntry = resEnt.GetDirectoryEntry()
_descripcion = de.Properties(Propiedad).Value.ToString
entry.Close()
Catch ex As Exception
Return "Error al traer la informacion"
End Try
Return _descripcion
End Function
Public Function IsAuthenticated(ByVal Domain As String, ByVal username As String, ByVal pwd As String) As Boolean
Dim Success As Boolean = False
Dim Entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & Domain, username, pwd)
Dim Searcher As New System.DirectoryServices.DirectorySearcher(Entry)
Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel
Try
Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne
Success = Not (Results Is Nothing)
Catch
Success = False
End Try
Return Success
End Function
Public Function GetGroups() As String
Dim search As New DirectorySearcher(_path)
search.Filter = "(cn=" & _filterAttribute & ")"
search.PropertiesToLoad.Add("memberOf")
Dim groupNames As New StringBuilder()
Try
Dim result As SearchResult = search.FindOne()
Dim propertyCount As Integer = result.Properties("memberOf").Count
Dim dn As String
Dim equalsIndex As Integer, commaIndex As Integer
For propertyCounter As Integer = 0 To propertyCount - 1
dn = DirectCast(result.Properties("memberOf")(propertyCounter), String)
equalsIndex = dn.IndexOf("=", 1)
commaIndex = dn.IndexOf(",", 1)
If -1 = equalsIndex Then
Return Nothing
End If
groupNames.Append(dn.Substring((equalsIndex + 1), (commaIndex - equalsIndex) - 1))
groupNames.Append("|")
Next
Catch ex As Exception
Throw New Exception("Error obtaining group names. " & ex.Message)
End Try
Return groupNames.ToString()
End Function
End Class
jueves, 26 de febrero de 2009
Si uso linux y es muy bueno
Si lo QUE leen yo un tipo certificado por microsoft, y que considero a microsoft el mejor producto, admito que he usado linux y es muy bueno es mas lo aconsejo, mi ropa nunca ha estado tan limpia como ahora.
Ver
Calorías gastadas por actividad Sexual
A lo largo de varios años y dilatadas y diversas experiencias el lector podrá comprobar la veracidad de los datos estadísticos. El sexo es la manera más práctica y divertida de perder peso. Vea cuántas calorías se pierden en cada actividad:
QUITANDO LA ROPA:
- Con el consentimiento de ella: 12 calorías.
- Sin el consentimiento de ella: 187 calorías.
ABRIENDO EL SOSTÉN:
- Con las dos manos: 8 calorías.
- Con una mano: 12 calorías.
- Con la boca: 85 calorías.
COLOCANDO EL PRESERVATIVO:
- Con erección: 6 calorías.
- Sin erección: 315 calorías.
PRELIMINARES:
- Intentando encontrar el clítoris: 8 calorías.
- Intentando encontrar el punto G: 92 calorías.
POSICIONES:
- Misionero: 12 calorías.
- 69 tumbado: 78 calorías.
- 69 de pie: 112 calorías.
- Carretilla: 216 calorías.
- De perrito: 326 calorías.
- Candelabro italiano: 912 calorías.
TENIENDO UN ORGASMO:
- Real: 112 calorías.
- Falso: 315 calorías.
POST ORGASMO:
- Quedarse en la cama abrazado: 18 calorías.
- Salir de la cama enseguida: 36 calorías.
- Explicar por qué salió de la cama enseguida: 116 calorías.
CONSIGUIENDO LA SEGUNDA ERECCIÓN:
Si tiene entre:
- 20 y 29 años: 36 calorías.
- 30 y 39 años: 80 calorías.
- 40 y 49 años: 124 calorías.
- 50 y 59 años: 972 calorías.
- 60 y 70 años: 2916 calorías.
- Más de 70 años: No hay datos (los voluntarios murieron tratando de hacerlo).
- Más de 10 años de casado: 4635 calorías.
COLOCANDO LA ROPA:
- Con calma: 32 calorías.
- Con prisa por salir: 98 calorías.
- Con el papá de ella golpeando la puerta: 1218 calorías.
- Con tu mujer golpeando la puerta: 3521 calorías.
- Con el marido de ella tocando la puerta: 4695 calorías.
Ver
QUITANDO LA ROPA:
- Con el consentimiento de ella: 12 calorías.
- Sin el consentimiento de ella: 187 calorías.
ABRIENDO EL SOSTÉN:
- Con las dos manos: 8 calorías.
- Con una mano: 12 calorías.
- Con la boca: 85 calorías.
COLOCANDO EL PRESERVATIVO:
- Con erección: 6 calorías.
- Sin erección: 315 calorías.
PRELIMINARES:
- Intentando encontrar el clítoris: 8 calorías.
- Intentando encontrar el punto G: 92 calorías.
POSICIONES:
- Misionero: 12 calorías.
- 69 tumbado: 78 calorías.
- 69 de pie: 112 calorías.
- Carretilla: 216 calorías.
- De perrito: 326 calorías.
- Candelabro italiano: 912 calorías.
TENIENDO UN ORGASMO:
- Real: 112 calorías.
- Falso: 315 calorías.
POST ORGASMO:
- Quedarse en la cama abrazado: 18 calorías.
- Salir de la cama enseguida: 36 calorías.
- Explicar por qué salió de la cama enseguida: 116 calorías.
CONSIGUIENDO LA SEGUNDA ERECCIÓN:
Si tiene entre:
- 20 y 29 años: 36 calorías.
- 30 y 39 años: 80 calorías.
- 40 y 49 años: 124 calorías.
- 50 y 59 años: 972 calorías.
- 60 y 70 años: 2916 calorías.
- Más de 70 años: No hay datos (los voluntarios murieron tratando de hacerlo).
- Más de 10 años de casado: 4635 calorías.
COLOCANDO LA ROPA:
- Con calma: 32 calorías.
- Con prisa por salir: 98 calorías.
- Con el papá de ella golpeando la puerta: 1218 calorías.
- Con tu mujer golpeando la puerta: 3521 calorías.
- Con el marido de ella tocando la puerta: 4695 calorías.
martes, 24 de febrero de 2009
caravana del zorro 2009
Hechos
Cerca de 44.000 motociclistas participaron en la peregrinación motorizada más numerosa y extensa de Latinoamérica: La Caravana del Zorro.
Breve Historia
La masiva romería, que comenzó con seis motoristas en 1961, tiene como destino la Basílica de Esquípalas, Chiquimula, para visitar la imagen del Santo Cristo en esa localidad. Este año, cuando se organiza por 48 ocasión, la salida desde el parque central de la Ciudad de Guatemala está programada para el 31 de enero.
La caravana será encabezada por Eddy Villadeleón, hijo del fallecido Rubén, alias Zorro, y en memoria de quien fue bautizada la romería por haberla comenzado con un grupo de amigos.
Desde hace ocho años, la asociación Rubén Villadeleón patrocina escuelas que necesitan equipo e infraestructura, pero desde diciembre último se instauró el programa de apadrinamiento, en el que una firma patrocinadora financia uno de los centros escolares que sale beneficiado.
Como lo vi yo
Aun que tengo 3 años de tener moto nunca había asistido por diversos motivos dinero, no tengo ganas, van muchos, etc. Pero este año quería probar mi bike así que fui a comprar mi camisa el jueves 29 de enero, para mi buena suerte el zorro estaba en el lugar que compre mi camisa y me la autografió.
El sábado llegue al parque central donde ya habíamos quedado con el grupo de reunirnos llegue aproximadamente a las 6:00 no me lo van a creer pero había ya miles y miles de motos estaba al fondo una especie de escenario donde estaban hablando pero no puse mucha atención ya que buscaba a mis amigos los encontré y dispusimos salir antes que todo el resto.
Buenas Carreteras pasamos a desayunar a un lugar llamado marielas. Alli me tome esta foto:
En la Moto de un amigo que se llama Fredy que Pinto y areglo su moto exclusivamente para este evento.
Allí mismo en marídelos tuvimos una grata sorpresa pues no encontramos con un buen amigo que se llama Mynor Gil.
Luego continuamos hasta Zacapa donde paramos a comprar provisiones, continuamos el largo camino hasta llegar a Esquipulas. Aproxima mente 5 horas camino y estábamos en tierra santa. Aquí una foto de una de las tantas paradas del camino.
Cuando llegue a Esquipulas habían unas carpas y publicidad de Honda una disco poniendo música unas barbis como las que miran acá en la foto nos recibieron, buen recibimiento jiji
Fuimos a buscar un hotel que problema de verdad les recomiendo que reserven = ) al final encontramos uno donde habían 6 camas y era de verdad un cuartucho donde apenas se podía respirar. Pero como solo íbamos a dormir aceptamos. Luego a comer y pase a un cajero a sacar dinero pero la cola del cajero era mas o menos de unas 20 persona otra vez les recomiendo sacar dinero antes.
A eso del as 4Pm entro la caravana a esquipulas, se pueden imaginar 43mil motos, todo tipo de motos , desde pasolas a hasta motos de carreras. aquí en la moto pueden ver solo fue la entrada de la caravana. Cualquiera pensaría que aquí termina todo pero NO, aquí inicia todo, se da el donativo, inicia la misa, y luego la diversión pues la Honda pone un grupo a cantar y las chicas honda a bailar.
El concierto inicia a las 8:00 pm pero inicio a las 9 pero muy bueno por cierto, aquí en la imagen pueden ver como estaba de lleno con un buen ambiente, ahora les queda como reto encontrarme en esa foto jiji. Tocaron todo tipo de música clásicas en Ingles, Rancheras, duranguense, pero el climas llego cuando tocaron ROOOOOOOCK, empezaron todos a cantar , gritar y a tirar cerveza realmente fue un buen momento.
El concierto fue patrocinado por Suzuki que regalo 8 motos y llevo a sus chicas. Después del concierto cualquiera creería que es hora de ir a dormir pero en esquipulas no es la 1:00AM y todo está abierto y todo continua como que si fuera las 4 de la tarde, tipo 1:30 de la mañana cierran una calle y la usan exclusivamente para Show de motos, todo el que tenga moto y sepa hacer un truco esta allí quemado llantas, haciendo caballitos, encendiendo cigarro con el escape. A las 3:30 paso una patrulla de la policía y no la dejaron pasar y le tiraron cerveza a los tiras me dije a mi mismo, “MI mismo es hora de irnos” así que me fui a dormir antes que la cosa se ponga fea. Ya en el cuarto con sueño ocurre que nadie deja dormir hacen chistes tiran cosas y de repente son las 6:00 am y no has dormido nada y es hora de regresar.
Aquí les pongo otra foto para que les de envidia.
Y la clasica que no podia faltar, a por cierto aquí donde estoy en esta foto hay miles de carpas de gente que se va quedar en el parque.
jueves, 12 de febrero de 2009
Papelito
Un hombre estaba sentado tranquilo leyendo su periódico cuando su esposa, furiosa, llega de la cocina y le revienta un sartenazo por la nuca!!
Zaaaas!!!!
-Por Dios! Que mierda te pasa Estas loca o que Putas!.....
-Loca los pelos!!! Que Pisados significa este papelito que encontré en el bolsillo de tu pantalón con el nombre de 'Marylou' y un número!
-Amorcito, te acuerdas del día que fui a la carrera de caballos?
Pues si, Marylou era el caballo al que aposté, y el número es cuánto estaban pagando por la apuesta.
Satisfecha, la mujer se retiró pidiendo 1001 disculpas...
Días después, allá estaba él nuevamente sentado cuando ZAS!!!! recibe un nuevo golpe, esta vez con una olla a presión...
>>Mas espantado que zonzo todavía, el le pregunta:
HIJA DE LA GRAN PUTA!!!!!!! QUE MORONGAZO! ¿Que fué ahora ???
-SHO SEROTE !!! QUE ACABA DE LLAMAR TU CABALLO PEDAZO DE MIERDA!
Ver
Zaaaas!!!!
-Por Dios! Que mierda te pasa Estas loca o que Putas!.....
-Loca los pelos!!! Que Pisados significa este papelito que encontré en el bolsillo de tu pantalón con el nombre de 'Marylou' y un número!
-Amorcito, te acuerdas del día que fui a la carrera de caballos?
Pues si, Marylou era el caballo al que aposté, y el número es cuánto estaban pagando por la apuesta.
Satisfecha, la mujer se retiró pidiendo 1001 disculpas...
Días después, allá estaba él nuevamente sentado cuando ZAS!!!! recibe un nuevo golpe, esta vez con una olla a presión...
>>Mas espantado que zonzo todavía, el le pregunta:
HIJA DE LA GRAN PUTA!!!!!!! QUE MORONGAZO! ¿Que fué ahora ???
-SHO SEROTE !!! QUE ACABA DE LLAMAR TU CABALLO PEDAZO DE MIERDA!
Suscribirse a:
Entradas (Atom)