put above code in a .vbs file, change the file path and name in the first line and run it in the server. It will give you popup of all AD Groups assigned to the app.
You can turn this code into one which reads all the folders, and sub-folders, and appends information to a file. Then, you can read that file anywhere you want. You can also run this as a macro in your application, just enable the system access on the macro editor in QV.