I found UDF that you where referring to and was playing around... I have not gottem them to write to the DB yet though.. Am I doing something wrong?


; Open connection to the SQL database
DBConnOpen("Driver={SQL Server};Server=SQLServerHostName;UID=someUser;PWD=withSomePassword`;Database=computers')
DBExecuteSQL($objConn,"INSERT INTO computers VALUES('@WKSTA','@DOMAIN','@ADDRESS','@IPADDRESS0')")
DBConnClose($objConn)

Function DBConnOpen($ConnDSN, optional $ConnTimeout, optional $CmdTimeout)
Dim $objConn, $adStateOpen
$adStateOpen=Val('&00000001')

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
$objComm=''
$DBConnOpen=''
Exit @ERROR
EndIf

$DBConnOpen=$objConn
EndFunction

Function DBConnClose($objConn)
Dim $adStateOpen
$adStateOpen=Val('&00000001')
If VarType($objConn)=9
If $objConn.State = $adStateOpen
$objConn.Close()
If @ERROR
Exit @ERROR
EndIf
EndIf
$objConn=''
Else
Exit 87
EndIf

$DBConnClose=@ERROR
EndFunction

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=@error
EndFunction