foreach $child(Win32::OLE::Enum->All($ADS)){
	print $child->Name . "\n";
}