SSHリモートデスクトップBruke OG MEDのVisio

Sub ssh(shpObj As Visio.Shape, strA As String)
strB = "c:\Program Files\Putty\putty.exe -ssh " + strA
x = Shell(strB, vbNormalFocus)
End Sub

Sub rdp(rdpObj As Visio.Shape, strA As String)
strB = "c:\windows/system32/mstsc.exe /v:" + strA
x = Shell(strB, vbNormalFocus)
End Sub

Il vous faudra bien sûr modifier le chemin d’accès à Putty pour refléter votre configuration personnelle. Il vous faudra également faire un clic droit sur chacun de vos serveurs, sélectionner Properties et renseigner le champ IP Address .

Une fois cela fait, sélectionnez un de vos serveurs dans votre schéma puis allez dans le menu Window > Show Shapesheet . Dans la section Events (vers le bas de l’ensemble d’options), cliquez sur la case EventDblClick et entrez une des deux lignes suivantes :

=CALLTHIS("ThisDocument.ssh",,Prop.IPAddress)

pour un accès SSH ou

=CALLTHIS("ThisDocument.rdp",,Prop.IPAddress)

pour un accès RDP.

Répétez cette manipulation pour l’ensemble des serveurs que vous souhaitez utiliser de cette manière et il vous suffira de faire un double clic sur un serveur pour être connecté soit en SSH, soit en RDP.

Sub ssh(shpObj As Visio.Shape, strA As String)
strB = "c:\Program Files\Putty\putty.exe -ssh " + strA
x = Shell(strB, vbNormalFocus)
End Sub

Sub rdp(rdpObj As Visio.Shape, strA As String)
strB = "c:\windows/system32/mstsc.exe /v:" + strA
x = Shell(strB, vbNormalFocus)
End Sub

Il vous faudra bien sûr modifier le chemin d’accès à Putty pour refléter votre configuration personnelle. Il vous faudra également faire un clic droit sur chacun de vos serveurs, sélectionner Properties et renseigner le champ IP Address .

Une fois cela fait, sélectionnez un de vos serveurs dans votre schéma puis allez dans le menu Window > Show Shapesheet . Dans la section Events (vers le bas de l’ensemble d’options), cliquez sur la case EventDblClick et entrez une des deux lignes suivantes :

=CALLTHIS("ThisDocument.ssh",,Prop.IPAddress)

pour un accès SSH ou

=CALLTHIS("ThisDocument.rdp",,Prop.IPAddress)

pour un accès RDP.

Répétez cette manipulation pour l’ensemble des serveurs que vous souhaitez utiliser de cette manière et il vous suffira de faire un double clic sur un serveur pour être connecté soit en SSH, soit en RDP.