Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDimRshObj As New ASOCKETLib.RSh <samp>'Declaration de l'objet RSH</samp></li><li>
DimMsgOut As
String</li><li>
DimMsgError As
String</li><li> </li><li><samp>'** Creation **'</samp></li><li>
SetRshObj =
CreateObject(<var>"ActivXperts.RSh"</var>) <samp>'Creation de l'objet</samp></li><li> </li><li><samp>'** Code **'</samp></li><li>RshObj.
Clear<samp>'Effacement des instances précédentes</samp></li><li>RshObj.Host = <var>"MonServeurUnix"</var><samp>'Le nom du serveur Unix</samp></li><li>RshObj.UserName = <var>"NomUtilisateur"</var><samp>'Le nom d'utilisateur, attention l'utilisateur doit être référencé dans le fichier RHOSTS du serveur</samp></li><li>RshObj.
Command= <var>"MaCommandeUnix"</var></li><li>RshObj.ScriptTimeOut = 3000</li><li>RshObj.Run <samp>'Lancement de la commande</samp></li><li>
IfRshObj.LastError = 0
Then</li><li> MsgOut = RshObj.StdOut <samp>'Récupére le flux de la commande</samp></li><li> MsgError = RshObj.StdErr <samp>'Récupère les erreurs</samp></li><li>
End
If</li></ol>
DimRshObj As New ASOCKETLib.RSh <samp>'Declaration de l'objet RSH</samp></li><li><samp>'** Creation **'</samp></li><li>
SetRshObj =
CreateObject(<var>"ActivXperts.RSh"</var>) <samp>'Creation de l'objet</samp></li></ol> @++