Troubleshooting Code 800A03F6 – Expected ‘End’ Introduction to Error Code 800A03F6 This error code, 800A03F6 occurs when you execute a VBScript. The problem is that you have initiated ‘If…Then.. End’ logic, but you have omitted the End. The Symptoms You Get 800A03F6  The script does not execute as you hoped, instead you get a WSH error message. The Cause of Error 800A03F6The underlying cause error 800A03F6 of is a syntax omission, you are missing an ‘EndIF’ or and ‘End’ statement. When you have nested If’s or nested Else IF statements, then the chances of omitting one of the closing End statements increases dramatically. Note that the Source: is telling us it’s a compilation error, meaning faulty syntax. The SolutionThis a mixture of logic and syntax. Check each ‘If’, or ‘Else If’ statement and ensure there is a corresponding End If command. As ever, check the Line: number, in my example there are not enough ‘End If’ statements corresponding to the ‘Else If’ statements. ‡ Example of Error 800A03F6 ScriptHere is the critical section of the script, which contains multiple ‘Else If’ statements. In the problem script there is one too few ‘End If’ closing statements. For clarity I have left a blank line where the missing statement should be. Lower section of script starting at about line 40. If OSystem = "XP" Then
Wscript.Echo " This is where you set XP Group Policy "
Else If OSystem = "Windows 2003" Then
Wscript.Echo " No Group Policy on the server"
Else If OSystem = "W2K" Then
Wscript.Echo " You could set W2K Group Policy "
Else Wscript.Echo " Default group policy "
End If
End If Corrected VersionIf OSystem = "XP" Then
Wscript.Echo " This is where you set XP Group Policy "
Else If OSystem = "Windows 2003" Then
Wscript.Echo " No Group Policy on the server"
Else If OSystem = "W2K" Then
Wscript.Echo " You could set W2K Group Policy "
Else Wscript.Echo " Default group policy "
End If
End If
End If  Guy Recommends: SolarWinds Engineer’s Toolset v10
This Engineer’s Toolset v10 provides a comprehensive console of 50 utilities for troubleshooting computer problems. Guy says it helps me monitor what’s occurring on the network, and each tool teaches me more about how the underlying system operates. There are so many good gadgets; it’s like having free rein of a sweetshop. Thankfully the utilities are displayed logically: monitoring, network discovery, diagnostic, and Cisco tools. Try the SolarWinds Engineer’s Toolset now! Download your fully functional trial copy of the Engineer’s Toolset v10 Full Script to show that the error is around line 50.‘ OSVerBranch.vbs
‘ Purpose VBScript to discover the operating system version.
‘ Learning Points: Win32_ WMI objects. Case Select
‘ Usage if want to ‘branch’ depending on the OS
‘ Author Guy Thomas https://computerperformance.co.uk/
‘ Version 3.2 – November 14th 2010
‘ ————————————————————–‘
Option Explicit
Dim objWMI, objItem, colItems
Dim strComputer, VerOS, VerBig, Ver9x, Version9x, OS, OSystem ‘ Here is where we interrogate the Operating System
‘ On Error Resume Next ‘ Get the computer name dot = this computer.
strComputer = "."
‘ This is where WMI interrogates the operating system
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem",,48) ‘ Here we filter Version from the dozens of properties
For Each objItem in colItems
VerBig = Left(objItem.Version,3)
Next ‘ Spot VerBig variable in previous section
‘ Note the output variable is called OSystem Select Case VerBig
Case "5.0" OSystem = "W2K"
Case "5.1" OSystem = "XP"
Case "5.2" OSystem = "Windows 2003"
Case "4.0" OSystem = "NT 4.0"
Case Else OSystem = "Unknown – probably Win 9x"
End Select ‘ Actual Branching section
If OSystem = "XP" Then
Wscript.Echo " This is where you set XP Group Policy "
Else If OSystem = "Windows 2003" Then
Wscript.Echo " No Group Policy on the server"
Else If OSystem = "W2K" Then
Wscript.Echo " You could set W2K Group Policy "
Else Wscript.Echo " Default group policy "
End If
End If WScript.Quit ‘ End of script See More Windows Update Error Codes 8004 Series• Error 800A101A8 Object Required •Error 800A0046 •Error 800A10AD •Error 800A000D • Error 80048820 •Error 800A0401 •Review of SolarWinds Permissions Monitor • Error 80040E14 • Error 800A03EA • Error 800A0408 • Error 800A03EE  Guy Recommends: WMI Monitor and It’s Free!
Windows Management Instrumentation (WMI) is one of the hidden treasures of Microsoft operating systems. Fortunately, SolarWinds have created the WMI Monitor so that you can examine these gems of performance information for free. Take the guess work out of which WMI counters to use for applications like Microsoft Active Directory, SQL or Exchange Server. Download your free copy of WMI Monitor
Do you need additional help? Give something back? 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:
If you like this page then please share it with your friends
About The Author
ComputerPerfomance.co.uk uses cookies. More info.
| 
