“Windows Script Host: No se encuentra el motor de secuencias de comandos “VBScript” para la secuencia…”

Después de buscar y buscar, he dado con una posible solución.
Por el camino he encontrado cientos de soluciones pero sin ningún éxito. Pero también me demuestra que este error es síntoma de varios problemas del sistema.

Enumerare los paso que he seguido:

1.- Primero buscaremos en el sistema, en concreto en C:\Windows\System32\, los ficheros:

vbscript.dll
cscript.exe
wscript.exe

Se pueden buscar mas, pero creo que estos ya son indicativos.

2.- Si los encontramos, la cosa pinta bien.
Si no es así, mala cosas… ya que posiblemente debemos volver a instalar el windows script host.
(Esto es otra historia mas sencilla de encontrar en la web de microsoft).

3.- ¡Y la solución!
Simplemente hay que añadir la siguiente clave en el registro:

Windows Registry Editor Version 5.00
 [HKEY_CLASSES_ROOT\CLSID\{B54F3741-5B07-11cf-A4B0-00AA004A55E8}\InprocServer32]
 @="C:\\Windows\\system32\\vbscript.dll"
 "ThreadingModel"="Both"

CAUSAS:
Las causas pueden ser multiples, desde un un antivirus para proteger erróneamente el sistema borre esta clave (que fue lo que me sucedio a mi) hasta el ataque de un virus.
De todas formas, con la utilidad del sistema Regedit, buscamos la clave “B54F3741-5B07-11cf-A4B0-00AA004A55E8″ puede que nos demos cuenta de que existen referencias a la misma pero que la propia clave no existe.

Comentar que esto me sucedía al ejecutar un vbscript a través de wscript.exe, pero lo mismo sucede si lo hacemos a través de cscript.exe.

Son muchos los que alguna vez me han preguntado como hacerlo y la verdad es muy sencillo. Que si necesitan ayudar a sus padres con el PC nuevo que le han regalado, que si quieren “ver” lo que hace su hijo, que si el hermano o la hermana tiene un portátil nuevo que le va como una “patata” y hay que echarle un vistazo. En fin que siempre hay oportunidades para necesitar realizar un acceso remoto.

Por otro lado, para los noefitos, quedas como un super-hacker de los que salen el las peliculas jejeje. Solo nos faltaria escribir codigo fuente como si nos fuera la vida en ello, comer pizza delante del ordenador (con migas y trozos sobre el teclado incluido) y hablar con el ordenador como si de tu mascota se tratase jajaja (Aun hay gente que piensa que los hackers son así “yo me parto!”).

Os enumerare las aplicaciones o servicios que son mis preferidas, son las que mas utilizo y no me suelen fallar. Y os explicare en que casos utilizo cada una de ellas.

UltraVNC (uVNC)
Descripción:
Esta es mi aplicación preferida para entornos profesionales.
Consta de dos aplicaciones, una denominada “servidor” y otra “cliente”. Nosotros para conectarnos a otro PC utilizaremos la aplicación cliente y en el PC que nos deseamos conectar/gobernar se debe estar ejecutando la aplicación servidor.
Utiliza el protocolo VNC y por tanto es altamente compatible con otras aplicación VNC, como RealVNC, etc… Es decir, podemos manejar PC que tengan “otra marca” de servidor VNC y al contrario, se pueden gobernar PC con el servidor uVNC utilizando otras aplciaciones cliente VNC. (Doy fe de ello, lo tengo probado).
Es gratuito y no necesita acceso a internet
http://es.wikipedia.org/wiki/UltraVNC

¿Cuando lo utilizo?:
Lo utilizo como mi sistema estándar de control remoto. Por norma en una red de área local donde los equipos (y sus IPs) son estables (la empresa, la oficina, la tienda…).
En mi caso, yo siempre preparo los equipos con una instancia del servidor uVNC ejecutándose (ya sea como servicio o como aplicación que se arranca con la sesión de windows).
Es muy cómodo para esta situación, donde tienes tu lista de maquinas, sus contraseñas y en cuanto tiene una incidencia solo tienes que arrancar el cliente uVNC, escribir la IP y la contraseña de acceso al equipo y listo!. También hay que comentar que las conexiones se pueden guardar en un fichero para que con un simple doble-click volvamos a conectar.
Sin tocar mucho la configuración por defecto se puede manejar el sistema e interactuar con el usuario que esta frente al PC. Muy útil en momentos de asistencia al usuario.

Enlaces:
http://www.uvnc.com/

RDP

Descripción:
RDP, remote desktop protocol o protocolo de acceso a escritorio remoto.
Es un protocolo de acceso a sistemas informáticos desarrollado por Microsoft y por tanto en todas las versiones de su Microsoft Windows aparace la posibilidad de utilizarlo.
No necesita acceso a internet
http://es.wikipedia.org/wiki/Remote_Desktop_Protocol

¿Cuando lo utilizo?:
Es bastante fluido incluso en accesos muy remotos alejados a muchos kilómetros.
Se puede utilizar toda la pantalla de tu equipo (el que se conecta, el cliente) independientemente del tipo de pantalla y la resolución del sistema remoto (muy interesante y cómodo).
Pero a mi no me gusta tanto, ya que normalmente al acceder a un equipo a través de RDP, se bloquea la sesión en ejecución lo que impide interactuar con el usuario del PC. Ademas al finalizar la conexión el equipo no desbloquea la sesión.
Lo veo como un sistema bueno y a la vez engorroso para manejar con equipos de sobremesa, aunque es mi preferido para acceder a servidores con el sistema Microsoft. Ahí normalmente no necesito interactuar con el usuario (no hay ninguno).

Enlaces:
http://www.microsoft.com/

