You will need to changed the canoical name and DC in the LDAP query, but the following vbscript retrieves instance names for SQL Servers computers registered in AD

Const ADS_SCOPE_SUBTREE =...