hej
har gjort ett vba script som kontrollerar vilken office version som är installerad, denna ska sedan starta installation av sp1 om så inte är installerat??
men hur skriver jag för att starta installation av Service packet..
har gjort som nedan! Finns det bättre sätt att kontrollera version??
'Declare variabels
Dim OfficeVersionRegValue, OfficeNameRegValue, VersionNr
'creating instans of objects
Set oFSO = CreateObject("Scripting.FileSystemObject")
' Register Path For Office
OfficeNameRegValue = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9011041D-6000-11D3-8CFE-0150048383C9}\DisplayName"
OfficeVersionRegValue = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9011041D-6000-11D3-8CFE-0150048383C9}\DisplayVersion"
'Reading register key
VersionNr= RegRead(OfficeVersionRegValue)
'Checks version and launching application
WScript.Echo VersionNr
If VersionNr = "11.0.6361.0" Then
'Office 2003 Service pack 1 Installed
elseif VersionNr = "11.0.5614.0" then
'service pack1 not installed!
'code to start app
end if
Wscript.Echo VersionNr
Function RegRead(sRegValue)
Set oShell = CreateObject("WScript.Shell")
RegRead = oShell.RegRead(OfficeVersionRegValue)
End Function