LogMeIn
Descripción:
Otro sistema de acceso remoto pero esta vez a través de la ventana del navegador web.
Tiene varias modalidades de uso. Aunque con la gratuita se pueden hacer bastantes cosas (LogMeIn Free).
Se necesita estar dado de alta en el sistema de LogMeIn (ver su pagina web).
Ademas de tener ejecutando la aplicación correspondiente (aplicación servidor). Tiene sus limitaciones ya que al utilizarse a través del navegador web la velocidad es un poco menor a la que puede ofrecer el uVNC o un RDP.
El acceso se debe hacer desde la pagina web de LogMeIn, donde aparecerá tu lista de equipos y su estado (la verdad, muy cómodo).
Pero tiene la ventaja que se salta todos los cortafuegos que haya entre los equipos.
No es necesario conocer direcciones IP.
Muy comodo, solo acceder a la web, buscar el PC deseado, conectarse (contraseña, claro!) y listo!
Necesita acceso a internet
http://logmein-free.softonic.com/

¿Cuando lo utilizo?:
Yo lo uso como acceso a mis equipos privados.
Muy cómodo ya que solo me tengo que preocupar (y poco…) de que se este ejecutando la aplcación de LogMeIn en el PC.
No necesito conocer IPs (ni locales, ni externa, ni dimanicas, ni nada), me evito tener que instalar servicios de DNS dinámico. Si estoy fuera de mi casa y quiero acceder al mi PC me conecto a la web y listo.
Y no necesito reconfigurar los puertos del cortafuegos y del router, todo un drama cada vez que se me cambio de proveedor de Internet y te cambia el router.

Enlaces:
https://secure.logmein.com/

TeamViewer
Descripción:
Otro servicio de acceso remoto que tiene varias modalidades de uso y al igual que el anterior, con el servidor gratuito es sufiente.
La ventaja de este sistema. No necesita instalaciones ni registros en paginas web.
Necesita acceso a Internet
http://teamviewer.softonic.com/

¿Cuando lo utilizo?:
La verdad es un sistema excelente sobre todo para trabajos de mantenimiento o asistentencia al usuario de manera muy esporádica.
Tiene versiones instalables pero yo recomiendo la portable. Imprescindible tener en tu pendrive particular!!!
Os explico la portable, que merece la pena comentarlo (aunque la instable es igual).
Se compone de dos aplicaciones, una la TeamViewer, tal cual que usaremos nosotros para conectarnos (cliente) y otra la TeamViwerQS (Quick Support, el servidor) que enviaremos al PC al que le vamos a dar el soporte (por mail, en un pen, etc…).
El usuario del equipo remoto ejecuta TeamViewerQS y la aplicación le devolverá un ID y una contraseña.
Este ID y esta contraseña nos la dara el usuairo (por telefono, mail, etc…) y nosotros con la otra aplciacion (TeamViewer) solo tendremos que introducir el ID y la contraseña para conectarnos.
En acceso es fluido y sinceramente muy comodo. De mas de un problemilla me a sacado.
Tambien, como LogMeIn, se salta los cortafuegos.
En definitivamente un excelente servicio/aplicación para asistencias técnicas esporádicas o cuando falla todo lo demás.

Enlaces:
http://www.teamviewer.com/

También añadiria…
Putty
Descripción:
Aunque lo utilizo rara vez. Es un cliente para protocolos SSH y Telnet. Para el que este un poco al tanto de este tipo de protocolos, el acceso es directo a la maquina pero no a ningun entorno grafico. Es decir, al estilo antiguo como MS-DOS.
http://es.wikipedia.org/wiki/PuTTY

¿Cuando lo utilizo?:
Como decia, le utilizo rara vez, normalmente para el manejo de algún sistema como un router de Internet, algún servidor linux, etc… aunque los sistemas gráficos ya se están imponiendo ya sea con accesos remotos a escritorio o atraves de paginas web. De todas maneras, ahí esta, que nunca se sabes cuando puede saltar la necesidad de volver a los “origenes”.
Una cosa interesante que tiene Putty es que puede almacenar las sesión y así con un simple clic abrir sesión, sin tener que recordar direcciones ni contraseñas.

Enlaces:
http://www.putty.org/

Y como aplicación que engloba todo, lo agrupa en una sola ventana, para tener todos los accesos de bien organizados:
mRemoteNG
Descripción:
Esta aplicación no es una aplicación de acceso remoto sino un gestor de conexiones y accesos remotos. Un lugar donde se pueden manejar, ordenar, o ejecutar distintos tipos de conexiones ya que admite una buena variedad de protocolos.
http://www.mremoteng.org/

¿Cuando lo utilizo?:
Es mi aplicación de cabecera. En ella tengo recopiladas todas las conexiones de mi trabajo.
Rápido y ordenado!

Enlaces:
http://www.mremoteng.org/

Si además tienes prisa, esto puede por acabar con tus nervios.
La solución rápida (mejor dicho, facilona): “formatear”.
Pero… y “¿Si hay alguna otra solución? Es que formatear y reinstalar… bufff!”

Pues sí, el siguiente blog se explica una de las posibles soluciones.
Y doy fe que en apenas 15 o 30 minutos podemos tener todo reestablecido y en marcha.

Con esta entrada simplemente quiero dar a conocer esta solución y a la vez agradecer “Capotanet El Blog” esta buena entrada.

http://capotanet.wordpress.com/2007/10/01/%C2%BFcomo-reparar-una-pantalla-azul-con-unmountable-boot-volume/

Nota:
En realizad este pantallazo azul me le he encontrado solamente dos veces en mi vida.
La primera no encontre a tiempo esta solucion y tuve que formatear.
La segunda vez, si encontre esta pagina y ya la tengo guardada en mi evernote (por si las moscas!).

