Pour le telnet il faut siplement utiliser shell :
prog --> racine systeme ex. : c:\windows\system32\
retval = Shell(prog & "cmd /k telnet 10.0.0.1 ", 1)
pour tout ce qui est recupération de données (pas pour telnet ...) ex ping etc. ...
je conseille simplement de :
créer un fichier *.bat avec un scripte vba ex :
Public Function ouvrir_fichier(chemin As String, nomfich As String) As Object
'******************************************************************
'* cette fonction sert à ouvrir un fichier en écriture *
'******************************************************************
' exemple : dim a as object
' set a = ouvrir_fichier("c:\Mes Documents", "toto.txt")
' a.WriteLine("Mon text")
' ceci permet d'ajouter des lignes dans le fichier toto.txt contenu dans c:\Mes Documents"
' en écrivant mon text sur la dernière ligne du fichier.
Dim rep As String
Dim fich As String
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
rep = chemin
fich = nomfich
tout = rep & "\" & fich
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(tout)
Set ouvrir_fichier = f.OpenAsTextStream(ForAppending, TristateUseDefault)
End Function
en suite de lancer à la main car en VBA cela ne fonctionne pas quand on le lance par Shell, si quelqun a une soluce ...
en fin aller lire le fichier :
Public Function LectureFichierText(rep As String, fich As String, onglet As Integer)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim oFS As Object
Dim Boucle As Long
Dim MonFichier, Texte, Reponse, Msg As String
Dim CheminFichier As String
Dim a As Object
Dim ligne As String
Dim ip As String
CheminFichier = rep & "\" & fich
Set oFS = CreateObject("Scripting.FileSystemObject")
Set MonFichier = oFS.OpenTextFile(CheminFichier, ForReading)
While Not MonFichier.AtEndOfStream
Texte = MonFichier.ReadLine
msgbox Texte
Wend
MonFichier.Close
End Function
Date du jour vba excel
