[R] Lancement UltraVNC

[danieldls]

Bonjour à tous,

J'ai créer un programme DOS qui me permet d'installer à distance UltraVNC afin de prendre la main à distance sur les machines de notre domaine.

Le programme fonctionne correctement en le lançant depuis une fenêtre DOS.

Je souhaiterai créer une interface graphique afin de faciliter le travail des personnes qui auront à utiliser la prise de main à distance.

J'en suis là ... c'est à dire pas trés loin du départ :

Code : Tout sélectionner

#Region ### START Koda GUI section ### Form=D:\_RESEAU CG65_\UltraVNC\UltraVNC.kxf
$HotLine = GUICreate("Conseil Général des Hautes-Pyrénées", 387, 146, 294, 311, BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_CLIPSIBLINGS))
GUISetCursor (0)
GUISetFont(11, 400, 0, "Arial Black")
GUISetBkColor(0xC0C0C0)
$ALabel1 = GUICtrlCreateLabel("Taper le Numéro de l'Unité Centrale", 80, 16, 233, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
$wks = GUICtrlCreateInput("wks-i0", 24, 56, 337, 30)
GUICtrlSetBkColor(-1, 0xC0DCC0)
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER+$GUI_DOCKVCENTER+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("Lancer l'installation d'UltraVNC", 24, 104, 337, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

L'utilisateur saisi un nom de machine dans $wks et je souhaiterai qu'en cliquant sur le $Button1, lancer le programme dos c:/fastpush/install [valeur saisie dans $wks]

Exemple : c:/fastpush/install wks-i02222

Je suis à la recherche d'infos concernant la création de ce script alors si l'entre vous peut me filer un coup de main.

En vous remerciant par avance du temps que vous venez déjà de passer à lire ce post

@+

DANIEL

[jbnh]

Salut Daniel,

Testes ceci:

Code : Tout sélectionner

While 1
$nMsg = GUIGetMsg()
select

Case $nMsg = $GUI_EVENT_CLOSE
Exit

Case $nMsg = $Button1
ShellExecute("c:/fastpush/install" & Guictrlread($wks))

Endselect
WEnd

[danieldls]

Merci bien pour la rapidité de ta réponse.

J'ai testé et voilà ce que j'obtiens :



y a t il une contrainte dans l'endroit où doivent être les différents programmes ?

A suivre ....

[Tlem]

y a t il une contrainte dans l'endroit où doivent être les différents programmes ?

En supposant que le programme est bien Install.exe, il vous faudra vérifier qu'il ce trouve bien dans le répertoire C:\fastpush\ et utiliser la commande ShellExecute comme ceci :

Code : Tout sélectionner

ShellExecute('C:\fastpush\install.exe', Guictrlread($wks))

.
Si cela ne fonctionne pas, vous pouvez aussi essayer avec la commande Run ou RunWait comme ceci :

Code : Tout sélectionner

RunWait('C:\fastpush\install.exe ' & Guictrlread($wks), '', @SW_HIDE)

[danieldls]

Oups ... le programme "install" est un ".cmd"

Petit détail qui a son importance et que j'ai omis de signaler ... Désolé

[jbnh]

Dans ce cas remplace le .exe en .cmd ^^

[Tlem]

Si c'est un CMD, cela veut dire que votre programme est un simple batch ...
Avec le contenu du batch, nous pourrions envisager de tout faire avec AutoIt !
Si votre fichier Install.cmd n'à rien de secret, placé le code ici pour que l'on voie si il est possible de le faire en AutoIt.

[danieldls]

...En supposant que le programme est bien Install.exe, il vous faudra vérifier qu'il ce trouve bien dans le répertoire C:\fastpush\ et utiliser la commande ShellExecute comme ceci :

Code : Tout sélectionner

ShellExecute('C:\fastpush\install.exe', Guictrlread($wks))

Code : Tout sélectionner

RunWait('C:\fastpush\install.exe ' & Guictrlread($wks), '', @SW_HIDE)

Les deux expressions indiquées ci dessous ne fonctionnent malheureusement pas.

[ani]

hello danieldls

distinguont la manière d'utilisater les fonction run(wait) & shellexecute(wait)

Run = pour ms-dos
Shellexecute = pour la boîte de dialogue excécuter

Pour le ms-dos, dans la plupart des cas on devra utiliser la macro @comspec = Command.com

Exemple = Run(@COMSPEC & " /c C:\fastpush\install " & Guictrlread($wks))
On indique aucune extension, car sous run (dos) elles sont reconnues (com,bat,exe,pif)

Pour le wait (runwait & shellexecutewait), indique qu'il attendra la fin du processus avant de renvoier la main (enfin j'espere que c'est bien çà )

Au niveau de ton exemple de script, la valeur se trouvant dans le input $wks changera ou pas ? wks-io

Voilàvoilà

[danieldls]

....Au niveau de ton exemple de script, la valeur se trouvant dans le input $wks changera ou pas ? wks-io...

Concernant le point ci-dessus, $wks prendra la valeur des unités centrales sur lesquelles le Tech souhaite prendre la main.

Exemple : wks-i06051, wks-i04329, etc ...

[danieldls]

...Run(@COMSPEC & " /c C:\fastpush\install " & Guictrlread($wks)) ...

Cette commande fonctionne parfaitement. Elle me permet d'installer le client UltraVNC sur les postes distants et de prendre la main dessus sans installation en local.

Merci beaucoup de votre aide à tous et, rassurez vous , je n'hésiterez pas à revenir vers vous au prochain problème ! ! !

Meric encore et bonne continuation à tous

[ani]

ok pas de soucis
Pour la valeur wks-i0 si elle reste valable tout au long de la vie du logiciel, on peut juste l'ajouter dans la commande d'excécution run(wait) comme ci-dessous

run(@comspec & " /c c:\fastpush\install wks-i0" & Guictrlread($wks))

et de laisser vierge la valeur du input

voilàvoilà

[danieldls]

Re,

Voilà une idée qu'elle est bonne ! ! !

A ce jour, la seule évolution que je vois à l'interface graphique, c'est soit la fermeture automatique dés que le .cmd est lancé, soit un bouton qui fermera la fenêtre.

La première solution serait peut-être la plus logique.

Et Merci encore à vous tous pour votre aide...