Dropbox nos ofrece distintas modalidades de almacenamiento. De las cuales, la más básica, nos ofrece poco más de 2GBytes de forma gratuita.
Los 2GB pueden ser más que suficientes, pero tengo un truco que nos puede ayudar a disponer de más espacio.

Llevo mucho tiempo  utilizando Dropbox en su versión de 2GB. Aunque a veces se me queda corto, pero siempre he podido solucionar el contratiempo con el uso un buen compresor.
Y sinceramente me encanta!!!. Dropbox junto con Evernote y Google Docs son los servicios cloud que, para mí, son imprescindibles y nunca faltan en cualquiera de los equipos que utilizo habitualmente, incluso en mi móvil Android.

Últimamente he probado SugarSync, otro servicio de almacenamiento on-line que también tiene parte de su servicio de manera gratuita. Llegando a ofrecer 5GB de manera totalmente gratuita.
Sin embargo no termina de convencerme. Me parece (en comparación con Dropbox) demasiado complicado o farragoso a la hora de utilizar (¡Con lo simple que es Dropbox!, sincronizar el directorio que deseas y punto).

Bien… al grano!

¿Qué necesitamos?
- Windows XP/Vista/7
- Dropbox para Windows.
- Varias cuentas de Dropbox
- Varias cuentas de correo electrónico.
- Varias cuentas de usuario Windows. Una por cada cuenta de Dropbox.
- PsExec de PsTools de SysInternals.

¿Por qué todo esto?
- ¿Varias cuentas de correo electrónico? Porque el truco consiste en ejecutar simultáneamente varias cuentas de Dropbox (abstenerse usuarios de SugarSync, no funciona). Y Dropbox exige que cada cuenta del servicio solo puede ser referenciada (o permitir el acceso) a una sola cuenta o dirección de correo.

- ¿PsExec? Porque por si solo Dropbox solo permite ejecutar una sola cuenta para una misma sesión de Windows. Pero si ejecutamos Dropbox con otro usuario (como con el famoso “Ejecutar como…”) las cosas cambian.
Y PsExec es un método sencillo y eficaz para ejecutar cuantas cuentas o instancias queramos en una misma sesión de una manera automática.
Observación: Siiii!!! Ya seeeee…., podría utilizar el comando “runas” pero no me gusta nada. Porque cada vez que ejecutas este comando debemos de escribir la contraseña del usuario Windows.

Los Pasos a Seguir:
Primero debemos tener creadas y activas las cuentas de Dropbox. Es un proceso muy simple que se hace desde la página web del servicio.
No explicare este proceso.

Seguidamente creamos los directorios que queremos sincronizar.
Crearemos tantos directorios como cuentas tengamos.

Después, instalamos la aplicación Dropbox.
En el proceso de instalación habrá un momento en el que nos pedirá los datos (mail y contraseña) de la cuenta.
Daremos los datos de una de nuestras cuentas y a esta cuenta le asignamos uno de los directorios anteriormente creados.

También debemos recordar deshabilitar el arranque automático al iniciar Windows. Si lo olvidamos puede que nos liemos un poco con la sesión que se arranque (mejor arrancar Dropbox cuando nosotros deseemos).

Cerramos la sesión de Dropbox y volvemos a repetir el proceso para la siguiente cuenta. Así hasta que tengamos configuradas todas las cuentas.

Bien! ¿Ya tenemos todo preparado? Ahora solo tenemos que crear un fichero bacth que nos arranque todas las cuentas a la vez.
¿Cómo? Por ejemplo, con el “Bloc de notas” creamos un fichero que se llame “Run_All.cmd” y en su interior escribimos lo siguiente:
[Ejemplo para Windows Xp]

CALL "C:\My_Programs\SysinternalsSuite\PsExec.exe" -d -u WINUSER01 -p PASS01 "C:\Documents and Settings\WINUSER01\Application Data\Dropbox\bin\Dropbox.exe"
CALL "C:\My_Programs\SysinternalsSuite\PsExec.exe" -d -u WINUSER02 -p PASS02 "C:\Documents and Settings\WINUSER01\Application Data\Dropbox\bin\Dropbox.exe"

[Ejemplo para Windows Vista/7]

CALL "C:\My_Programs\SysinternalsSuite\PsExec.exe" -d -u WINUSER01 -p PASS01 "C:\Users\WINUSER01\AppData\Roaming\Dropbox\bin\Dropbox.exe"
CALL "C:\My_Programs\SysinternalsSuite\PsExec.exe" -d -u WINUSER02 -p PASS02 "C:\Users\WINUSER01\AppData\Roaming\Dropbox\bin\Dropbox.exe"

Ligera explicación:
- Como se puede ver, PsExec.exe y demás herramientas de PsTools están instaladas en el directorio “C:\My_Programs\”. Tu puedes instalarlas dos desees.
- Utilizo una sola sesión de Dropbox. También hay que tener en cuenta que Dropbox no se instala en un lugar convencional, solo hay que ver la ruta del ejecutable.

Si cada vez que queramos utilizar Dropbox solo tenemos que ejecutar el anterior fichero batch.
Y si desea que se arranque al inicio de la sesión solamente con copiar o crear el acceso directo en “Inicio” es suficiente. Podéis ver como se hace esto en la entrada “Arranque Automático del PC con Bloqueo de Sesión Windows” en la cual explico cómo.

Enlaces:
- Dropbox: http://www.dropbox.com/
- SugarSync: https://www.sugarsync.com/
- Evernote: http://www.evernote.com/
- Google Docs: http://docs.google.com

Pero a veces es imposible, sobre todo si trabajamos con sistemas de distintos países o idiomas.
Un pequeño símbolo que nos separa la parte entera de la parte fraccional de un número decimal, puede tirarnos por los suelo todo un programa. Y solo por no haber tenido en cuenta los idiomas de los sistemas con los que íbamos a trabajar.

