Algunas veces con equipos dentro de un dominio el servicio de NetLogon se desactiva al instalar algun nuevo software que tenga como complemento un firewall, en la mayoria de los casos el problema se suscita debido a que el software que se instalo deshabilita el servicio WorkStation del cual depende NetLogon, el WorkStation no es mas que un servicio que genera y mantiene las conexiones de un cliente de red hacia servidores remotos en el caso de los dominios los DC o Domain controllers, para solucionar este inconveniente solo es necesario renombrar un archivo driver en el System32.

1. Ingresas a C:\Windows\System32\drivers

2. Buscas el archivo “rdbss”

3. Lo copias y lo pegas en otra ruta por ejemplo “My documents”, esto para tener un backup en caso de fallos.

4. Tomas el archivo en la carpeta “C:\Windows\System32\drivers” y lo renombras a “rdbss.sys”  y te saltas los siguientes pasos hasta el paso numero 7.

5. Si ya estaba nombrado como “.sys”, has una copia del archivo en tu escritorio y a este copia le cambias el nombre a “rdbss.exe”

6. Borras el archivo de la carpeta “C:\Windows\System32\drivers”, mueves el archivo de tu escritorio de vuelta a “C:\Windows\System32\drivers” y lo renombras nuevamente como .sys

7. Click en “Start” select “run” y escribes “services.msc” Esto abrira la consola de servicios.

8. Busca el proceso llamado “WorkStation” y le das “start”.

 9. Busca el proceso llamado “NetLogon” y le das “start”.

10. Reinicia el equipo.

Si es necesario ejecutar un proceso continuamente la mejor solución es un servicio de windows que se ejecute cada cierto tiempo.

Para crear esto debemos irnos a crear un nuevo proyecto:

Una vez hemos creado el proyecto procedemos a incluir un componente tipo “eventlog” que nos permitirá registrar los eventos que el servicio ejecute.

Damos “double click” para ver el código y en antes de cualquier funcion

Private oTimer As System.Threading.Timer

En el “OnStart” incluimos lo siguiente:

Dim oCallback As New TimerCallback(AddressOf nombre_funcion)
oTimer = New System.Threading.Timer(oCallback, Nothing, 60000, 60000)
EventLog1.WriteEntry(“In OnStart”)

El 60000 representa que el timer se ejecutará cada minuto.

Creamos la siguiente función de inicialización

Public Sub New()
MyBase.New()
InitializeComponent()
EventLog1.Source = “Nombre del Servicio”
EventLog1.Log = “”
End Sub

En la vista “Design” le damos boton derecho y seleccionamos “Add Installer”

Una vez creado selecciona el Serviceinstaller1 y en propiedades cambia el nombre y display name por los que quieres que se vean en el listado de servicios.

En servicesprocessinstaller1 cambia account a Localsystem.

Una vez hecho esto le damos “build” y creamos el ejecutable

INSTALANDO EL SERVICIO

Para instalar el servicio debes usar el installUtil del Framework el cual puedes encontrar en windows\microsoft.net\framework\version utilizada

El comando que debes utilizar es installUtil “ruta del ejecutable”

Una vez completado solo inicia el sevicio en el área administrativa del panel de control

Esta pequeña función te permite obtener el valor de un campo de una tabla x.

Function obtener_valor_sql(ByVal sql As String) As String
Dim cnn As New SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand
Dim dt As New DataTable

cnn = cn.conectar_sqlserver
dt = obtener_datasource_sql(sql)
If dt.Rows.Count > 0 Then
cnn.Close()
cnn.Dispose()
cnn = Nothing
Return dt.Rows(0).Item(0).ToString
Else
cnn.Close()
cnn.Dispose()
cnn = Nothing
Return “”
End If

End Function

Dandole seguimiento al post “como agregar un combo box a un gridview” les voy a mostrar como leer el valor seleccionado en el combobox.

Para esto utilizo un pequeño truco que consiste en agregar un botón tipo delete con el cual voy a acceder el indice de la línea del gridview que estoy tratando de leer.

Utilizando esta pequeña funcion podremos tener acceso al valor del combobox.

Protected Sub sacar_valor_combobox(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) _
Handles drg_queue.RowDeleting
Dim id As String
id = drg_queue.Rows(e.RowIndex.ToString).Cells(0).Text

Dim ddl As DropDownList = drg_queue.Rows(e.RowIndex.ToString).Cells(6).FindControl(“cmb_agentes_asignar”)

lbl_valor_combo.Text = ddl.SelectedValue.ToString

End Sub

Disfrutando de mi tiempo libre me dedique a tomar algunas fotos del medio tropical que pienso pueden ser utilizadas como wallpaper. Seleccione las dos que más me gustarón de ser de su agrado envienme un correo dtqc00@gmail.com para enviarle la versión de alta resolución.