$ConnDSN		= "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=test;PASSWORD='';OPTION=3;"
$objConn 		= DBConnOpen($ConnDSN)
? "Error @ERROR:  @SERROR"
sleep 2
$sql			= "INSERT INTO computer(name) VALUES('testcomputer')"

DBExecuteSQL($objConn,$sql)
? "Error @ERROR:  @SERROR"
sleep 2

DBConnClose($objConn)
? "Error @ERROR:  @SERROR"
sleep 2

Quote:

---

SETOPTION
Action
SetOption can be used to configure certain options of the KiXtart script engine.


Syntax
SETOPTION("option", "value")

Parameters
Option
Option to set.
Value
Value for the option.
The options and possible values are described in the following table:
ASCII ON, OFF Default console output is in Unicode. Setting the ASCII option to ON changes the output to ASCII, so you can output extended characters, such as line characters.
CaseSensitivity ON, OFF By default, all string comparisons are case-insensitive. Setting the CaseSensitivity option to ON configures KiXtart to make string comparisons case-sensitive.
DisableDebugging ON Disables debugging (effectively disables the DEBUG ON command). Note that debugging can not be re-enabled.
Explicit ON, OFF When you enable the Explicit option, you must explicitly declare all variables using the Dim, Global, or ReDim statements. If you attempt to use an undeclared variable name, an error occurs.
Use the Explicit option to avoid incorrectly typing the name of an existing variable.

---

Break On
call "@ScriptDir\info.udf"

Dim $SO
Global $StartTime
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$StartTime=@TICKS

Global $,$ADMIN,$ADSite,$AllDesktop,$AllStartMenu,$CPU,$CSD,$CommonAppData,$ConnDSN,$CurrentIP,
       $CurrentOS,$DNSHostName,$Date,$Desktop,$Dimm,$DomainMemberOf,$Favorites,$FreeSpace,$FullName,
       $HKCUSMWCV,$HKCUSMWNTCV,$HKLMSCCS,$HKLMSMWCV,$HKLMSMWCVAP,$HKLMSMWNTCV,$HomeDirectory,$HomeDrive,
       $HostComment,$HostName,$IE,$InstallDate,$Item,$LogonServer,$Patch,$BU,$MAC,
       $MaxPWAge,$McAfeeInfo,$Mhz,$NAVInfo,$NT2KXP,$NoNAVFound,$objConn,$OfficeApps,$OpenFile,
       $PWAge,$PassExpires,$ProdType,$Ram,$ST,$ScriptRunTime,$Server,$SoftWareLog,$StartMenu,$StopTime,
       $SystemLog,$SystemUpTime,$Time,$UserComment,$UserID,$MyVideoInfo,$MyCDInfo,$MyBIOSInfo,$sSrvc,
       $sTrgt,$ServiceName,$State,$StartMode,$SMSSite,$UserList,$LT,$MDAC,$NMPath,$NMApp,$VMWUser,
       $VMWPath,$VMWVer,$VMWToolsVer,$CVMVer,$CVMMapper,$CVMMapperVer,$ATVPN,$SMSFound,$SAPVersion,
       $HTMLLog,$ImageLocation,$MySoftware,$Explorer,$MyImage,$PList,$SList,$HDList,$SUList,$NetFrameVer

$ConnDSN		= "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=test;PASSWORD='';OPTION=3;"
$objConn 		= DBConnOpen($ConnDSN)
? "Error @ERROR:  @SERROR"
sleep 2
$sql			= "INSERT INTO computer(name) VALUES('testcomputer')"

DBExecuteSQL($objConn,$sql)
? "Error @ERROR:  @SERROR"
sleep 2

DBConnClose($objConn)
? "Error @ERROR:  @SERROR"
sleep 2

Break On
Call @ScriptDir+'\'+'info.udf'
  
Dim $SO
Global $StartTime
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$StartTime=@TICKS
  