Sé que una cosa así puede parecer una tontería, pero una de las cosas que aprendí (y sufrí) hace ya bastante tiempo fue que una confusión en un punto decimal puede tener resultados catastróficos.

Por ejemplo, como un número decimal como el “-1,574″, después de ser procesado, se puede convertir en “-1574″.
Y claro, no es lo mismo bajar una profundidad de -1,574 mm que bajar a -1574 mm.
Y lo mismo si estuviéramos hablando de dinero, no es lo mismo un “agujero” de -1,574€ o $ que -1574€ o $. ¡Menudo desastre! (haz un programa así y dale los informes resultantes a tu jefe, a ver qué cara se le pone).

¿Dónde podemos encontrar el problema?

Algunos casos practicos:

- Cuando trabajamos con número que son procesados en sistemas operativos con distintos idiomas.
Por ejemplo, programamos una aplicación en un sistema español.
Esta aplicación crea ficheros con número con la coma decimal.
Seguidamente estos ficheros son procesados por la misma aplicación pero en un sistema inglés. El sistema inglés tiene un formato de decimales distinto y surge el error de conversión.

- Cuando obtenemos datos de una base de datos.
Por ejemplo, nosotros programamos en un Windows con idioma “español (España)” con el formato estándar, es decir el símbolo decimal es la coma “,”.
Y realizamos una consulta a una bases de datos que tiene el idioma de instalación en inglés, es decir el símbolo decimal es el punto “.”.
Depende de cómo tengamos la conexión, el tipo de datos, etc. pero puede que los datos numéricos los recibamos como texto y necesitemos una conversión. De nuevo tenemos un error de conversión.

- Al manejar un folio Excel con VBA (Visual Basic for Applications).
Por razones similares. Sobre todo con sistemas en castellano (Idioma: español – España), en los folios Excel el separador decimal se identifica con una coma “,”; al contrario de lo que sucede en otros idiomas, como el inglés, italiano, etc. que se identificar con un punto “.”.
Por tanto, mucho ojo al formato y el valor de las celdas.

- Al lanzar aplicaciones de otros idiomas.
Un caso frecuente, hacemos una aplicación en VB (en español) para automatizar una proceso.
Esta aplicación construye un pequeño script y lanza una aplicación que lee dicho script (normalmente, una aplicación en inglés).
¿Qué sucede? Pues que si no hemos tenido cuidado y en el script se pasan datos numéricos, seguro que el script estará en “formato español” y la aplicación inglesa no lo interpretara correctamente, ya que necesita el script en “formato inglés”.

“Sí…. Ya sé…. Hay funciones del visual que hacen esto.” Que nos convierten los números a texto y viceversa.

Sí es cierto, la funciones de conversión de tipos:

CBool( )
CByte( )
CCur( )
CDate( )
CDbl( )
CDec( )
CInt( )
CLng( )
CSng( )
CStr( )
CVar( )

Pero a mi hace tiempo que se me quedaron cortas y lo único que me servían eran para tener otro riesgo que podría saltar cualquier momento. Y sinceramente… dependiendo de qué tipo de aplicación estemos desarrollando un fallo tonto como una confusión en el símbolo decimal puede poner en alto riesgo la integridad de personas.

Mi solución, como siempre digo, es mi solución, la que he encontrado, la que me ha dado excelente resultados durante años…
Es crearme mis propias funciones de conversión de número a texto y de texto a número. Y así poder procesar los texto/números a mi antojo, pudiendo pasarles los formatos de entrada que quiera y obtener los formatos de salida deseados.

Puede ser duro al principio y puede que haya que depurarlas hasta que estemos seguros de su correcto funcionamiento. Pero una vez conseguidas son unas funciones “para toda la vida”.
Yo, en concreto, solo tengo 2 funciones. Una para convertir un “String” a “Double” y otra para pasar de “Double” (o número, en general) al “String”. Y sinceramente, lo sufrí tanto que ahora solo uso estas funciones y utilizar las funciones de conversión estándar me cuesta muchísimo.

‘————————————————-§§§—-’
‘ FUNCION PARA CONVERTIR UN NUMERO EN TEXTO
‘————————————————-§§§—-’

Public Function De_Num_a_Tx_01(ByVal lNumero As Double, _
                               Optional ByVal bEntero As Boolean = False, _
                               Optional ByVal nDecimales As Integer = 3) As String
    '-------------------------------------------------§§§----'
    ' FUNCION PARA CONVERTIR UN NUMERO EN TEXTO
    '-------------------------------------------------§§§----'
    '
    On Error GoTo Fin
    '
    Dim sNumero As String
    Dim nLong1 As Integer
    Dim nCont1 As Integer
    '
    If bEntero = True Then
        sNumero = CStr(Format(lNumero, "########0"))
        ''
    Else
        Select Case nDecimales
            Case -1: sNumero = CStr(Format(lNumero, "########0.#########"))
            Case 1: sNumero = CStr(Format(lNumero, "########0.#"))
            Case 2: sNumero = CStr(Format(lNumero, "########0.0#"))
            Case 3: sNumero = CStr(Format(lNumero, "########0.00#"))
            Case 4: sNumero = CStr(Format(lNumero, "########0.000#"))
            Case 5: sNumero = CStr(Format(lNumero, "########0.0000#"))
            Case 6: sNumero = CStr(Format(lNumero, "########0.00000#"))
            Case 7: sNumero = CStr(Format(lNumero, "########0.000000#"))
            Case 8: sNumero = CStr(Format(lNumero, "########0.0000000#"))
            Case 9: sNumero = CStr(Format(lNumero, "########0.00000000#"))
            Case 9: sNumero = CStr(Format(lNumero, "########0.00000000#"))
            Case 10: sNumero = CStr(Format(lNumero, "########0.000000000#"))
            Case 11: sNumero = CStr(Format(lNumero, "########0.0000000000#"))
            Case 12: sNumero = CStr(Format(lNumero, "########0.00000000000#"))
            Case Else: sNumero = CStr(Format(lNumero, "########0.00#"))
        End Select
        ''
    End If
    '
    nLong1 = Len(sNumero)
    '
    For nCont1 = 1 To nLong1
        If Mid$(sNumero, nCont1, 1) = "," Then Mid(sNumero, nCont1, 1) = "."
        ''
    Next nCont1
    '
    If bEntero = True Then
        De_Num_a_Tx_01 = sNumero
        ''
    ElseIf InStr(sNumero, ".") > 0 Then
        If (Len(sNumero) = InStr(sNumero, ".")) And (nDecimales = -1) Then
            De_Num_a_Tx_01 = Mid$(sNumero, 1, InStr(sNumero, ".") - 1)
            ''
        Else
            De_Num_a_Tx_01 = sNumero
            ''
        End If
        ''
    Else
        De_Num_a_Tx_01 = sNumero & ".0"
        ''
    End If
    '
