SSH УСО у кон escritorio Remoto Visio

Visio эс уна Excelente пункт crear herramienta diagramas красного пункт comprender rápidamente Servidores Organización-де-лос-де-ла Empresa. Con АСООН pocas Lineas Visual Basic себе puede ИНТЕГРАР утешал уна у эль Acceso пункт SSH Escritorio Remoto Servidores diferentes, что pueden facilitar администрации и Су красный.

Definición Диаграмма красного Visio

Abierto уна VEZ эль Диаграмма Visio Alt + F11, чтобы импульс пункт Эль abrir редактор Visual Basic continuación, Анада лас siguientes Lineas.:

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.