Finalmente esta disponible la beta 1 de Service Manager. Para los que no escucharon nada del producto les cuento. Es lo que le faltaba a System Center para ser una familia completa, ya que ahora podremos monitorear con ops manager, administrar con config manager y registrar todos los incidentes y hacer el seguimiento en una herramienta 100% integrada con el resto de la familia.
Pueden descarga la nueva beta desde connect acá:
Lean bien las guías incluidas antes de instalar.
En breve voy a publicar un videíto de la instalación y uso básico
saludos
Antes que nada muchas gracias a la gente que se acerco ayer a la conferencia que dimos junto a Pablo Vernocchi sobre Disaster Recovery en Exchange 2007. Lo prometido es deuda, así que les dejo la PPT que usamos para dar la presentación.
saludos
Ayer instalando un Hyper-v en modo core me di cuenta de que los updates de Windows realmente representaban un problema. Realmente quiero que las actualizaciones se bajen e instalen automáticamente y además de eso reinicien mi equipo cuando mis maquinas virtuales están corriendo ahí?
La opción sencilla es usar WSUS, pero no me da el control absoluto. Yo simplemente quiero bajar los updates e instalarlos cuando quiera o pueda y luego reiniciar a gusto.
Después de mucho buscar encontré un script que me da lo que necesito.
espero les sea tan útil como a mi
saludos
'---------------------------------<<<<>>>>-------------------------------
Set updateSession = CreateObject("Microsoft.Update.Session")
Set updateSearcher = updateSession.CreateupdateSearcher()
WScript.Echo "Searching for updates..." & vbCRLF
Set searchResult = _
updateSearcher.Search("IsInstalled=0 and Type='Software'")
WScript.Echo "List of applicable items on the machine:"
For I = 0 To searchResult.Updates.Count-1
Set update = searchResult.Updates.Item(I)
WScript.Echo I + 1 & "> " & update.Title
Next
If searchResult.Updates.Count = 0 Then
WScript.Echo "There are no applicable updates."
WScript.Quit
End If
WScript.Echo vbCRLF & "Creating collection of updates to download:"
Set updatesToDownload = CreateObject("Microsoft.Update.UpdateColl")
For I = 0 to searchResult.Updates.Count-1
Set update = searchResult.Updates.Item(I)
WScript.Echo I + 1 & "> adding: " & update.Title
updatesToDownload.Add(update)
Next
WScript.Echo vbCRLF & "Downloading updates..."
Set downloader = updateSession.CreateUpdateDownloader()
downloader.Updates = updatesToDownload
downloader.Download()
WScript.Echo vbCRLF & "List of downloaded updates:"
For I = 0 To searchResult.Updates.Count-1
Set update = searchResult.Updates.Item(I)
If update.IsDownloaded Then
WScript.Echo I + 1 & "> " & update.Title
End If
Next
Set updatesToInstall = CreateObject("Microsoft.Update.UpdateColl")
WScript.Echo vbCRLF & _
"Creating collection of downloaded updates to install:"
For I = 0 To searchResult.Updates.Count-1
set update = searchResult.Updates.Item(I)
If update.IsDownloaded = true Then
WScript.Echo I + 1 & "> adding: " & update.Title
updatesToInstall.Add(update)
End If
Next
WScript.Echo vbCRLF & "Would you like to install updates now? (Y/N)"
strInput = WScript.StdIn.Readline
WScript.Echo
If (strInput = "N" or strInput = "n") Then
WScript.Quit
ElseIf (strInput = "Y" or strInput = "y") Then
WScript.Echo "Installing updates..."
Set installer = updateSession.CreateUpdateInstaller()
installer.Updates = updatesToInstall
Set installationResult = installer.Install()
'Output results of install
WScript.Echo "Installation Result: " & _
installationResult.ResultCode
WScript.Echo "Reboot Required: " & _
installationResult.RebootRequired & vbCRLF
WScript.Echo "Listing of updates installed " & _
"and individual installation results:"
For I = 0 to updatesToInstall.Count - 1
WScript.Echo I + 1 & "> " & _
updatesToInstall.Item(i).Title & _
": " & installationResult.GetUpdateResult(i).ResultCode
Next
End If
Les dejo un script cortito para aplicar las políticas de espacio de los mailboxes de Exchange 2007 basándonos en la membrecía de un grupo.
----------------------------<<<<>>>>--------------------------------
$warning=209715200
$recepcion=262144000
$envio=293601280
$group = [ADSI] "LDAP://cn=Prisma Comercial,ou=Security Groups,ou=MyBusiness,dc=prismast,dc=local"
foreach ($member in $group.member)
{
get-mailbox $member | Set-Mailbox -IssueWarningQuota $warning -ProhibitSendQuota $envio -ProhibitSendReceiveQuota $recepcion -UseDatabaseQuotaDefaults $false
}
----------------------------<<<<>>>>--------------------------------
espero les sea de utilidad.
saludos
Mucha gente me pregunto que conviene instalar al momento de virtualizar, les dejo una tabla que resume las diferencias entre hyper-v server y windows 2008 en todas sus versiones.
