Visio 2003 Terminal Services link

[PhilBoller]

In a network diagram I am trying to embed a Terminal Services link (mstsc
/v:client) to client machines. I can embed a hyper link but, I need a
Terminal Services link to gain remote connectivity.

I am using Microsoft Office Visio Professional 2002 SP2.

Thanks,

 

[Al Edlund]

you might try something like this,

al
Dim strCommand As String = "c:\windows\system32\mstsc.exe /v:"

If visShape.CellExists("prop.IpAddress", False) Then

visCell = visShape.Cells("prop.IpAddress")

strCommand = strCommand & visCell.ResultStr("")

strCommand = strCommand & " /console"

' create the script shell environment

shellWin = CreateObject("wscript.shell")

' now execute the command that we built

shellWin.Run(strCommand)

Else

MsgBox("couldn't find IPAddress custom property")

Exit Sub

End If

 

[PhilBoller]

Mr. Edlund,

Bless you and thank you. I will try it.