Aggiornamento Calendario Serie A 2012/2013

Lascia una risposta

Un breve post per comunicare agli iscritti al mio calendario di Serie A che è stato aggiornato fino a dicembre con anticipi e posticipi.
Inoltre la partita di ieri Cagliari-Roma che non si è disputata è stata aggiornata. La Roma ha ottenuto la vittoria a tavolino per 3-0.
Ricrodo che, per chi fosse interessato, il calendario si trova qui.

Se vi interessa ho creato anche il calendario della Champions League.

Se vi iscrivete fatemelo sapere nei commenti oppure via twitter (@sibberio)

Calendario Serie A 2012-13

2 Repliche

Eccomi qui, redivivo, per condividere con voi il calendario della Serie A 2012-2013 in formato iCal. Per avere questo calendario nei vostri iPhone/iPad/iPod e Mac (funziona anche con Windows comunque) non dovete fare altro che copiare quiesto link:

webcal://p01-calendarws.icloud.com/ca/subscribe/1/Kef2hPxBFUbxmBIW-iJ-10sBOk47TO1oWdCzqI61kXcRbFCF9gFtF0U7QtPlqIVDVEqsUimMKMRJQsmojDqDKJe7R29nRdny5QB-9z9McXY

In alternativa cliccare qui

Fatemi sapere se vi iscrivete e se avete dei suggerimenti.

Buon campionato a tutti!

Acrobat Reader X – Rimuovere qualsiasi versione con VBS script / SCCM

Lascia una risposta

Al lavoro mi trovavo con il problema di disnintallare la versione di Adobe Reader X attualmente installata su un pò di macchine per installare una versione modificata, privata della funzione update.
Il problema nasce dal fatto che abbiamo installate diverse versioni dalla 10.0.0 alla 10.1.1. Avrei dovuto, quindi, creare diversi script e diverse collections in SCCM per risolvere il problema.

Per fortuna uno script ha risolto il mio problema. Eccolo:


WScript.Echo GetProductCode("Adobe Reader")
Function GetProductCode(strName)
Dim strComputer, oReg, strKeyPath, strValueNAme, strValue, arrSubKeys, subkey
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
arrSubKeys = Null
Set ObjShell = CreateObject("WScript.Shell")
ObjShell.LogEvent 4, "Seaching in registry for installed products by search term: " & strName
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
If Not IsNull(arrSubKeys) Then
For Each subkey In arrSubKeys
' WScript.Echo subkey
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & subkey
strValueName = "DisplayName"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
If InStr(LCase(strValue), LCase(strName)) > 0 Then
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & subkey
strValueName = "UninstallString"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
ObjShell.LogEvent 4, "Found Installed "& strName &" product Code: " & Replace(Replace(strValue, "MsiExec.exe /X",""), "MsiExec.exe /I","")
If strValue <> "" Then
GetProductCode = Replace(Replace(strValue, "MsiExec.exe /X",""), "MsiExec.exe /I","")
End If
End If
Next
End If
arrSubKeys = Null
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "MsiExec.exe /X" & GetProductCode &" REBOOT=ReallySuppress /qn"
set wshshell = nothing
End Function

Aggiungo anche che funziona con qualsiasi versione di Adobe Reader, io ho provato anche con la 9.4, in qualsiasi lingua.
Potete anche scaricare lo script: Uninstall Acrobat X.

Ora posso procedere con la creazione del mio Package di install/uninstall felicemente.