Blog Profesional de Fco. J. Pérez

Configuración para la Notificación del Cambio de Contraseña en OWA

fcojperez — Fri, 04 Jun 2010 08:30:01 +0000

Escenario

Deseamos habilitar la Notificación del Cambio de Contraseña en OWA sin necesidad de usar SSL, ya que suponemos que existe ISA como Front – End que garantiza el cambio seguro de la password.

Procedimiento

Revisamos la configuración e instalación de OWA siguiendo las indicaciones del artículo: FIX: You experience various problems when you use the Password
Change pages in IIS 6.0
Haga clic en Inicio , haga clic en Ejecutar , escriba cmd y, a continuación, haga clic en Aceptar.
En el símbolo del sistema, escriba el comando siguiente y presione ENTRAR:
cd Drive: \inetpub\adminscripts
En el símbolo del sistema, escriba el comando siguiente y presione ENTRAR:
cscript adsutil.vbs get w3svc\PasswordChangeFlags. Comprobamos el valor.
Para establecer esta propiedad el valor debe ser 0 o 1 en función de nuestros intereses. En nuestro caso es uno
En el símbolo del sistema, escriba el comando siguiente y presione ENTRAR:
cscript adsutil.vbs set w3svc\PasswordChangeFlags 1. Comprobamos el valor.

Enlaces de Interés

Para más información visitar el siguiente kb:920723

Etiquetas de Technorati: Exchange,OWA,PasswordChangeFlags

Filed under: Exchange, Microsoft

Trucos y Comandos para Linux (Desarrollo)

fcojperez — Sun, 10 Jan 2010 20:16:16 +0000

Introducción

El siguiente artículo será una recopilación de trucos y comandos con la finalidad de consultar la ayuda de los comandos en el desarrollo

Índice

Páginas de ayudas referencia para programación en C (distribución Ubuntu)

Contenido

Páginas de ayudas referencia para programación en C (distribución Ubuntu)

sudo apt-get install manpages-dev

sudo apt-get install manpages-posix-dev

Comprobamos ejecutando, por ejemplo:

man string.h (mapages-posix-dev)

man strcpy (manpages-dev)

Enlaces de Interés

Posted in Linux

Trucos y Comandos para Linux (Desarrollo)

fcojperez — Sun, 10 Jan 2010 20:12:46 +0000

Introducción

El siguiente artículo será una recopilación de trucos y comandos con la finalidad de consultar la ayuda de los comandos en el desarrollo

Índice

Páginas de ayudas referencia para programación en C (distribución Ubuntu)

Contenido

Páginas de ayudas referencia para programación en C (distribución Ubuntu)

sudo apt-get install manpages-dev

sudo apt-get install manpages-posix-dev

Comprobamos ejecutando, por ejemplo:

man string.h (mapages-posix-dev)

man strcpy (manpages-dev)

Enlaces de Interés

Posted in Linux

Trucos y Comandos para Linux (Red)

fcojperez — Thu, 10 Sep 2009 08:30:18 +0000

Introducción

El siguiente artículo será una recopilación de trucos y comandos con la finalidad de consultar la ayuda de los comandos

Índice

Listado y Filtrados de puertos LISTENING

NETSTAT

Listado y Filtrados de puertos LISTENING

Para el listado de Puertos: netstat –l

Para el Filtrado de puertos LISTENING: netstat –l | grep

Enlaces de Interés

Posted in Sistemas

Script para obtener el tamaño de las tablas en MS SQL

fcojperez — Wed, 29 Jul 2009 09:49:00 +0000

Escenario

Deseamos conocer el tamaño de las tablas en una base de datos MS SQL

Procedimiento

Hacemos login en MS SQL con los permisos suficientes para crear tablas en dbo.tempdb

Ejecutamos el siguiente script:

BEGIN SCRIPT
==========================================
declare @id int
declare @type character(2)
declare @pages int
declare @dbname sysname
declare @dbsize dec(15,0)
declare @bytesperpage dec(15,0)
declare @pagesperMB dec(15,0)
create table #spt_space
(
objid int null,
rows int null,
reserved dec(15) null,
data dec(15) null,
indexp dec(15) null,
unused dec(15) null
)
set nocount on
– Create a cursor to loop through the user tables
declare c_tables cursor for
select id
from sysobjects
where xtype = ‘U’
open c_tables
fetch next from c_tables
into @id
while @@fetch_status = 0
begin
/* Code from sp_spaceused */
insert into #spt_space (objid, reserved)
select objid = @id, sum(reserved)
from sysindexes
where indid in (0, 1, 255)
and id = @id
select @pages = sum(dpages)
from sysindexes
where indid < 2
and id = @id
select @pages = @pages + isnull(sum(used), 0)
from sysindexes
where indid = 255
and id = @id
update #spt_space
set data = @pages
where objid = @id
/* index: sum(used) where indid in (0, 1, 255) – data */
update #spt_space
set indexp = (select sum(used)
from sysindexes
where indid in (0, 1, 255)
and id = @id)
- data
where objid = @id
/* unused: sum(reserved) – sum(used) where indid in (0, 1, 255) */
update #spt_space
set unused = reserved
- (select sum(used)
from sysindexes
where indid in (0, 1, 255)
and id = @id)
where objid = @id
update #spt_space
set rows = i.rows
from sysindexes i
where i.indid < 2
and i.id = @id
and objid = @id
fetch next from c_tables
into @id
end
select TableName = (select left(name,60) from sysobjects where id = objid),
Rows = convert(char(11), rows),
ReservedKB = ltrim(str(reserved * d.low / 1024.,15,0) + ‘ ‘ + ‘KB’),
DataKB = ltrim(str(data * d.low / 1024.,15,0) + ‘ ‘ + ‘KB’),
IndexSizeKB = ltrim(str(indexp * d.low / 1024.,15,0) + ‘ ‘ + ‘KB’),
UnusedKB = ltrim(str(unused * d.low / 1024.,15,0) + ‘ ‘ + ‘KB’)
from #spt_space, master.dbo.spt_values d
where d.number = 1
and d.type = ‘E’
order by reserved desc
drop table #spt_space
close c_tables
deallocate c_tables

