Opinioni In Libertà

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.

Dopo i 201 gol in Serie A, altro record per Totti. Sono due ore che non gira uno spot.

Cassano e il figlio in arrivo: «Spero tanto che appena nato mandi a quel paese il nipotino di Garrone»