Publié le 21/12/2010
Auteur m.pageaux
Réseaux sociaux
0 partages
0 tweets
0 plus
0 commentaires

SSHo : un client telnet avec scripting OLE

SSHo est un client telnet/SSH gérable depuis un autre soft par lien OLE ou en interne par script VBS/JS

avec cet outil tout ce que vous avez à faire par Telnet/SSH sur server ou router peut être automatisé.

un exemple des commandes dispo :

*********************************************************************
*commandes available to manage SSHo interface
*********************************************************************
set cli = createobject("SSHOLE.server")

* cli.CmdOut(A$) to send a command line to run
=> automatic reset of TextIn
=> automatic reset of waitStatus
*A$ = cli.TextIn to read text received after last command sent
*A = cli.LineNbIn to read Nbr of lines received after last command sent
*A$ = cli.LineIn(Nb) to read a specific line
* cli.FilterSet(A$) "ON"/"OFF" to activate/desactivate Filter at TextIn reading
* cli.FilterFor(Nb),(A$),(B$) 0<9 KeyWords A$ to search in text received after a command sent
and to replace by B$
* cli.WaitFor(Nb),(A$),(B$) 0<5 KeyWords A$ to search in text to receive
=> if B$ = "" then modification of WaitStatus
=> if B$ <> "" then B$ is sent on command line
*A = cli.WaitStatus to read result of WaitFor search (if nothing to send back)
if in WaitFor() A$ <> "" and B$ = "" => WaitStatus positionned
result = $1+$2+$4+$8+$10 for WaitFor(0,1,2,3,4))
* cli.IniReset to Reset WaitFor(), Filterfor() and Show()
* cli.Show(A) 0/1/2 to manage CmdOle windows Invisible/protected+Visible/Visible
3 no reset of TextIn
4 = 2 + Local Echo
* cli.UserOut(A$),(B$) to send automatic user A$= request of User / B$ = User to send
* cli.PasswOut(A$),(B$) to send automatic Password A$= request of password / B$ = Password to send
* cli.SSHset(a$) "ON"/"OFF" to use SSH or Telnet
* cli.Connect("ON") to connect to server
*A$ = cli.StatusIn to read connexion status ("Connected" if connected)
* cli.WaitReset to reset WaitStatus
* cli.IpOut(A$) to give IP adress
* cli.PortOut(A$) to give Port Number
* cli.TextRaz to reset Text
* cli.Log (A$) not used

*******************************************************************************
* Next commands are availables only when script is launched from SSHo
*******************************************************************************
*A$ = cli.ScriptName to have name of scrip running
*A$ = cli.ScriptFullName to have full name of scrip running
* cli.Pause to pause script running
* cli.Abort to abort script running
* cli.sleep(A) to stop script during A sec
*A$ = cli.Path to read path of SSHo
* cli.DoEvents to give time to other applications
* cli.Echo(A$) to print a line in communication windows
*
********************************************************************************
* 2 way to manage by ole SSHo
********************************************************************************
* 1) from internal script and no need to launch object by set "cli = createobject("SSHOLE.server")"
* OLE object is "SSHo" => this name of object is fix and unic
* no need to register "SSSHo" object if you use internal scripting
* 2) from external script, you have to launch SSHo object by set "cli = createobject("SSHOLE.server")"
* OLE object can have all names except "SSHO"
* You must register "SSHo" object if you want to use external launch of SSHo
********************************************************************************
* to register SSHo like OLE object
********************************************************************************
* you can launch register.bat script to register SSHo OLE object
* you can launch unregister.bat to unregister SSHo OLE object
* or ou have just to launch SSHo and registration will be done automatically
********************************************************************************
********* you must be administrator in your PC or SSHo will not start **********
******************************************************************************** SSH%20ole

Ajouter un commentaire

Les champs marqués d'un * sont obligatoires, les adresses emails se sont pas publiées.

A lire aussi

Réseaux sociaux
Télécharger le logiciel
Systeme
Windows
Langue
Francais
Licence
Gratuit
Téléchargé
44 fois
Télécharger (2031 ko)
Présentation de l'article
Catégorie
Mise a jour
21/12/2010
Visualisation
vu 2686 fois
Public
Internaute
Auteur de la publication
m.pageaux
Membre confirmé
Auteur de 8 articles
|BIO_PSEUDO|
Commentaires récents

Publié par fobec dans tuto

Effectivement, l'interface du site a evolue. Le lien de telechargement est ici: http://www.rainforestnet.com/download/sample.zip

Publié par troops28 dans CMS

C un truc qui va plaire ca ;) enfin j'espere
En ajoutant :
if ColWidths[i] < Canvas.TextWidth(strTemp) then ColWidths[i] := Canvas.TextWidth(strTemp)+10;

Dans la procedure LoadStr...

Publié par Jacques dans CMS

Cette méthode produit une gamme de gris qui ne tient pas compte des caractéristiques de la vision humaine.
En vidéo on utilise la fonction luminance qui représente mieux les jaunes et les ve...

Publié par pat59 dans CMS

j espere que le jeu vas fonctionner car vous le donnez mais il est bloqué snifff

Publié par Josalado dans CMS

je n'arrive pas à installer le logiciel <br>Message d'erreur : l'assistant d'installation n'a pas pu créer le dossier C:\program Files\Olibul <br>...