Global $,$ADMIN,$ADSite,$AllDesktop,$AllStartMenu,$CPU,$CSD,$CommonAppData,$ConnDSN,$CurrentIP,
       $CurrentOS,$DNSHostName,$Date,$Desktop,$Dimm,$DomainMemberOf,$Favorites,$FreeSpace,$FullName,
       $HKCUSMWCV,$HKCUSMWNTCV,$HKLMSCCS,$HKLMSMWCV,$HKLMSMWCVAP,$HKLMSMWNTCV,$HomeDirectory,$HomeDrive,
       $HostComment,$HostName,$IE,$InstallDate,$Item,$LogonServer,$Patch,$BU,$MAC,
       $MaxPWAge,$McAfeeInfo,$Mhz,$NAVInfo,$NT2KXP,$NoNAVFound,$OfficeApps,$OpenFile,
       $PWAge,$PassExpires,$ProdType,$Ram,$ST,$ScriptRunTime,$Server,$SoftWareLog,$StartMenu,$StopTime,
       $SystemLog,$SystemUpTime,$Time,$UserComment,$UserID,$MyVideoInfo,$MyCDInfo,$MyBIOSInfo,$sSrvc,
       $sTrgt,$ServiceName,$State,$StartMode,$SMSSite,$UserList,$LT,$MDAC,$NMPath,$NMApp,$VMWUser,
       $VMWPath,$VMWVer,$VMWToolsVer,$CVMVer,$CVMMapper,$CVMMapperVer,$ATVPN,$SMSFound,$SAPVersion,
       $HTMLLog,$ImageLocation,$MySoftware,$Explorer,$MyImage,$PList,$SList,$HDList,$SUList,$NetFrameVer
  
$ConnDSN = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=test;PASSWORD='';OPTION=3;"
$objConn = DBConnOpen($ConnDSN)
? "Error : " + @ERROR + "  " +  @SERROR
Sleep 2
$sql = "INSERT INTO computer(name) VALUES('testcomputer')"
DBExecuteSQL($objConn,$sql)
? "Error : " + @ERROR + "  " +  @SERROR
Sleep 2
DBConnClose($objConn)
? "Error : " + @ERROR + "  " +  @SERROR
Sleep 2

dim $objConn

Function DBConnOpen($objConn, 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



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=@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=0
	exit 0

endfunction

DIM $sql,$objConn
$ConnDSN		= "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=test;PASSWORD='';OPTION=3;"
$objConn 		= DBConnOpen($ConnDSN)
? "Error @ERROR:  @SERROR"
sleep 2
$ = Strip($LogonServer,'\','all')
? $LogonServer
;$sql			= "INSERT INTO computer(name,LastLogonTime,LastLogonDate,LogonServer,Domain,CurrentIP,MACAddress,SerialNumber,OSType) VALUES('$HostName','$Time','$Date','$LogonServer','$DomainMemberOf','$CurrentIP','$MAC','','$ProdType')"
$sql			= "INSERT INTO computer(name,LastLogonTime,LastLogonDate,LogonServer) VALUES('$HostName','$Time','$Date','\')"

DIM $sql,$objConn,$var
$ConnDSN		= "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=test;PASSWORD='';OPTION=3;"
$objConn 		= DBConnOpen($ConnDSN)
? "Error @ERROR:  @SERROR"
sleep 2

$LogonServer = Strip('$LogonServer','\','all')
? $LogonServer
;$sql			= "INSERT INTO computer(name,LastLogonTime,LastLogonDate,LogonServer,Domain,CurrentIP,MACAddress,SerialNumber,OSType) VALUES('$HostName','$Time','$Date','$LogonServer','$DomainMemberOf','$CurrentIP','$MAC','','$ProdType')"
$sql			= "INSERT INTO computer(name,LastLogonTime,LastLogonDate,LogonServer) VALUES('$HostName','$Time','$Date','\')"

DBExecuteSQL($objConn,$sql)
? "Error @ERROR:  @SERROR"
sleep 5

DBConnClose($objConn)
? "Error @ERROR:  @SERROR"
sleep 5Code:


thanx for the help guys





Edited by thepip3r (2005-04-14 11:35 PM)