AD Accounts - Last Logon Timestamp

Anyone know what I'm doing wrong? I want to export the user accounts and last logon to an excel spreadsheet ... out of Active Directory ... below is a modified version of my script.

Thanks,
Brian
______________________________________________________________________



'****************************************************************************
'**  Created by Brian Nettles for User Last Login for CORP.Contoso.com                                              **
'**  This script exports the following fields:                                                                                       **
'**  Username, Display Name, Last Login                                                                                          **
'**  Each line is tab delimited to be used for the XLS format                                                               **
'****************************************************************************


'Global variables
Dim oContainer
Dim OutPutFile
Dim FileSystem

'Initialize global variables
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("LastLogin_CORP.xls", True)

OutPutFile.WriteLine     "Username" & vbtab & "Display Name" & vbtab & "Last Logon Timestamp"

Set oContainer = GetObject("LDAP://OU=Accounts,DC=Corp,DC=Contoso,DC=com")


'Enumerate Container
EnumerateUsers oContainer

'Clean up
OutPutFile.Close
Set FileSystem = Nothing
Set oContainer = Nothing

WScript.Echo "Finished"
WScript.Quit(0)


Sub EnumerateUsers(oCont)
     Dim oUser, bUser
     For Each oUser In oCont
          bUser = False
          Select Case LCase(oUser.Class)
               Case "user"

                    ' User Account Login
                    If Not IsEmpty(oUser.sAMAccountName) Then
                         If Not Instr(1,LCase(oUser.sAMAccountName),"svc",vbTextCompare) > 0 Then
                            If Not Instr(1,LCase(oUser.sAMAccountName),"admin",vbTextCompare) > 0 Then
                         If Not Instr(1,LCase(oUser.sAMAccountName),"training",vbTextCompare) > 0 Then
                                   bUser = True
                                   OutPutFile.Write oUser.sAMAccountName & vbtab
     
     
                                   ' User Account Display Name
                                   OutPutFile.Write oUser.displayName & vbtab
                                   ' User Account Last Logon Timestamp
                                   OutPutFile.Write oUser.lastLogonTimestamp & vbtab
                              End If
                         End If
                    End If
               End If

               Case "organizationalunit", "container"
         
                    EnumerateUsers oUser
          End Select
          If bUser Then
               OutPutFile.WriteLine
          End If
     Next
End Sub