lastError Property

Returns -1 if errors, parse errors, or warnings occurred during the last invocation of the moveNext method; 0 otherwise.

Read-only property.

Script Syntax

value = objRecordSet.lastError;

Return Value

Examples

JScript example:

var oLogQuery = new ActiveXObject("MSUtil.LogQuery");

// Make sure that parse error messages are collected
oLogQuery.maxParseErrors = 100;

// Create Input Format object
var oIISW3CInputFormat = new ActiveXObject("MSUtil.LogQuery.IISW3CInputFormat");

// Create query text
var strQuery = "SELECT c-ip FROM <1> WHERE cs-uri-stem LIKE '%hitcount.asp'";

// Execute query and receive a LogRecordSet
var oRecordSet = oLogQuery.Execute( strQuery, oIISW3CInputFormat );

// Check if errors occurred
if(oLogQuery.lastError != 0)
{
        WScript.Echo("Errors occurred!");

        var oMessages = new Enumerator( oLogQuery.errorMessages );
        for(; !oMessages.atEnd();  oMessages.moveNext())
        {
            WScript.Echo("Error message: " + oMessages.item());
        }            
}

// Visit all records
while( !oRecordSet.atEnd() )
{
	// Get a record
	var oRecord = oRecordSet.getRecord();

	// Get first field value
	var strClientIp = oRecord.getValue( 0 );

	// Print field value
	WScript.Echo( "Client IP Address: " + strClientIp );

	// Advance LogRecordSet to next record
	oRecordSet.moveNext();

        // Check if errors occurred
        if(oRecordSet.lastError != 0)
        {
            WScript.Echo("Errors occurred!");

            var oMessages = new Enumerator( oRecordSet.errorMessages );
            for(; !oMessages.atEnd();  oMessages.moveNext())
            {
                WScript.Echo("Error message: " + oMessages.item());
            }            
       }
}

// Close LogRecordSet
oRecordSet.close();

VBScript example:

Dim oLogQuery
Dim oIISW3CInputFormat
Dim strQuery
Dim oRecordSet
Dim oRecord
Dim strClientIp

Set oLogQuery = CreateObject("MSUtil.LogQuery")

' Make sure that parse error messages are collected
oLogQuery.maxParseErrors = 100

' Create Input Format object
Set oIISW3CInputFormat = CreateObject("MSUtil.LogQuery.IISW3CInputFormat")

' Create query text
strQuery = "SELECT c-ip FROM <1> WHERE cs-uri-stem LIKE '%hitcount.asp'"

' Execute query and receive a LogRecordSet
Set oRecordSet = oLogQuery.Execute ( strQuery, oIISW3CInputFormat )

' Check if errors occurred
If oLogQuery.lastError <> 0 Then

    WScript.Echo "Errors occurred!"

    For Each strMessage In oLogQuery.errorMessages
        WScript.Echo "Error Message: " + strMessage
    Next

End If


' Visit all records
DO WHILE NOT oRecordSet.atEnd

	' Get a record
	Set oRecord = oRecordSet.getRecord

	' Get first field value
	strClientIp = oRecord.getValue ( 0 )

	' Print field value
	WScript.Echo "Client IP Address: " & strClientIp

	' Advance LogRecordSet to next record
	oRecordSet.moveNext

        ' Check if errors occurred
        If oRecordSet.lastError <> 0 Then

            WScript.Echo "Errors occurred!"

            For Each strMessage In oRecordSet.errorMessages
                WScript.Echo "Error Message: " + strMessage
            Next

        End If
LOOP

' Close RecordSet
oRecordSet.close

See also:

© 2004 Microsoft Corporation. All rights reserved.