AD Account Status using Excel and ADO Connection - Need Some Help Please

Can someone tell me what I'm doing wrong? I'm a novice and still trying to puzzle my way through vbscript. Thanks!

Error occurs on Line 33, Char 2, Error = Object required: 'objUser' Code: 800A01A8

I know my problem is loading the users from the spreadsheet and then trying to perform a write function if the account is enabled or disabled, but I'm not quite sure how to perform the function.


' Brian Nettles
' Are AD accounts in the spreadsheet Enabled or Disabled

' Before starting (Create System ODBC DSN named "Excel" and point to spreadsheet.)

'Open the Excel Spreadsheet using ActiveX Data Objects
Dim oCN
Set oCN = CreateObject("ADODB.Connection")
oCN.Open "Excel"

Dim oRS
Set oRS = oCN.Execute("SELECT * FROM [Sheet1$]")

' Get a reference to the Windows Domain using ADSI
Dim oDomain
Set oDomain = GetObject("WinNT://CORP")

' Open an output file for logging
Dim oFSO, oTS
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTS = oFSO.CreateTextFile("AccountStatus_Log.txt", True)

'For each record in the recordset, respond if Account is Enabled or Disabled
'Go through the recordset one row at a time
Do Until oRS.EOF

Dim strUser
Dim strAccountStatus
      'Get the user information from this row
      strUser = oRS("UserID")
      strAccountStatus = objUser.get("AccountDisabled")
      If( strAccountStatus = True ) Then
            oTS.Write strUserID & "," & "Account Disabled"
      Else
            oTS.Write strUserID & "," & "Account Enabled"
      End If

Set objUser = Nothing

'Move to the next row in the recordset
oRS.MoveNext

Loop

oRS.Close
oTS.Close
WScript.Echo "Finished"Start Free Trial