< !-- { 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