Code Error 800A041F - Unexpected 'Next'

This error code, 800A041F occurs when you execute a VBScript with a loop. My suggestion is that there is missing End or End If statement. Code Error 800A041F - Unexpected 'Next'

The Symptoms you get 800A041F

The Cause of Error 800A041F

The underlying cause is a syntax error, in the sense that you are missing an 'End If' statement. In my example, the error is blamed on Line: 23, however the problem occurs earlier in the script. An examination of the statement: 'If objUser.class="user"' then, reveals that there is no valid 'End If' statement.

The Solution

This error message is caused by a mixture of logic and syntax. If you focus on the word 'Unexpected' then you get a valuable clue. Incidentally, I first read the Error: as 'Expected' instead of 'Unexpected', this mistake set me back half an hour.

VBScript's 'Next' statement is present, but it comes too soon, the 'End IF' is missing. In your script, check each 'If', and 'Else If' statement, what you are looking for is a missing End If command.

Example of Error 800A041F Script

The actual problem is not with the For .... Next loop, but with the inner loop: If.. Then. What is needed is an 'End If'. Close study reveals that the 'End If' has been 'Remmed out and that is why the script fails.

' Set AccountControl.vbs
' Example VBScript to enable user accounts in a named OU
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.7 - March 21st 2004
' -----------------------------------------------------------------'
Option Explicit
Dim objOU, objUser, objRootDSE
Dim strContainer, strLastUser, strDNSDomain, intCounter, intAccValue
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
strContainer = "OU=Cowbridge ,"
intAccValue = 512
strContainer = strContainer & strDNSDomain
set objOU =GetObject("LDAP://" & strContainer )
intCounter = 0
For each objUser in objOU
    If objUser.class="user" then
    objUser.Put "userAccountControl", intAccValue
    objUser.SetInfo
    intCounter = intCounter +1
    strLastUser = objUser.Get ("name")
    ' End if
next
WScript.Echo intCounter & " Accounts Enabled. Value " _
& intAccValue
WScript.Quit
' End of VBScript Example

Corrected Version

' Set AccountControl.vbs
' Example VBScript to enable user accounts in a named OU
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.7 - March 21st 2004
' -----------------------------------------------------------------'
Option Explicit
Dim objOU, objUser, objRootDSE
Dim strContainer, strLastUser, strDNSDomain, intCounter, intAccValue
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
strContainer = "OU=Cowbridge ,"
intAccValue = 512
strContainer = strContainer & strDNSDomain
set objOU =GetObject("LDAP://" & strContainer )
intCounter = 0
For each objUser in objOU
     If objUser.class="user" then
     objUser.Put "userAccountControl", intAccValue
     objUser.SetInfo
     intCounter = intCounter +1
     strLastUser = objUser.Get ("name")
     End if
next
WScript.Echo intCounter & " Accounts Enabled. Value " _
& intAccValue
WScript.Quit

' End of VBScript Example

Try a different solution, download SolarWinds ipMonitor

Here is my thinking, ipMonitor will give you valuable data about your network and servers. This extra information just may unlock the solution to your error code. One more thing, sometimes when troubleshooting you go around in circles; therefore if you try a different, but related approach, you may just crack the problem. Free Download of SolarWinds ipMonitor (21 day eval).

Computer Training Software - Recommended Training Videos

Guy Thomas recommends Computer Training Software.

Their topics and material are ideal for getting you started with VBScript. The videos are easy to follow and you can control the pace. Try their free demo material and then see if you want to buy the full package. See more about VB Script Training CD.

Would you like to help others? If you have a good example of this error, then please email me, I will publish it with a credit to you:

Guy's Top 10 Free Tools