Exit Function
'
Fin:
    De_Num_a_Tx_01 = "###.###"
    ''
End Function

‘————————————————-§§§—-’
‘ FUNCION PARA CONVERTIR UN TEXTO EN NUMERO DECIMAL
‘————————————————-§§§—-’

Public Function De_Txt_a_Num_01(ByVal sTexto As String, _
                                   Optional ByVal nDecimales As Integer = 3, _
                                   Optional ByVal sP_Formato_Decimal As String = "") As Double
    '-------------------------------------------------§§§----'
    ' FUNCION PARA CONVERTIR UN TEXTO EN NUMERO DECIMAL
    '-------------------------------------------------§§§----'
    '
    Dim bCte2 As Boolean
    '
    Dim nContador1 As Integer
    Dim nContador2 As Integer
    Dim nLong_Total As Integer
    Dim nPos_Punto As Integer
    Dim nCte1 As Integer
    Dim nDecimal As Integer
    '
    Dim lNumeruco As Double
    '
    Dim sNumero As String
    Dim sL_Aux_01 As String
    '
    Dim sL_Array_Pto_01() As String
    Dim sL_Array_Coma_01() As String
    '
    On Error GoTo Error_Numero
    '
    '-------------------------------------------------§§§----'
    Select Case sP_Formato_Decimal
        Case "."    ' USAMOS "." COMO SEPARADOR DE DECIMALES
                    ' Y LA "," LA ELIMINAMOS
            sL_Array_Pto_01 = Split(sTexto, ".")
            sL_Array_Coma_01 = Split(sTexto, ",")
            '
            sL_Aux_01 = ""
            For nContador1 = LBound(sL_Array_Coma_01) To UBound(sL_Array_Coma_01)
                sL_Aux_01 = sL_Aux_01 & sL_Array_Coma_01(nContador1)
                ''
            Next nContador1
            '
            sTexto = sL_Aux_01
            ''
        Case ","    ' USAMOS "," COMO SEPARADOR DE DECIMALES
                    ' Y EL "." LE ELIMINAMOS
            sL_Array_Pto_01 = Split(sTexto, ".")
            sL_Array_Coma_01 = Split(sTexto, ",")
            '
            sL_Aux_01 = ""
            For nContador1 = LBound(sL_Array_Pto_01) To UBound(sL_Array_Pto_01)
                sL_Aux_01 = sL_Aux_01 & sL_Array_Pto_01(nContador1)
                ''
            Next nContador1
            '
            sTexto = sL_Aux_01
            ''
    End Select
    '-------------------------------------------------§§§----'
    '
    lNumeruco = 0
    '
    If nDecimales >= 0 Then
        nDecimal = nDecimales
        ''
    Else
        nDecimal = 3
        ''
    End If
    '
    sTexto = Trim(sTexto)
    '
    If InStr(1, sTexto, "-") > 0 Then
        'Es un numero negativo
        bCte2 = True
        sTexto = Mid$(sTexto, 2)
        ''
    ElseIf InStr(1, sTexto, "+") > 0 Then
        'Es un numero positivo (con signo)
        bCte2 = False
        sTexto = Mid$(sTexto, 2)
        ''
    Else
        'Es un numero positivo
        bCte2 = False
        ''
    End If
    '
    nLong_Total = Len(sTexto)
    '
    For nContador1 = 1 To nLong_Total
        If Mid(sTexto, nContador1, 1) = "," Then Mid(sTexto, nContador1, 1) = "."
        ''
    Next nContador1
    '
    If InStr(1, sTexto, ".") <= 0 Then sTexto = sTexto & ".0"
    '
    nPos_Punto = InStr(1, sTexto, ".")
    '
    nContador2 = 0
    For nContador1 = 1 To nLong_Total
        If Mid$(sTexto, nContador1, 1) <> "." Then
            'No estamos en el caracte "."
            If nContador1 < nPos_Punto And nPos_Punto <> 0 Then
                nCte1 = 1
                ''
            Else
                nContador2 = nContador2 + 1
                nCte1 = 0
                ''
            End If
            '
            sNumero = Mid$(sTexto, nContador1, 1)
            '
            If nContador2 > nDecimal Then
                If sNumero > 5 Then lNumeruco = lNumeruco + (CSng(1) * (10 ^ (nPos_Punto - nContador1 - nCte1 + 1)))
                nContador1 = nLong_Total
                ''
            Else
                lNumeruco = lNumeruco + (CSng(sNumero) * (10 ^ (nPos_Punto - nContador1 - nCte1)))
                ''
            End If
            ''
        End If
        ''
    Next nContador1
    '
    If bCte2 = True Then
        De_Txt_a_Num_01 = (-1) * lNumeruco
        ''
    Else
        De_Txt_a_Num_01 = (1) * lNumeruco
        ''
    End If
    '
    If (nDecimales >= 0) Then De_Txt_a_Num_01 = Round(De_Txt_a_Num_01, nDecimales)
    '
