Public Function GetServiceStatus(ServiceName As String) As String
strComputer = "."
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServices = objSWbemServices.ExecQuery("SELECT State FROM Win32_Service Where Name like 'wuauserv%'")
For Each objService In colServices
GetServiceStatus = objService.State
Exit For
Next
End Function
Private Sub StatusWindowsUpdate_Click()
Dim ServiceStatus As String
ServiceStatus = GetServiceStatus("wuauserv")
End Sub
Open in new window
to implement:
Open in new window