Short answer. the visio autodiscovery addon was discontinued in 2002, you
have to write your own. Network discovery algorithms come in many shapes;
from the semi-active reading of arp cache to the active ping of possible
addresses. Address sweeps tend to be discouraged because they look like
denial-of-service attacks.

basic visio programming can be found over here
http://msdn.microsoft.com/library/en...asp?frame=true

you should consider the v2003 sdk
http://msdn.microsoft.com/library/de...HV01083292.asp

some network code that can be adapted to work in visio is over at Randy
Birchs site
http://vbnet.mvps.org/

I personally use some activex controls from Dart
http://www.dart.com/powertcp/

finally saving the information (database) is also important and here is an
example of access/excel integration
http://msdn.microsoft.com/library/de...collection.asp

al



JoJo wrote in message ...
Chris:

Thanks for your reply. Here are some additional questions that
immediately pop up.

I would like to use VB6/Visio combo to DISCOVER then DISPLAY various
devices on a network segment using Ping/ICMP/etc.

* How can I accomplish this goal ? Do I need to install a Visio
ActiveX component into my VB application ? Or do I have to use multiple
lines of VB code ?
* Is there a list of Visio ActiveX components to achieve various
objectives ?
* Where is your "quick Visio 101 in VBA" ?
* Can various Visio functions be launched from the Windows Command
Prompt ? I am considering the possibility of running a batch file to
DISCOVER & DISPLAY various network segments ?
* Another way of ask the previous question is as follows: Does Visio
have a separate executable file for its DISCOVERY engine ?



Thanks,
John.


"Chris Roth [ Visio MVP ]" wrote in
message ...
Some places to look:

John Marshall's (MVP) Site http://www.mvps.org/visio/VBA.htm
Microsoft Visio Developers
http://msdn.microsoft.com/office/understanding/visio/


And my quick Visio 101 in VBA:

To get hold of a shape, try this:

Dim visShp as visio.shape
set visShp = Visio.ActiveWindow.Selection(1) 'assuming a shape is
selected

To see the text:

visShp.Text

To get at any property:

visShp.Cells("cellname").Formula ' or .ResultIU

Go to Window Show ShapeSheet to see all the cells that a shape
contains.

This should get you started!

--

Hope this helps,

Chris Roth
Visio MVP


JoJo wrote in message ...
Folks:


While browsing through Visio 2003, I noticed a "VB6 Editor" component -
Tools Macro Visual Basic Editor.
I think this is a very useful combination and so I would like to get
some practice with the VB Editor and Visio 2003.
Any references/tutorials/examples deeply appreciated


* What is the purpose of including Visual Basic 6.3 within Visio 2003
?
* VB6.3 Editor combines with Visio 2003 to accomplish what objectives
?





Thanks,
Jo.