Come da topic, cerco di aggiornare via msu e mi apre un txt con questa scritta:
'check whether the specified hotfix exists in the target computer
strComputer = "."
Dim HotfixFound :HotfixFound = ""
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering")
For Each objQuickFix in colQuickFixes
If objQuickFix.HotFixID = "KB941600" Then
HotfixFound = "HOTFIXFOUND=1"
Exit For
End If
Next
'install the msi and set the HOTFIXFOUND property
'the name of the customer Propery must only include upcaseletters.
Set oMSI = CreateObject("WindowsInstaller.Installer")
' set the UI level to full level
oMSI.UILevel = 5
' launch the installer and disable the error display during the vbs script execution
On Error Resume Next
oMSI.InstallProduct Wscript.Arguments(0), HotfixFound
On Error GoTo 0
' clean up used ObjectVars
Set oMSI = Nothing
Qualche idea?