Enlaces de Interés

Para más información visitar el siguiente foro

Posted in Microsoft, MS-SQL

Script para copiar Ficheros y/o Carpetas en los perfiles de un Equipo

fcojperez — Sat, 08 Nov 2008 12:09:21 +0000

Escenario

Tenemos un equipo con varios perfiles de usuarios y queremos copiar ficheros y/o carpetas en cada uno de los perfiles que han iniciado sesión en el equipo.

Procedimientos:

Tomaremos la lista Perfiles de la Clave del Registro HK_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList y la volcaremos en un Array mediante una función

‘ Procedimiento para listar los perfiles en en un equipo
‘ Recibe la matriz de Perfiles, comprueba la constate lista y muestra la lista de perfiles
Sub ListProfiles(ArrPerfiles)
Dim i
Dim StrM
For i= 0 To UBound(ArrPerfiles,1)
If Not ArrPerfiles(i) = “” Then
StrM = i & “–” & ArrPerfiles(i)
Mensaje StrM
End If
Next

End Sub

Function FilterProfiles(ArrPerfiles)
Dim i,j,u
Dim strList
Dim arrFilterProfile()

‘Comprobamos si el ultimo elmento de la lista es menor que el numero de perfiles
If SinceElement > UBound(ArrPerfiles,1) Or SinceElement < 0 Then
ReDim Preserve arrFilterProfile(0)
Mensaje(“Error!!!: Criterios de Filtrado erroneo”)
FilterProfiles = arrFilterProfile
Exit Function
End If
j=0
For i = SinceElement To UBound(ArrPerfiles,1)
If FindElementsInStr(ArrPerfiles(i)) = 0 And Not ArrPerfiles(i)= “” Then
ReDim Preserve arrFilterProfile(i-SinceElement)
arrFilterProfile(i-SinceElement-j) = ArrPerfiles(i)
Else
j = j + 1
End If
Next
‘Eliminamos los elmentos vacios del final de la matriz
For i=0 To UBound(arrFilterProfile,1)
If IsEmpty(arrFilterProfile(i)) Then
u = u + 1
End If
Next
ReDim Preserve arrFilterProfile(UBound(arrFilterProfile,1)-u)
FilterProfiles = arrFilterProfile
End Function

Generaremos tantas funciones o procedimientos para cubrir las siguientes funciones:
- Filtrar Perfiles a partir de uno y/o conteniendo una cadena
- Procedimientos de copia de ficheros y/o carpetas a partir de un Array de Perfiles

Definimos un juego de Constantes a modo de parámetros:

‘*************************** Parametros del programa *******************************

‘Parametros de Filtrado
Const SinceElement = 3 ‘Listado de perfiles desde el elemento indicado
Const ExcludeText = “admin” ‘

‘Parametros de Copia de Carpetas
Const BoolCopyFolder = False
Const CarpetaOrigen = “C:\Test Prueba”

‘Parametros de Ficheros
Const BoolCopyFiles = True
Const FicherosOrigen = “C:\Test\*.*”

‘Parametros de Log
Const BoolLog = True
strPath = “”
strLogFile = strPath & WScript.ScriptName & “.log”
Set WshNetwork = WScript.CreateObject(“WScript.Network”)
strBeginnerLog = CStr(Now) & ” ” & WshNetwork.ComputerName & “: “

El script se encuentra ubicado CopiarHaciaPerfiles.zip

Enlaces de Interés

Para más información consultar User Profile Structure

Disclaimer

Este ejemplo de script no esta soportado por el autor del artículo. Este ejemplo de script es ta provisto sin garantía de ningún tipo.

Posted in Scripting

Fecha de Instalación de Windows

fcojperez — Tue, 07 Oct 2008 15:46:44 +0000

Escenario

¿Cuantas veces hemos querido saber cuando instalamos el Windows con el que trabajamos, con el fin de poder decidir si reparar la instalación o realizar una actualización o un reinstalación?

Procedimientos:

