Connecting to MS-SQL

;===============================================================================
; Description:		Connecting to a MS-SQL database server
; Author(s):		Videre Research, LLC - http://videreresearch.com
;===============================================================================
$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("Provider=SQLOLEDB;Data Source=change_me_server_name;Initial Catalog=change_me_database_name;Connect Timeout=150;Network Library=dbmssocn; User ID=change_me; Password=change_me;")
IF IsObj($sqlCon) then
    $rs = ObjCreate( "ADODB.RecordSet" )
    $rs.Open( "SELECT * from change_me_table_name where last_updated > '" & @MON&"/"&@MDAY&"/"&@YEAR & "' order by last_updated", $sqlCon )
   $recordcount =0
    While $rs.eof <> TRUE
    ConsoleWrite($rs.Fields( "userid" ).Value & @CRLF)
    ConsoleWrite($rs.Fields( "log_results" ).Value & @CRLF & @CRLF)
    for $x in $rs.Fields
       ConsoleWrite($x.name)
       ConsoleWrite(" = ")
       ConsoleWrite($x.value & @CRLF)
    next
        $recordcount +=1
        $rs.MoveNext
    WEnd
   $rs.Close
   $sqlCon.Close
   ConsoleWrite($recordcount & @CRLF)
EndIf