#!/usr/bin/perl -w

use strict;
use Win32::OLE;

my $strCon = "Provider=SQLOLEDB; Data Source=XXXXX; Initial Catalog=SMS; "
	. "User ID=XXXXX; Password=XXXXX";
	
my $strSql = "SELECT System_DATA.Name0, datediff(dd, LastUpdateDate, getdate())" 
	. " 'age' FROM SoftwareInventoryStatus INNER JOIN System_DATA on "
 	. "System_Data.MachineID = SoftwareInventoryStatus.ClientID WHERE "
 	. "(datediff(dd, LastUpdateDate, getdate()) > 30)" ;
	
my $objCon = new Win32::OLE("ADODB.Connection");
my $objRecordset = new Win32::OLE("ADODB.Recordset");

$objCon->{'ConnectionString'} = $strCon;
$objCon->Open;

$objRecordset->Open($strSql, $objCon);

while (not $objRecordset->{'EOF'}) {
	print $objRecordset->{'Name0'}{'Value'}, "\t";
	print $objRecordset->{'age'}{'Value'}, "\n";
	$objRecordset->MoveNext;
}

$objRecordset->Close;
$objCon->Close;

##</code><code>##

Option Explicit
Dim objConnection, objRecordset, strSQL, Name

Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.ConnectionString  = "Provider=SQLOLEDB; Data Source=XXXX; Initial Catalog=SMS; User ID=XXXX; Password=XXXX"
objConnection.Open

Set objRecordset = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Name0, MachineID FROM System_DATA WHERE  MachineID >= 0 ORDER BY Name0"
objRecordset.Open strSQL, objConnection