basc script for adnet