break on

$objRootDSE = GetObject("LDAP://RootDSE")
$strDomain = $objRootDSE.Get("DefaultNamingContext")
$objConnection = CreateObject("ADODB.Connection")
$objConnection.Open("Provider=ADsDSOObject;")
$objCommand = CreateObject("ADODB.Command")
$objCommand.ActiveConnection = $objConnection
$OU = ""

? "Enter computer name: "
gets $comp

$objCommand.CommandText = "SELECT distinguishedName FROM 'LDAP://" 
               + $strDomain + "'" + " WHERE cn='" + $comp + "'"

$objRecordSet = $objCommand.Execute()
While Not $objRecordSet.EOF
   $dn = $objRecordSet.Fields("distinguishedName").Value
   $OU = right($dn, len($dn) - instr($dn, ","))
   $objRecordSet.MoveNext
loop

if $OU
   $objCommand.CommandText = "SELECT Name FROM 'LDAP://" + $OU + "'" +
                  " WHERE objectCategory='printQueue'"
   $objRecordSet = $objCommand.Execute()
   While Not $objRecordSet.EOF
         ? $objRecordSet.Fields("Name").Value
         $objRecordSet.MoveNext
   loop
else
   ? "Can't find " + $comp
endif