Dim $cnstring, $recordset, $retcode, $Workstation, $MAC, $DOMAIN, $row, $column, $COUNT, $MachineString, $LabMachine, $Query
Dim $ArrayItem
$cnstring = DBConnOpen('Driver={MySQL ODBC 3.51 Driver};Server=kbox;Database=ORG1;User=R1;Password=******;Option=3;')
$Query = "Select NAME, MAC, DOMAIN FROM MACHINE WHERE NAME LIKE '" + $Prefix + "%' ORDER BY NAME LIMIT 1000;)"
$recordset = DBGetRecordset($cnstring,$Query)
$retcode = DBConnClose($cnstring)
Dim $LabMachines[999]
?? UBound($recordset) ??
For $row = 0 to UBound($recordset,1)
$Workstation = $recordset[$row,0]
$MAC = $recordset[$row,1]
$Domain = $recordset[$row,2]
$MachineString = $Workstation + "," + $MAC + "," + $Domain
$LabMachines[$row] = $MachineString
Next
ReDim Preserve $LabMachines[$row - 1]
$CV_GetReservationInfo = $LabMachines
EndFunction