Visio with Remote Desktop

I want to add to the web pages published through Visio so that if I click on
a server it will remote desktop to it. Can anyone tell me if this is
possible. I have done it for telnet and VNC before.

Also do you know if there is a way to put a button onto the webpage to issue
a command to the servers in a rack (for instance: shutdown).

Ian.

I use this to get to a terminal services session, don't know how it would
work from a web site.
Regarding doing a server shutdown, check out the scripting center on technet
for wmi scripts.

al


' We may want to work with something that supports terminal services

Public sub TermServeToTarget(byval visShape as visio.shape)

Dim visCell As Visio.Cell
Dim wsh ' create a variable for the script shell
Dim strCommand as string

' build the command preface
strCommand = ""c:\windows\system32\mstsc.exe /v:"
' check for custom property, if there get ip address if not get out
if visShape.CellExists("prop.IpAddress",False) then
Set visCell = visShape.Cells("prop.IpAddress")
strCommand = strCommand & visCell.Value
strCommand = strCommand & " /console"
else

Msgbox"counldn't find custom property"
exit sub
end if

' create the script shell environment
Set wsh = CreateObject("wscript.shell")

' now execute the command that we built
wsh.Run (strCommand)

End Sub




"Ian" wrote in message
...
I want to add to the web pages published through Visio so that if I click
on
a server it will remote desktop to it. Can anyone tell me if this is
possible. I have done it for telnet and VNC before.

Also do you know if there is a way to put a button onto the webpage to
issue
a command to the servers in a rack (for instance: shutdown).

Ian.

Al,

Is there a way to build a "pure hyperlink" that links to terminal server and
what-not? That's how I interpreted Ian's question.

If he could build a hyperlink, then the Visio export-to-web links would
still function.


--

Chris Roth
Visio MVP

Free Visio shapes:
http://www.visguy.com/category/shapes
Visio programming info:
http://www.visguy.com/category/programming/
Other Visio resources:
http://www.visguy.com/visio-links/



"Al Edlund" wrote in message
...
I use this to get to a terminal services session, don't know how it would
work from a web site.
Regarding doing a server shutdown, check out the scripting center on
technet for wmi scripts.

al


' We may want to work with something that supports terminal services

Public sub TermServeToTarget(byval visShape as visio.shape)

Dim visCell As Visio.Cell
Dim wsh ' create a variable for the script shell
Dim strCommand as string

' build the command preface
strCommand = ""c:\windows\system32\mstsc.exe /v:"
' check for custom property, if there get ip address if not get out
if visShape.CellExists("prop.IpAddress",False) then
Set visCell = visShape.Cells("prop.IpAddress")
strCommand = strCommand & visCell.Value
strCommand = strCommand & " /console"
else

Msgbox"counldn't find custom property"
exit sub
end if

' create the script shell environment
Set wsh = CreateObject("wscript.shell")

' now execute the command that we built
wsh.Run (strCommand)

End Sub




"Ian" wrote in message
...
I want to add to the web pages published through Visio so that if I click
on
a server it will remote desktop to it. Can anyone tell me if this is
possible. I have done it for telnet and VNC before.

Also do you know if there is a way to put a button onto the webpage to
issue
a command to the servers in a rack (for instance: shutdown).

Ian.

Chris,
terminal server client doesn't like a web-call interface, it prefers to
instantiate itself as a full screen operation from a command line. For some
of the operations stuff you can fudge around it using a telnet session to
the server/workstation and then execute task specific shell commands (I
often use the netsh). That get's a little hairy because what comes back is
an ansi character encoded stream (It's trying to format an 80x40(?)
character screen) so you have to parse out the screen control commands if
you want to automate using it.
Al

"Chris Roth [MVP]" visioguy [at] hotmail [dot] com wrote in message
...
Al,

Is there a way to build a "pure hyperlink" that links to terminal server
and what-not? That's how I interpreted Ian's question.

If he could build a hyperlink, then the Visio export-to-web links would
still function.


--

Chris Roth
Visio MVP

Free Visio shapes:
http://www.visguy.com/category/shapes
Visio programming info:
http://www.visguy.com/category/programming/
Other Visio resources:
http://www.visguy.com/visio-links/



"Al Edlund" wrote in message
...
I use this to get to a terminal services session, don't know how it would
work from a web site.
Regarding doing a server shutdown, check out the scripting center on
technet for wmi scripts.

al


' We may want to work with something that supports terminal services

Public sub TermServeToTarget(byval visShape as visio.shape)

Dim visCell As Visio.Cell
Dim wsh ' create a variable for the script shell
Dim strCommand as string

' build the command preface
strCommand = ""c:\windows\system32\mstsc.exe /v:"
' check for custom property, if there get ip address if not get out
if visShape.CellExists("prop.IpAddress",False) then
Set visCell = visShape.Cells("prop.IpAddress")
strCommand = strCommand & visCell.Value
strCommand = strCommand & " /console"
else

Msgbox"counldn't find custom property"
exit sub
end if

' create the script shell environment
Set wsh = CreateObject("wscript.shell")

' now execute the command that we built
wsh.Run (strCommand)

End Sub




"Ian" wrote in message
...
I want to add to the web pages published through Visio so that if I click
on
a server it will remote desktop to it. Can anyone tell me if this is
possible. I have done it for telnet and VNC before.

Also do you know if there is a way to put a button onto the webpage to
issue
a command to the servers in a rack (for instance: shutdown).

Ian.