I am using Visio 2003 Pro. I will share the complete code when i get it finished. There is a lot that i want to put in to the script, as it is still in the early stages of development. The next part of the script i am pulling values from the first query and using that to query the subnets to find all associated subnets that portion is almost there. I have plans to map all objects associated to a sight in this script, Link Cost Etc.

I would really like to figure how to add these custom attributes so i can store all Object proberties in the visio document. The top code was created by recording a macro in Visio and then view the vb script, and that works fine as a VB Script, but can not get it to convert to Kix correctly.

If anyone can figure it out, drop me aline and i will get it into the script.