Bonjour à tous
Sur un réseau j'utilise un utilitaire netscan et j'exporte le résultat du scan dans un fichier csv
à partir de ce fichier je crée un fichier INI qui me sert pour faire un menu
le but est de pouvoir réaliser quelques actions habituel (ping , http pour parametrer un routeur ,imprimante, nas etc) et explorer les dossier partagés.
Mais au fil des scans ( selon la présence des éléments sur le réseau ) le menu n'est pas bien rangé dans l'ordre des adresses IP
J'aimerais savoir comment ranger ce fichier ini, sans compter que 192.168.0.90 doit passer avant 192.168.0.151
sur le forum anglais j'ai testé l'udf ini.au3 mais il ne fonctionne pas et il perd des données (sections et valeurs)
exemple de fichier ini
► Afficher le texte
[192.168.0.81]
Nom=
[192.168.0.100]
Nom= poste_jlr
dvdjlr (E) (writable)=dvdjlr (E)
data (F) (writable)= data (F)
Mindscape (writable)= Mindscape
G$ (writable)= G$
print$ (writable)= print$
drvpi (writable)= drvpi
disque g (writable)= disque g
C$ (writable)= C$
rete (writable)= rete
photo (writable)= photo
S$ (writable)= S$
E$ (writable)= E$
F$ (writable)= F$
ADMIN$ (writable)= ADMIN$
[192.168.0.150]
Nom= NOLWENN
[192.168.0.151]
Nom= TIFENN
[192.168.0.152]
Nom= MORGANE
morgane (writable)=morgane
D$ (password)= D$
C$ (password)= C$
ADMIN$ (password)= ADMIN$
IPC$= IPC$
[192.168.0.254]
Nom=
[192.168.0.24]
Nom= test tri 24
[192.168.0.90]
Nom= test tri 90
Mon script
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
$ini = @WorkingDir & "\reseau.ini"
$var = IniReadSectionNames($ini)
If @error Then
MsgBox(4096, "", "Erreur il manque le fichier INI." & $ini)
Exit
EndIf
Dim $menuip[$var[0] + 1], $menuipping[$var[0] + 1], $menuiphttp[$var[0] + 1], $menuiphttp88[$var[0] + 1], $menuipexplorer[$var[0] + 1][1]
GUICreate("Menu ip", 300, 200)
$menureseau = GUICtrlCreateMenu("Rèseau IP")
For $i = 1 To $var[0]
$var2 = IniReadSection($ini, $var[$i])
If $var2[1][1] = "" Then
$menuip[$i] = GUICtrlCreateMenu($var[$i], $menureseau)
Else
$menuip[$i] = GUICtrlCreateMenu($var[$i] & " " & $var2[1][1], $menureseau)
EndIf
$menuipping[$i] = GUICtrlCreateMenuItem("Ping de " & $var[$i], $menuip[$i])
$menuiphttp[$i] = GUICtrlCreateMenuItem("http://" & $var[$i], $menuip[$i])
$menuiphttp88[$i] = GUICtrlCreateMenuItem("http://" & $var[$i] & ":88", $menuip[$i])
If $var2[0][0] > 1 Then
GUICtrlCreateMenuItem("", $menuip[$i])
If $var2[0][0] > UBound($menuipexplorer, 2) Then
ReDim $menuipexplorer[255][$var2[0][0] + 1]
EndIf
For $ii = 2 To $var2[0][0]
$menuipexplorer[$i][$ii] = GUICtrlCreateMenuItem("EXPLORER ---> " & $var2[$ii][0], $menuip[$i])
Next
EndIf
Next
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()
Merci de vos suggestions
à bientot
JL56
