eManu

He recibido un correo por parte de Microsoft, en el cual se me informa que tengo la posibilidad de realizar el examen 70-659, Windows Server Virtualization R2, sin ningún coste, eso sí antes del 31 de mayo del 2012. Por lo que ya me estoy haciendo con el material necesario para asegurar el aprobado del examen.

Casi todo el material lo he sacado de los siguientes sitios:

MVA: http://www.microsoftvirtualacademy.com

TechNET: http://technet.microsoft.com/es-es/library/default.aspx

Foros TechNET: http://social.technet.microsoft.com/Forums/es-es/categories/

A parte, de todo esto, tengo montado en el portatil de casa, un Windows Server 2008 R2 para realizar las práctica y ahora me tengo que hacer con SCVMM y el portal de autoservicio (me bajaré la demo de 120 días).

Ya iré informando de como va tomando forma la nueva formación.

Aunque es un tema que se ha tratado muchas veces y existe mucha información en internet, voy a aportar mi granito de arena al tema de monitorización «descentralizada» (por el tema de que cada vez más existen plataformas de monitorización que se encargan de estas tareas).

El Script en cuestión se separa en 2 partes, la primera, que es la parte de monitorizar el espacio en disco, mediante la ejecución cada X minutos/horas desde una tarea programada y la segunda parte, es el envío de un correo con la información de que partición es la que se está quedando sin espacio.

‘ SCRIPT CREADO POR MANUEL ROLDÁN – www.eManu.es – mroldan@emanu.es
‘ Como utilizar El Script
‘ Editar las variables USUARIO, PASSWORD, SMTP y PUERTO. Para configurar vuestro servidor SMTP
‘ Al final de Script, tenéis que indicar los campos CC, CCO, BCC y FROM (CUIDADO CON LAS COMILLAS)
‘ Configurar una tarea programada con permisos adecuados para hacer funcionar el Script

strComputer = «.»
Set objWMIService = GetObject(«winmgmts:\» & strComputer & «rootcimv2»)
Set colItems = objWMIService.ExecQuery(«Select * from Win32_Volume»)
Set wshShell = WScript.CreateObject( «WScript.Shell» )
strComputerName = wshShell.ExpandEnvironmentStrings( «%COMPUTERNAME%» )
text = «»
For Each objItem In colItems
FSpace=objItem.FreeSpace
FSpace = (FSpace / 1024^3)
 if FSpace < 10 Then
msg = «1»
 texto = «La unidad: » & objItem.DriveLetter & » Con Nombre: » & ucase (objItem.Label) & » Tiene un espacio libre de: » & FormatNumber(FSpace,2) & » Gb «
text = text & vbNewLine & texto
end if
Next
msg = strComputerName & vbNewLine & text
if msg <> «» then
sendMAIL(msg)
end if

Sub sendMAIL(msg)
Set objEmail = CreateObject(«CDO.Message»)
Dim strbody
Dim Flds
Dim USUARIO = «MyUSER»
 Dim PASSWORD = «MyPASS»
 Dim SMTP = «smtp.gmail.com» ‘ Puede ser cualquier otro servidor.
 Dim PUERTO = «465» ‘ También puede ser el 25 cuando no hay autentificación      
