Opinioni In Libertà

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)

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!

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.

Ennesimo colpo di mano di Berlusconi. Entro 24 ore rimpatrierà tutti gli extracomunitari dell’Inter.

Al giornalista che gli chiedeva come mai conosca solo 100 parole in inglese Capello ha risposto: «Fuck off è la centunesima»

Nuovo incidente nella pescheria di Gattuso. Due cernie giganti hanno sbagliato il fuorigioco e un cliente è uscito senza pagare.

Balotelli sull’incidente con i ragazzi del City: «Non riuscivo a prenderli al lazo, così ho provato a fiocinarli con le freccette».

Schumacher chiarisce il perché del ritiro. Al primo rifornimento non mi hanno voluto dare i bollini per la giacca a vento.

Durissima punizione per Moggi in appello: dovrà stare chiuso per un anno nel bagno di Paparesta.