Haven't really read the whole thread by the simplest way to list users in a specific ou would be this:
 Code:
$=SetOption('Explicit','On')
$=SetOption('NoVarsInStrings','On')
Dim $objAdsPath, $obj, $filter[0]
$filter[0] = "User"
$objADsPath = GetObject("LDAP://OU=Normal,OU=Users,OU=SomeOU,DC=mydomain,DC=local")
$objAdsPath.filter = $filter
For Each $obj in $objAdsPath
  ? $obj.CN
Next


This would be the literal translation of your VB Script:
 Code:
$objConnection = CreateObject("ADODB.Connection")
$objCommand = CreateObject("ADODB.Command")
$objConnection.Provider = "ADsDSOObject"
$objConnection.Open("Active Directory Provider")
$objCommand.ActiveConnection = $objConnection

$objCommand.Properties("Page Size").Value = 1000
$objCommand.Properties("Searchscope").Value = 2

$objCommand.CommandText = "SELECT Name FROM 'LDAP://ou=some_ou,dc=subdomain,dc=domain,dc=tld' WHERE objectCategory='user'"  
$objRecordSet = $objCommand.Execute

$objRecordSet.MoveFirst
Do Until $objRecordSet.EOF
  ? $objRecordSet.Fields("Name").Value
  $objRecordSet.MoveNext
Loop