Set iMsg = CreateObject(«CDO.Message»)
Set iConf = CreateObject(«CDO.Configuration»)
iConf.Load -1    ‘ CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item(«http://schemas.microsoft.com/cdo/configuration/smtpauthenticate«) = 1
.Item(«http://schemas.microsoft.com/cdo/configuration/smtpusessl«) = true
.Item(«http://schemas.microsoft.com/cdo/configuration/sendusername«) = USUARIO
.Item(«http://schemas.microsoft.com/cdo/configuration/sendpassword«) = PASSWORD
.Item(«http://schemas.microsoft.com/cdo/configuration/sendusing«) = 2
.Item(«http://schemas.microsoft.com/cdo/configuration/smtpserver«) = SMTP
.Item(«http://schemas.microsoft.com/cdo/configuration/smtpserverport«) = PUERTO
.Update
End With
strbody = msg
With iMsg
Set .Configuration = iConf
.To = «»
        .CC = «»
        .BCC = «»
        .From = «»»NOMBRE REMITENTE»» <CORREO_DEL_REMITENTE@Mi_DOMINIO.com>»
        .Subject = «El Servidor esta sin espacio»
.TextBody = strbody
.Send
End With
End Sub

En donde deberemos modificar los siguientes atributos/parámetros, para customizarlo como mejor nos convenga:

1. Aviso de espacio –> Es el espacio espresado en Gb, por el cual vamos a lanzar la alerta, en este caso, la alerta está cuando el espacio en cualquier partición es inferior a 10Gb.
   

   if FSpace < 10 Then

2. text0 –> Es el mensaje que vamos a mostrar en el cuerpo del correo electrónico, se puede variar con otra información/mensaje.
   

   texto = «La unidad: » & objItem.DriveLetter & » Con Nombre: » & ucase (objItem.Label) & » Tiene un espacio libre de: » & FormatNumber(FSpace,2) & » Gb «

3. Variables –> Es la información que necesitamos para poder realizar la autentificación mediante SMTP al servidor de correo, y así poder enviar el correo.
   

   Dim USUARIO = «MyUSER»
   Dim PASSWORD = «MyPASS»
   Dim SMTP = «smtp.gmail.com» ‘ Puede ser cualquier otro servidor.
   Dim PUERTO = «465» ‘ También puede ser el 25 cuando no hay autentificación

4. Envío de correo –> tendremos que indicar a quien va dirigido el mail, y desde que cuenta (CUIDADO CON LAS COMILLAS).
   

   .To = «»
   .CC = «»
   .BCC = «»
   .From = «»»NOMBRE REMITENTE»» <CORREO_DEL_REMITENTE@Mi_DOMINIO.com>»
   .Subject = «El Servidor esta sin espacio»

Por último, y una vez probado que funciona el envío correctamente, generaremos una tarea programada para que se ejecute cada cierto tiempo, según el crecimiento de espacio que tenga el servidor.

Hay que tener en cuenta, que si la terea se lanza cada hora, y el servidor se queda por debajo del humbral que hemos configurado, cada hora se lanzará y recibiremos un correo, hasta que se libere espacio del disco/partición o se deshabilite la tarea programada.

Microsoft ha sacado una lista (XLS), con un listado de aplicaciones que son (o no) compatibles con Windows 7 x86 y x64, es un listado bastante extenso, y actualmente, tiene sólo 22517 registros de aplicaciones y versiones.

El fichero excel tiene el siguiente formato:

Application Name: Nombre de la aplicación
Major Version: Numero mayor de versión testeada
Minor Version: Numero menor de versión
Company Name: Nombre de la compañía propietaria del software
Company Home Page: Pagina web de la compañía
Updated Date: Último actualización del software
32-bit Windows 7 Compat Status: Compatiblidad con Windows 7 32 Bits
64-bit Windows 7 Compat Status: Compatibilidad con Windows 7 64 Bits

Este listado nos va a ayudar a tener una idea del coste que vamos a tener para migrar nuestros sistemas de Escritorio de Windows XP/ Vista a Windows 7, o podamos evaluar el coste que vamos a tener para realizar nuestros proyectos de VDI.

Excel: Windows 7 Compatibility list for IT Pros

1. Instalamos Windows AIK: http://www.microsoft.com/downloads/en/details.aspx?FamilyID=696dd665-9f76-4177-a811-39c26d3b3b34
2. Creamos en la raíz del disco (por sencillez con los Scripts), el directorio PeBuild
3. Abrimos la línea de comandos de WAIK: Inicio – Programas – Windows AIK – Windows PE Tools command prompt (si lo hacéis con Vista/W7 o W2K8/W2K8r2, recordad abrirlo como administrador).
4. Creamos/modificamos las variables temporales de entorno:
   • set temp=C:temp
   • set tmp=C:temp
5. Copiamos con las herramientas de WAIK la arquitectura que queremos para nuestro WinPE. En este caso, yo realizaré el montaje en arquitectura de 32Bits.
   • copype x86 c:PeBuild
6. Montamos la imagen WIM en el directorio de trabajo (actualmente estaremos en C:PeBuild):
   • imagex /mountrw winpe.wim 1 mount
7. Copiamos los ficheros necesarios de boot y entorno de WinPE.
   • xcopy «C:Progam filesWindows AIKToolsx86*.*» mount /s
8. Ahora podemos montar los CAB que queramos tener en nuestro sistema, en el directorio «C:Progam filesWindows AIKToolsPEToolsx86WinPE_FPs»tenemos algunos CAB que tendremos que usar si lanzamos Scripts realizados por nosotros:
   • winpe-hta.cab
   • winpe-wds-tools.cab
   • winpe-wmi.cab
   • Dism /image:C:PeBuildmount /Add-Package /PackagePath:»C:Program FilesWindows AIKToolsPEToolsx86WinPE_FPsWinPE-HTA.cab»
9. También es posible añadirle Script propietarios y poder ejecutarlos de manera automática o ejecutándola desde línea de comandos, para realizar esta acción deberemos realizar las siguientes acciones:
   1. Copiar el código o programa a ejecutar en «C:PeBuildmountProgram Files»
   2. Crear/editar el fichero winpeshl.ini y añadir la ruta del programa a ejecutar:
      [LaunchApp]
      AppPath = %SYSTEMDRIVE%MiAplicacion.hta
      [LaunchApps]
      %SYSTEMDRIVE%mydirMiAplicacion.hta
10. Desmontamos la imagen que hemos estado generando imagex /unmount mount /commit
11. Copiamos los ficheros de boot: copy /y winpe.wim isosourcesboot.wim
12. Creamos la imagen ISO de nuestro WinPE:
    • oscdimg.exe -n -b»c:program filesWindows AIKToolsPEToolsx86bootetfsboot.com» c:PeBuildiso c:PebuildNuestraNuevaImagen.ISO