Exit Function
'
Error_Numero:
    '
    '-------------------------------------------------§§§----'
    ' ERROR DE NUMERO
    '-------------------------------------------------§§§----'
    '
    De_Txt_a_Num_01 = -1.75E+308
    ''
End Function

Ahora, en esta fechas tipicas de repaso de lo pasado, solo me queda deciros…

¡¡¡FELIZ NAVIDAD Y PROSPERO AÑO NUEVO!!!
MERRY CHRITSMAS AND HAPPY NEW YEAR!!!

Robert Ale

Siempre estoy intentando afinar aun mas mis PCs, quitando aplicaciones innecesarias, revisando las aplicaciones que se arrancan al inicio de la sesión, desfragmentando el disco duro, en registro… en definitiva intentado que mis Windows estén finos.

Pero el otro día me di cuenta de una cosa… tenia poco espacio en mi unidad C:.
Al rebuscar un poco me di cuenta que el directorio “Windows” era demasiado grande. En concreto el directorio “Winsxs”.

¿Que es el directorio “Winsxs”?

- No le conozco…
- ¿No sera un virus?… Ay Dios!!!

- Tranquilos, tranquilos!!! No es un virus!

El directorio Winsxs es un lugar donde los sistemas Windows Vista y 7 guardan información sobre el estado de sistema a medida que se van realizando actualizaciones, instalaciones de service pack y otros software.
Todo para que haya una especie de resguardo seguridad para cuando se desee volver atrás en alguna de las actualizaciones/instalaciones.

Es como si al actualizar o instalar un service pack, por ejemplo, el sistema lo instalara de forma temporal, dándonos posibilidad de volver atrás.

Claro esta, como he podido comprobar, a medida que uno va “cacharreando” con distintas aplicaciones este directorio va engordando y engordando…

Pero podemos aplicarle una pequeña dieta.
Claro como todas las dietas conlleva un esfuerzo, en este caso hacer que las actualizaciones, service pack, etc… del sistema se hagan permanente.
Ojo! hace permanentes las actualizaciones y service pack del Windows y no las aplicaciones normales.

¿Como lo hacemos? Ejecutando:

C:\Windows\System32\compcln.exe

Respondemos que “Sí” y comienza la limpieza.

Algo se recupera, aunque no me pareció suficiente, pero algo es algo…
Porque la verdad, no puedo evitar estar instalando aplicaciones para probarlas. Si no lo hiciera así, seguro que mi Winsxs no engordaria por momentos.

Enlace de interés:
http://www.windowstecnico.com/archive/2009/02/18/el-directorio-fantasma-winsxs.aspx
http://tecniscopio.blogspot.com/2010/04/liberando-espacio-de-la-carpeta-winsxs.html

Apartir de aquella entrada, “VB6 – Manejo de Imágenes [Visual Basic 6.0 y ImageMagick]“, todo cambio…
Sabia que era un tema poco tratado y poco hablado en castellano/español. Prueba de ello son las consultas que dicha entrada causaron y algun que otro proyecto interesante del cual me solicitaron mi ayuda. (Gracias a todos!)

Pero continuemos con las imagenes…
Esta sentado delante del PC, dando cabezazos contra el monitor y diciendo:
- Quiero, quiero… Quiero!
- Bueno… Necesito!
- bueno… me piden…
- bueno… me ordenan… meter un texto dentro de una imagen.

Como anteriormente, siempre trabajaremos con nuestra querida suite ImageMagick y en una linea haremos todo el trabajo:

Private Sub Command1_Click()
    '
    Dim sP_Fichero_Origen_01 As String
    Dim sFichero_Destino_01 As String
    '
    Dim objImageMagick_01 As Object
    '
    '-------------------------------------------------§§§----'
    '
    sP_Fichero_Origen_01 = "D:\Imagen_Origen_01.jpg"
    sFichero_Destino_01 = "D:\Imagen_Destino_01.jpg"
    '
    If (Dir(sP_Fichero_Origen_01)  "") Then
        Set objImageMagick_01 = CreateObject("ImageMagickObject.MagickImage.1")
        '
        ' VER LA WEB: http://www.imagemagick.org/Usage/text/#label
        '
        Dim strL_Texto_01 As String
        '
        strL_Texto_01 = ""
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "En un lugar de la Mancha, "
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "de cuyo nombre no quiero acordarme, "
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "no ha mucho tiempo que vivía un hidalgo de los de lanza en astillero, "
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "adarga antigua, "
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "rocín flaco y galgo corredor. "
        '
        objImageMagick_01.Convert "-fill", "red", "-font", "Arial", "-pointsize", "35", "-draw", "text 15,12 '" & strL_Texto_01 & "'", sP_Fichero_Origen_01, sFichero_Destino_01
        '
        Set objImageMagick_01 = Nothing
        '
    End If
    ''
End Sub

Parametros:

“-fill”, “red” ==> Color de la fuente de texto.
“-font”, “Arial” ==> Que fuente de texto vamos a utilziar.
“-pointsize”, “35″ ==> Tamaño de la fuente de texto.
“-draw”, “text 15,12 ‘” & strL_Texto_01 & “‘” ==> Comando de insercion de texto.
Como se puede ver, primero la posicion del texto (coordenada X=15, Y=12) y el propio texto.
Que yo he obtado por pasarle atraves de una variable.
Mucha atencion, fijaos que el texto va entre comellas simples.
sP_Fichero_Origen_01 ==> Fichero de origen.
sFichero_Destino_01 ==> Fichero de destino.

Como veis, facil, rapido e indoloro
Podriamos ampliarlo mas, com mas parametros, pero esto es lo basico. Para profundizar mas solo teneis que visitar la web de ImageMagick.