El procedimiento se basa en el comando de consola systeminfo y find de Windows XP o superior.

Abrimos una consola de comandos de Windows
Ejecutamos el comando con las siguientes opciones y obtendremos:

C:\>systeminfo | find /i "fecha"

Fecha de instalación original: 11/10/2007, 13:10:56

NOTA: La cadena de búsqueda varía en función del idioma de Windows, por ejemplo, para averiguar la fecha de instalación de un Windows en ingles sería systeminfo | find /i "install date"

Enlaces de Interés

Para más información consultar Windows Installation Date | Pedro Santos

Disclaimer

Este ejemplo de artículo no esta soportado por el autor. Este ejemplo de artículo está provisto sin garantía de ningún tipo.

Posted in Windows

Windows Memory Diagnostic

fcojperez — Wed, 06 Aug 2008 22:00:31 +0000

Contenido

Existen situaciones donde los equipos con sistemas operativos se bloquean y muestran pantallas azules, ¿cual puedes ser las causas?. ¿Es la última aplicación instalada en el ordenador?, o ¿es un problema de memoria?. Una forma de despejar esta última pregunta es mediante la herramienta de Microsoft Windows Memory Diagnostic (de ahora en adelante WMD).

Comenzar con Windows Memory Diagnostic

Para usar WMD, descarga y ejecuta el programa -mtinst.exe- desde la dirección Web http://oca.microsoft.com/en/windiag.asp . Observa que el programa no se instala y nos muestra la siguiente ventana.

Create Startup Disk, desde esta opción podremos crear un disco de inicio y ejecutar el programa para realizar el diagnóstico
Save CD Image to Disk, desde esta opción podremos saber un fichero ISO para crear un CD de arranque y ejecutar el programa de diagnóstico

Diagnosticando la Memoria

Cuando el programa arranca automáticamente comienza realizar el diagnóstico de la memoria en modo estándar, el cual incluye 6 tipos diferentes de memoria (MATS+, INVC, etc.)

En el siguiente vídeo muestra el funcionamiento de MWD

En Resumen

En situaciones donde nuestro equipo se nos queda bloqueado o nos muestra pantalla azul. Mediante la herramienta gratuita Windows Memory Diagnostic podemos realizar comprobaciones sobre la memoria y poder determinar si la causa de que nuestro equipo se quede bloqueado o nos muestrea pantalla azules se producida por problemas en algún banco de memoria.

Disclaimer

El siguiente artículo está basado en el artículo Utility Spotlight Windows Memory Diagnostic publicado en TechNet Magazine de Septiembre del 2008

Script para configurar obtención de servidores DNS mediante DHCP en un equipo con DNS estática

fcojperez — Mon, 16 Jun 2008 23:27:47 +0000

Escenario

Tenemos varios equipos con Windows XP SP2 donde se ha configurado las conexiones de área local con servidores DNS de forma estática y queremos cambiar la configuración de la conexión de área local para que obtenga las direcciones de los servidores DNS mediante DHCP

Procedimientos:

Crearemos un fichero DNS.vbs y le insertaremos el siguiente código:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards

    ‘ Creamos la varibale para configurar los DNS
    ‘No asignamos valor a la variable ya que pordefecto el valor es Null
    ‘"Inyectamos" valor Null en el método SetDNSServerSearchOrder

Dim arrDNSServers
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
WScript.Echo "Fin de la Ejecución…"

Ejecutamos el Script y comprobamos que los DNS se obtienen mediante DHCP
Video ejempl del funcionamiento del Script

Enlaces de Interés

Para más información consultar script Modify the DNS Server Search Order for a Network Adapter

Disclaimer

Este ejemplo de script no esta soportado por el autor del artículo. Este ejemplo de script es ta provisto sin garantía de ningún tipo.

Instalar Virtual Server 2005 R2 en Windows Vista

fcojperez — Wed, 04 Jun 2008 21:58:42 +0000

Escenario

Instalar Virtual Server 2005 en equipos de no producción con Windows Vista

Procedimiento

Agregaremos el IIS a Windows Vista siguiendo los siguientes pasos
1. Iremos a Panel de control\Programas\Programas y características
2. Hacemos clic en Activar o Desactivar características de Windows
3. Seleccionaremos los siguientes componentes:

Herramientas de Administración Web
- Compatibilidad con la Administración de IIS 6
  - Compatibilidad con la configuracion de IIS 6 y Metabase de IIS
- Consola de administración de IIS
Servicios World Wide Web
- Características de Desarrollo de Apliciaciones
  - ASP
  - CGI
  - ASP.NET
  - Extensibilidad de .NET
  - Extensiones ISAPI
  - Filtros ISAPI
- Característcas HTTP Comunes (Todas menos "Redirección HTTP")
- Estado y Diagnóstico
  - Registro HTTP
  - Seguimiento
- Características de Rendimiento
  - Compresión de contenido estático
- Seguridad
  - Autenticación de Windows

Instalar Virtual Server 2005 R2 SP1

Enlaces de Interés

Para más información visitar Como instalar Virtual Server 2005 R2 en Windows Vista