My script is trying to retrieve user and computer info and put it into a MS SQL Db but I keep getting the error:

ERROR: invalid method/Function call: too many parameters!
Script: logon.kix
Line: 154

or i get Missing Comma! at the same location when I change the DBExecuteSQL line

;**********************************************
;BEGIN FUNCTION DB CONNECTION
;**********************************************

Function DBConnOpen($ConnDSN, optional $ConnTimeout, optional $CmdTimeout)
Dim $objConn, $adStateOpen

$dbconnopen=""

$adStateOpen=1

if vartype($ConnTimeout)
$ConnTimeout=val($ConnTimeout)
else
$ConnTimeout=15
endif

if vartype($CmdTimeout)
$CmdTimeout=val($CmdTimeout)
else
$CmdTimeout=30
endif

$ConnDSN=trim($ConnDSN)
if not $ConnDSN
exit 87
endif

$objConn = CreateObject("ADODB.Connection")
if @ERROR
exit @ERROR
endif

$objConn.ConnectionTimeout = $ConnTimeout
if @ERROR
exit @ERROR
endif

$objConn.CommandTimeout = $CmdTimeout
if @ERROR
exit @ERROR
endif

$objConn.Open($ConnDSN)
if @ERROR
exit @ERROR
endif

if not $objConn.State=$adStateOpen
$objConn=""
$DBConnOpen=""
exit @ERROR
endif
$DBConnOpen=$objConn
exit 0
EndFunction

;**********************************************
;END FUNCTION DB CONNECTION
;**********************************************


;**********************************************
;BEGIN FUCNTION DB EXECUTE
;**********************************************

function DBExecuteSQL($objConn, $sql, optional $cmdType)
dim $cmdCommand, $rsRecordset
dim $adCmdUnspecified, $adCmdText, $adCmdTable, $adCmdStoredProc, $adCmdUnknown, $adCmdFile, $adCmdTableDirect

$adCmdUnspecified = -1
$adCmdText = 1
$adCmdTable = 2
$adCmdStoredProc = 4
$adCmdUnknown = 8
$adCmdFile = 256
$adCmdTableDirect = 512

if vartype($cmdType)
$cmdType=val($cmdType)
else
$cmdType=$adCmdText
endif

if vartype($objConn)<>9 or $sql=''
exit 87
endif

$cmdCommand = CreateObject('ADODB.Command')
if @ERROR
exit @ERROR
endif

$cmdCommand.ActiveConnection = $objConn
if @ERROR
exit @ERROR
endif

$cmdCommand.CommandType = $cmdType
if @ERROR
exit @ERROR
endif

$cmdCommand.CommandText = $sql
if @ERROR
exit @ERROR
endif

$rsRecordset=$cmdCommand.Execute()
$cmdCommand=""
$rsRecordset=""
if @ERROR
exit @ERROR
endif

$DBExecuteSQL=0
exit 0

endfunction
;**********************************************
;END FUCNTION DB EXECUTE
;**********************************************

;**********************************************
;BEGIN FUNCTION DB CLOSE
;**********************************************
Function DBConnClose($objConn)
Dim $adStateOpen

$adStateOpen = 1

If vartype($objConn)=9
If $objConn.State = $adStateOpen
$objConn.Close()
if @ERROR
exit @ERROR
endif
EndIf
$objConn=""
else
exit 87
endif

$DBConnClose=0
exit 0
EndFunction
;**********************************************
;END FUNCTION DB CLOSE
;**********************************************

$objConn = DBConnOpen ("DRIVER={SQL Server};SERVER=Troy;UID=testuser;PWD=*****;DATABASE=UserTimes")

$retcode = DBCConnOpen($objConn)
$retcode = DBExecuteSQL ($objConn,"Insert into Logon (Userid, FullName, OSVer, SP, BuildNo, Workstation, Dom, DC, IP, MAC, CPU, RAM) VALUES (@USERID, @FULLNAME, @PRODUCTTYPE, @CSD, @BUILD, @WKSTA, @DOMAIN, @LSERVER, @IPINFO, @ADDRESS, @CPU, MEMORYSIZE()")
$retcode = DBConnClose ($objConn)


All Your Help is Greatly Appreciated