Executer un shell unix distant via vb?

Question

je veux commander et executer mes programmes existants sur un serveur unix apartir de mon poste PC connecté au serveur par le reseau locale ...
et j'utilise vb comme outil de programmation 

qui peut m'aider a resoudre ce probleme avec visual basic?

maintenant j'utilise un emulateur unix mais ca reste trops limiter et lourd

merci d'avance
wissem

Abou · Answer

Essai via un WinSocket.
Actuellement, j'essaye d'envoyer une commande. Le premier des 2 qui trouve en informe l'autre ? OK ?

refus · Answer

je refuse  : pourquoi ne pas passer par dos !!!

YannGav · Answer

Bonjour,

La r&#233;ponse &#224; ce probl&#232;me a-t-elle &#233;t&#233; trouv&#233;e ?
C'est exactement ce que je cherche, via un script VBScript depuis SQL Server. 

Merci de me faire parvenir un exemple de code si quelqu'un y est arriv&#233;.

Yann

YannGav · Answer

Re bonjour,

Si votre probl&#232;me n'est pas r&#233;solu, voici un script vbscript qui effectue ce genre de choses
(test&#233; depuis un lot DTS SQL Server) :


Function Main()


    Dim oShell
    Dim dtEnd
    Dim ElapsedTime


    ElapsedTime = 5                                                      ' Temps &#224; laisser passer entre 2 SendKeys
    Set oShell = CreateObject("WScript.Shell")
    oShell.Run "%comspec% /c telnet.exe"
    oShell.SendKeys "open ~"                     ' Les "~" correspondent &#224; la touche Entr&#233;e
    dtEnd = DateAdd("s", ElapsedTime, Now)
    Do While dtEnd > Now
    Loop
    oShell.SendKeys "<Login Name>~"
    dtEnd = DateAdd("s", ElapsedTime, Now)
    Do While dtEnd > Now
    Loop
    oShell.SendKeys "~"
    dtEnd = DateAdd("s", ElapsedTime, Now)
    Do While dtEnd > Now
    Loop
    oShell.SendKeys "cd /usr/lib~"                                    '|
    dtEnd = DateAdd("s", ElapsedTime, Now)                     '|   lancer les diff&#233;rentes commandes
    Do While dtEnd > Now                                                '|   souhait&#233;es
    Loop                                                                          '|
    oShell.SendKeys "test2.bat~"                                      '|
    dtEnd = DateAdd("s", ElapsedTime, Now)                     '|
    Do While dtEnd > Now                                                '|
    Loop                                                                          '|
    oShell.SendKeys "exit~"                                             ' Sortie de la console DOS Telnet 
    dtEnd = DateAdd("s", ElapsedTime - 3, Now)
    Do While dtEnd > Now
    Loop
    oShell.SendKeys "~"                                                   ' Interception du message de fin (Appuyer sur une touche)
    dtEnd = DateAdd("s", ElapsedTime, Now)
    Do While dtEnd > Now
    Loop
    oShell.SendKeys "quit~"                                             ' Sortie de la console DOS
    Set oShell = Nothing


    Main = DTSTaskExecResult_Success


End Function

Vous pourrez facilement supprimer les instructions sp&#233;cifiques aux lots DTS de SQL Server.

Bonne fin de journ&#233;e aux lecteurs ! 

Yann

Executer un shell unix distant via vb?

4 réponses

Discussions similaires