Fin de esta entrada rapida… Saludos!!!

A veces te encuentras desarrollando una aplicación, la cual necesitas que este constantemente en ejecución.
Por ejemplo, una aplicación que monitoria un directorio, lee constantemente un registro, una aplicación de telemetría, etc.
Pero ya sea por una falta de un correcto o suficiente control de errores o/y excepciones. A la aplicación le surge “errores” que la bloquean o cierran de forma inesperada, creando una sensación de inestabilidad.
En esta entrada quiero mostraros una manera de como intentar aliviar esto y conseguir que nuestra aplicación se recupere por si sola.

Bien… Por ejemplo, partimos de una aplicación que monitoria un sistema.
La aplicación esta constantemente en ejecución, día y noche. Por tanto, es imposible estar en persona verificando el estado de la aplicación.

Primero debemos hacer nuestro trabajo lo mejor posible…
Controlan todos los errores posibles que pueden surgir en la ejecución, ya sea mediante “decisiones” en tiempo de ejecución (chequeos con “if, while, etc…”) o mediante el control de errores (“On Error Goto…”, “On Error Resume”, etc…).

Bueno… hemos hecho un trabajo de control de errores lo mas exhaustivo posible. Pero llegamos a algún error que, por distintas razones, no sabemos por donde atajarle.
Yo a veces opto por añadir el comando “Stop”, así intentar depurar el error y estudiare de manera particular (pero bueno eso es otro historia…).

Pero si aun así no se soluciona y la única opción que se nos ocurre es cerrar la aplicación (o matar el proceso) y volver a ejecutarla.

Pero, supongamos… ¿Y si la aplicación se da cuenta que llega a un punto sin retorno y ella misma se cierra y se relanza por si misma?

¿Como lo conseguimos?
Muy sencillo, justamente antes de que la aplicación se cierre, ella lanza un proceso que se encargue de relanzar de nuevo la aplicación.

Debe ser un proceso independiente ya que el mismo proceso de la aplicación no puede relanzarse (seria un contrasentido que uno mismo se cerrara y se re-arrancara, a mi parecer algo muy complicado).

Este proceso puede ser cualquier tipo de aplicación, otra aplicación visual, un batch, etc… aunque últimamente yo me inclino por un vbscript.
Vbscript porque utilizamos el mismo lenguaje visual basic. Solo necesito un editor de texto, ni compilar ni nada. Algo muy comodo y rapido.

Dentro de nuestra aplicaciones insertamos la llamada al procedimiento, por ejemplo en las lineas finales del control de errores (cuando ya no tenemos mas opciones):

'
On Error GoTo 0
'
Exit Sub
'
Manejar_Errores_Apertura_01:
'MsgBox "Error al intentar abrir COM" & Connect_RS232.CommPort, vbCritical, "mdlRS232 [Evento_01_Timer_RS232]"
'MsgBox "Error detectado por Visual Basic: " & vbCrLf & Err.Description, vbCritical, "mdlRS232 [Evento_01_Timer_RS232]"
'
Call Log("ERROR_Timer_RS232_Timer_01 - Error al intentar abrir COM" & Connect_RS232.CommPort)
Call Log("ERROR_Timer_RS232_Timer_01 - Error detectado por Visual Basic: " & vbCrLf & Err.Description)
'
Resume Salir
''
Manejar_Errores_Transmision_01:
'MsgBox "Ocurrió un error al intentar transmitir"
'MsgBox "Error detectado por Visual Basic: " & vbCrLf & Err.Description, vbCritical, "mdlIberia_RS232 [Evento_01_Timer_RS232]"
'
Call Log("ERROR_Timer_RS232_Timer_02 - Ocurrió un error al intentar transmitir")
Call Log("ERROR_Timer_RS232_Timer_02 - Error detectado por Visual Basic: " & vbCrLf & Err.Description)
'
If (Connect_RS232.PortOpen = True) Then Connect_RS232.PortOpen = False
'
Resume Salir
''
Manejar_Errores_Clausura_01:
'MsgBox "Error al intentar cerrar COM" & Connect_RS232.CommPort, vbCritical, "mdlRS232 [Evento_01_Timer_RS232]"
'MsgBox "Error detectado por Visual Basic: " & vbCrLf & Err.Description, vbCritical, "mdlRS232 [Evento_01_Timer_RS232]"
'
Call Log("ERROR_Timer_RS232_Timer_03 - Error al intentar cerrar COM" & Connect_RS232.CommPort)
Call Log("ERROR_Timer_RS232_Timer_03 - Error detectado por Visual Basic: " & vbCrLf & Err.Description)
'
Resume Salir
''
Salir:
' AQUI PUEDO PONER ALGO QUE QUIERA QUE SE EJECUTE
' EN CUALQUIER SITUACIÓN
'Stop
On Error GoTo 0
'
Call Reinicio_Aplicacion_01(App.EXEName & ".exe", App.EXEName & ".exe " & Command, True, GetCurrentProcessId)
End
''
End Sub

El procedimiento…

