Discussion :

[bakman]

bonjour à tous ! samedi j'ai poster un sujet qui parler d'inclure la possibilité de d'ouvrir le bureau a distance a partir d'un formulaire qui a disparu .Pour cela j'ai créer un champ objet OLE dans ma table "poste de travail" qui contenait des fichier RDP .
J'aurais voulu ne pas avoir a les créer .j'ai vu qu'en mode création sur un fomulaire > autres controles >il y a une fonction " Microsoft RDP Client Control "
quelqu'un saurait il comment ca marche car une fois placer sur mon formulaire et ayant rempli les champ server , domain ,username , et password dans les propriétés il n'y a pas moyen de l'activer ou de clicker dessus .
Merci

[bakman]

en gros pour reformuler ma question je voudrais savoir comment faire pour lancer mstsc.exe en vb en spécifiant dans le code le nom de l'ordinateur qui lui ce trouverais dans le champ d'une table exemple
Gettsclient= "table_poste_de_travail_champ_nom_de_l'ordinateur"
Merci

[vodiem]

salut bakman et bienvenu,

j'ai un pb de serveur OLE qui ne me permet pas de faire des tests mais essaie avec: (pour l'activeX)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsRdpClient.Connect

(MsRdpClient étant le nom de ton control activeX)

pour l'exécution par ligne de commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

shell("mstsc.exe "+dlookup(...))

le dlookup doit renvoyer un nom de fichier rdp

[bakman]

Merci Viodem pour ton explication mais apparemment mon pc ne doit pas trop aimer activeX mais bon ^^
du coup j'essaye comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Commande64_Click()
Dim Shell
Set Shell = CreateObject("WScript.Shell")
Call Shell.Run("%SystemRoot%\system32\mstsc.exe")
End Sub

jusqu'ici tout va bien sauf que le champ ordinateur de mstc est vide
Cependant il est possible de rajouter des paramètres sous dos

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mstsc v:/nom_de_l'ordinateur

Etant donné que je suis un gros niub en vb je suis a court d'idées j'ai essayer ceci sans résultat évidament

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Commande64_Click()
Dim Shell
Set Shell = CreateObject("WScript.Shell")
Call Shell.Run("%SystemRoot%\system32\mstsc.exe") , ("v:/nom_de_l'ordinateur")
End Sub

Alors bien sur dans l'idée ce serai en premier lieu d'arriver a rajouter le paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

v:/nom_de_l'odinateur

et le merise sur le gâteau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

v:/ [A_POSTE DE TRAVAIL].Form![Nom_de_l'ordinateur]

Je vous remercie d'avance

[vodiem]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Shell.Run("%SystemRoot%\system32\mstsc.exe v:/" + forms![A_POSTE DE TRAVAIL].Form![Nom_de_l'ordinateur])

ca devrait allez mieux ainsi.

[bakman]

Merci beaucoup je pense que ça devrais marcher je viens viens d'essayer mais je me tappe un message d'erreur qui dit " impossible de trouver le formulaire "A_POSTE DE TRAVAIL"

[bakman]

voila ce que ca donne
[IMG][/IMG]

[bakman]

voici l'erreur
[IMG][/IMG]

[vodiem]

normal ton formulaire c'est "A_UTILISATEUR" et "A_POSTE DE TRAVAIL" un sous formulaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Shell.Run("%SystemRoot%\system32\mstsc.exe v:/" + [Nom_de_l'ordinateur])

comme ton bouton qui exécute le code se trouve sur le même formulaire tu peux te passer des form(s).

cela dis je suis pas expert en réseau mais il me semble que cela ne devrait pas suffire /v c'est pour connecter à un terminal serveur sur son port, il faut surement établir la connection avant avec un fichier rdp.

[bakman]

WWWWWWWWWWWWWWAAAAAAAAAAAAAAAAAOOOOOOOOOOOOOOOOOOOUUUUUUUUUUUUU
ca marche!!!!!!!!!!!!!!!!!! merci merci merci merci!!!!!!!
Plus besoin de créer les fichiers RDP avant !!!!!!
tu est le meilleur

[bakman]

Voici le bon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Shell.Run("%SystemRoot%\system32\mstsc.exe /v:" + [Nom_de_l'ordinateur])

avec le /avant v

[vodiem]

avec le /avant v

oui bien évidemment, ca m'apprendra à faire des copier/coller.