<
!-- { START AntiAbuse Index -->
<
!-- { START AntiHacker Index -->
<
!-- { START AntiSpam Index -->
<
!-- { START AntiVirus Index -->
<
!-- { START Windows update display -->
<
!-- { START AntiAbuse Index -->
<
!-- { START AntiHacker Index -->
<
!-- { START AntiVirus Index -->
<
!-- { START Main Index -->
<
!-- { START My Security Index -->
<
!-- { START SpamKiller Index -->
' If object creation fails, it could be because there is no database present. This does not denote an error condition
'// Start the Help
<
!-- { START Windows update -->
If Err.Number <
>
nLastError Then
exit function ' error case
show the product as expired
nLastError = Err.Number
szError = ERR_GETACTIONITEM_GENERIC_FAIL
szError = ERR_INVOKECOMMAND_GENERIC_FAIL
szError = ERR_INVOKECOMMAND_INVALID_CMD
szError = ERR_SUCCEEDED
szError = ERR_NO_MCINSTALL
' I am not returning an error code. If 6,0,0,0 and above is not present then MPS is not
' Stop and start the service explicitly.
'Start FreeScan Section
<
!--{ Start Security Index Text -->
MsgBox DB_FATAL_ERROR &
vbCrLf &
vbCrLf &
Msg:
On Error Goto 0
On Error Resume Next
On Error Resume Next ' This is local for this function.
szError = ERR_NO_MPSDISPATCH
'Enable the lines below to detect old version and show update tab if an older version is installed
<
div id=idSecurityStatus style=display:none
szError = ERR_NO_MCINSTALL
szError = ERR_NO_REGOBJ
'// Start the Help
'// -1: Error code.
'On Error Goto 0
'On Error Resume Next
On Error Resume Next
szError =
szError = ERR_SUCCEEDED
'Default value an error occurred
'Start Reducing Spam Tips Section
' -2 = Doesn't expire or error (no expiry entry found)
' An MCSUBDATA_* error code
' MPS_GetActionItem() returns CFGUSER_ERROR on a failure and CFGUSER_SUCCESS on success.
' MPS_InvokeCommand() returns CFGUSER_ERROR on a failure and CFGUSER_SUCCESS on success.
' Returns: A MCSUBDATA_* error code
' Returns: An MCSUBDATA_* error code
' The function returns USERTYPE_ERROR (-1) on error. szError contains the error
' The only error return value from this function is -1, or CFGUSER_GENERIC_ERROR
' [out] lRetVal : An MCSUBDATA_* error code
' [out] p_lRetVal : An MCSUBDATA_* error code
' only if an error was returned.
' szError contains a description of the error. On success it will say Success. Typically
' szError returns a string description of the error. Typically should be used
' szError should be used only if an error was returned.
'// -1: Error Code
'// -1: Error code.
'Error strings
Const CFGUSER_ERROR = 1
Const CFGUSER_GENERIC_ERROR = -1
Const CFGUSER_GLOBALMUTEX_ERROR = 8
Const DB_FATAL_ERROR = McAfee
Const DB_INET_NOT_CONNECTED_ERROR = You
Const DB_PROGRAM_LAUNCH_ERROR = McAfee
Const ID_MSCIF_ENABLE = 40008
Const WPUD_ERROR_ENABLING = An