Hi,
Using the code below, I am determining if the computer has service pack 1 installed for office and windows. How do I then execute the SP1 .exe if it is not installed? Thanks!
Imports System
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnCheck.Click
Dim searcher As New Management.ManagementObjectSearcher("Select * From AntivirusProduct")
searcher.Scope = New Management.ManagementScope("\root\SecurityCenter2")
For Each instance As Management.ManagementObject In searcher.Get()
Debug.WriteLine(instance("displayName").ToString())
TextBox1.Text = instance("displayName").ToString()
Next instance
Dim os As OperatingSystem = Environment.OSVersion
Console.WriteLine("Service pack version = ""{0}""", os.ServicePack)
TextBox2.Text = os.ServicePack
GetOutlookVersion()
End Sub
Class testing
Public Shared Sub Main()
Dim os As OperatingSystem = Environment.OSVersion
Console.WriteLine("Service pack version = ""{0}""", os.ServicePack)
End Sub 'Main
End Class
Public Function GetOutlookVersion()
GetOutlookVersion = 0
' Get path to outlook from registry
Dim sOutlookPath As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE", "Path", Nothing)
If Not sOutlookPath Is Nothing Then
Dim sOutlookVersion As FileVersionInfo = FileVersionInfo.GetVersionInfo(sOutlookPath & "\outlook.exe")
'GetOutlookVersion = Left(sOutlookVersion.FileVersion, 2)
TextBox3.Text = sOutlookVersion.FileVersion
End If
End Function
End Class
Using the code below, I am determining if the computer has service pack 1 installed for office and windows. How do I then execute the SP1 .exe if it is not installed? Thanks!
Imports System
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnCheck.Click
Dim searcher As New Management.ManagementObjectSearcher("Select * From AntivirusProduct")
searcher.Scope = New Management.ManagementScope("\root\SecurityCenter2")
For Each instance As Management.ManagementObject In searcher.Get()
Debug.WriteLine(instance("displayName").ToString())
TextBox1.Text = instance("displayName").ToString()
Next instance
Dim os As OperatingSystem = Environment.OSVersion
Console.WriteLine("Service pack version = ""{0}""", os.ServicePack)
TextBox2.Text = os.ServicePack
GetOutlookVersion()
End Sub
Class testing
Public Shared Sub Main()
Dim os As OperatingSystem = Environment.OSVersion
Console.WriteLine("Service pack version = ""{0}""", os.ServicePack)
End Sub 'Main
End Class
Public Function GetOutlookVersion()
GetOutlookVersion = 0
' Get path to outlook from registry
Dim sOutlookPath As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE", "Path", Nothing)
If Not sOutlookPath Is Nothing Then
Dim sOutlookVersion As FileVersionInfo = FileVersionInfo.GetVersionInfo(sOutlookPath & "\outlook.exe")
'GetOutlookVersion = Left(sOutlookVersion.FileVersion, 2)
TextBox3.Text = sOutlookVersion.FileVersion
End If
End Function
End Class