Public Sub Reinicio_Aplicacion_01(ByVal strP_Proceso_01 As String, ByVal strP_Aplicacion_01 As String, _
Optional ByVal bolP_Control_ID_01 As Boolean = False, _
Optional ByVal lonP_ID_Proceso_01 As Long)
'
'---------------------------------------------'
' FUNCION PARA EL REINICIO DE UNA APLICACION  '
'                                             '
' UTILIZA UN VBSCRIPT QUE SE CREA, SE EJECUTA '
' Y ESPERA A LA FINALIZACION DE LA APLICACION '
' PARA VOLVERLE A EJECUTAR                    '
'---------------------------------------------'
'
Dim strL_Fichero_01 As String
'
Dim objL_Script_01 As Object
Dim objL_Create_Script_01 As Object
'
strL_Fichero_01 = App.path & "\restart_api_" & Format(Now(), "YYYYMMDDHhNnSs") & ".vbs"
'
If (Dir(strL_Fichero_01)  "") Then Kill (strL_Fichero_01)
'
Set objL_Script_01 = CreateObject("Scripting.FileSystemObject")
'
Set objL_Create_Script_01 = objL_Script_01.CreateTextFile(strL_Fichero_01, False)
'
With objL_Create_Script_01
.WriteLine "Option Explicit"
.WriteLine "'-------------------------------------'"
.WriteLine "' VBSCRIPT QUE REINICIA LA APLICACION '"
.WriteLine "' '" & strP_Aplicacion_01 & "'        '"
.WriteLine "' CUANDO ESTA SE CIERRA               '"
.WriteLine "'-------------------------------------'"
.WriteLine "'"
.WriteLine "Const strComputer = ""."" "
.WriteLine "'"
.WriteLine "Dim objWMIService"
.WriteLine "Dim colProcessList"
.WriteLine "Dim bolL_Proceso_Terminado"
.WriteLine "Dim objProcess"
.WriteLine "Dim WshShell"
.WriteLine "Dim oExec"
.WriteLine "'"
.WriteLine "Set objWMIService = GetObject(""winmgmts:"" & ""{impersonationLevel=impersonate}!\\"" & strComputer & ""\root\cimv2"")"
.WriteLine "'"
.WriteLine "Do"
.WriteLine "    Set colProcessList = objWMIService.ExecQuery(""SELECT * FROM Win32_Process WHERE Name = '" & strP_Proceso_01 & "'"")"
.WriteLine "    bolL_Proceso_Terminado = true"
.WriteLine "    '"
.WriteLine "    For Each objProcess in colProcessList"
If (bolP_Control_ID_01 = False) Then
.WriteLine "        WScript.Echo ""¡ENCONTRADO EL PROCESO '" & strP_Proceso_01 & "' !"""
.WriteLine "        bolL_Proceso_Terminado = False"
''
Else
.WriteLine "        If (objProcess.ProcessId = " & lonP_ID_Proceso_01 & ") Then"
.WriteLine "            WScript.Echo ""¡ENCONTRADO EL PROCESO '" & strP_Proceso_01 & "' ID:" & lonP_ID_Proceso_01 & " !"""
.WriteLine "            bolL_Proceso_Terminado = False"
.WriteLine "            ''"
.WriteLine "        End If"
''
End If
.WriteLine "        '"
.WriteLine "        WScript.Sleep 1000 ' NO SATUREMOS EL SISTEMA"
.WriteLine "        ''"
.WriteLine "    Next"
.WriteLine "    ''"
.WriteLine "Loop While bolL_Proceso_Terminado = False"
.WriteLine "'"
.WriteLine "' EL PROCESO O TERMINO O NO EXISISTIA"
.WriteLine "' ENTONCES LO VOLVEMOS A EJECUTAR"
.WriteLine "'"
.WriteLine "Set WshShell = WScript.CreateObject(""WScript.Shell"")"
.WriteLine "Set oExec = WshShell.Exec(""" & strP_Aplicacion_01 & """)"
.WriteLine "WScript.Echo ""¡ARRANQUE DE LA APLICACION '" & strP_Aplicacion_01 & "' FINALIZADO!"""
'
.Close
''
End With
'
Set objL_Create_Script_01 = Nothing
Set objL_Script_01 = Nothing
'
Call Log("MENSAJE_Reinicio_Aplicacion_01_01 - REINICIO APLICACION: '" & strP_Aplicacion_01 & "' ID:" & lonP_ID_Proceso_01)
'
Shell "cscript """ & strL_Fichero_01 & """"
''
End Sub

Como veis es un “metodo” bastante sencillo.
Al procedimiento “Reinicio_Aplicacion_01″ se le pasan los parametros de:
Nombre del Proceso (no confundir con la aplicacion)
Ejecutable de la aplicacion (La aplicacion, llamada de la aplicacion con argumentos incluidos)
Y si lo deseamos (yo aqui lo hago) pasamos el ID del proceso.
Nos podemos encontrar con que la aplicacion se esta ejecutando en varios procesos, de esta manera podemos diferenciar que proceso hay que eliminar.

El procedimiento, con estos argumento crea un fichero .VBS (vbscript) personalizado a nuestra aplicacion.
Posteriormente el procedimiento lanza el script.
El script espera hasta que la aplicacion se cierre.
La aplicacion se cierran con el “End”.
Y el script relanza la aplicacion.

En esta entrada el scrpit espera a que la aplicacion se cierre. Aunuque, como puedes intuir, se puede modificar el script para que haga mas cosas, como por ejemplo cerrar la aplicacion (matando el proceso) y relanzarla. Pero eso posiblemente sea tema para otra entrada.

Tengo que insistir que esto es simplemnte una ayuda para tener la aplciacion en ejecucion y que siempre tendremos que trabajar en la depuracion de errores hasta que ya no necesitemos la llama a la funcion de reinicio. Ten encuenta que dependiendo de la complejedad de la aplicacion fporzar el cerrado puede causar serios problemas (conexiones a bases de datos, ficheros corruptos o mal cerrados, etc…)

Por otro lado, comentar que esto lo estoy aplicando desde hace unos meses y el resultado ha sido excelente.
Sinceramente me sorprendió (mas bien sigo sorprendido), llevo semanas sin tener que hacer nada en las aplicaciones (como el anuncio de las pilas… y duran… y duran… y duran…)

Nota:
GetCurrentProcessId
Función API que devuelve el ID del proceso de la propia aplicacion.
Public Declare Function GetCurrentProcessId Lib “Kernel32″ () As Long