This Error 800A03EE can be tricky. While it is indeed a syntax error, it may not be where you expect. Therefore, check the Char: Number for the line of this error.
Introduction to Code 800A03EE
Error code 800A03EE occurs when you execute a VBScript. You receive a
message box from Windows Scripting Host. Code 800A03EE means a
syntax error, check your punctuation especially the ampersands.
The Symptoms you get
The script does not execute as you hoped, instead you get a WSH error message.
The Cause of Code 800A03EE
Your VBScript contain is missing a argument. Note: The clue,
Error: Expected ")'. There is something wrong with a bracket or a
speech mark.
Source: Microsoft VBScript compilation error, means there is a syntax
error in your script, rather than a logical error with a server or network
object.
The Solutions
The Windows Scripting Host gives us three useful clues, firstly, look on
Line: 6, do count any remark or empty lines. Secondly, the Char: number (34), is very useful in tracing the error. In this
case
there is something wrong at the end of line 6. Thirdly Error: ')' is
pointing us to the script problem. Therefore, check the syntax of your script
and balance your brackets.
Example 1 of Script Code 800A03EE error
Note: The Line: 6 Char 34 strcn
It should be strcn) note the closing bracket
'CREATE USER AND SET PASSWORD
strcn = "bilbo65"
strsam= "bilbo65"
strpasswd = sbuline9
Set objOU=GetObject("LDAP://ou=Droitwich,dc=cp,dc=com")
objUser = objOU.Create("User", "cn=" & strcn
objUser.Put "sAMAccountName","bilbo65"
ObjUser.SetInfo
objUser.SetPassword strpasswd
Corrected Version
'CREATE USER AND SET PASSWORD
strcn = "bilbo65"
strsam= "bilbo65"
strpasswd = sbuline9
Set objOU=GetObject("LDAP://ou=Droitwich,dc=cp,dc=com")
objUser = objOU.Create("User", "cn=" & strcn)
objUser.Put "sAMAccountName","bilbo65"
ObjUser.SetInfo
objUser.SetPassword strpasswd
Sometimes Expected ')' is not the true problem, the real villain is the
ampersand, or to be precise the missing ampersand (&).
In terms of troubleshooting, we need to check Line: 11, Char: 37. Set objDomain = GetObject("LDAP://" strContainer)
There should be an ampersand :
Set objDomain = GetObject("LDAP://" & strContainer)
' CreateOU.vbs
' VBScript to Create a new OU, with 2 child OUs
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.8 - March 10th 2004
' -----------------------------------------------------------------'
Option Explicit
Dim objOU, objDomain, strNewOU, strContainer
strNewOU = "OU=St1 Hilary"
strContainer = "dc=cp,dc=com"
Set objDomain = GetObject("LDAP://" strContainer) Set objOU = objDomain.Create("organizationalUnit", strNewOU)
objOU.SetInfo
Set objDomain = GetObject("LDAP://dc=cp,dc=com")
set objOU = objDomain.Create("organizationalUnit", "OU=Permies" & "," &
strNewOU)
objOU.SetInfo
Set objDomain = GetObject("LDAP://dc=cp,dc=com")
Set objOU = objDomain.Create("organizationalUnit", "OU=Temps" & "," & strNewOU)
objOU.SetInfo
Here is another example of Code 800A03EE , note the position of the speech
marks, it should be:
Set objOU =GetObject("LDAP://ou=Worcester,dc=CP,dc=com")
' BindAD.vbs
' VBScript to bind to Active Directory
' Author Guy Thomas
' Version 2.5 - March 10th 2004
' -----------------------------------------------------------------'
Dim objOU, obUser
Dim strContainer Set objOU =GetObject("LDAP://"ou=Worcester,dc=CP,dc=com) Set objUser = objOU.Create("User", "cn=GuidoF")
objUser.Put "sAMAccountName", "GuidoF"
objUser.SetInfo
WScript.Echo "Created" & objUser.get ("Cn")
WScript.quit
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
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.