Nom des ordi connecté dans une listView

Question

bonjour,
le temp de comprendre et d'arrivé a obtenir les ip des ordi connecter je voudrais avoir déja la liste des nom d'ordi.
cela j'y arrive grace a :

Private Sub cmd_hostxt_Click()
Dim all_hostname As String * 150
all_hostname = "c:\windows\system32\cmd.exe /C NET VIEW >%systemdrive%\hostname.txt"
Shell all_hostname, vbHide
End Sub

Mon fichier texte contien donc :

Nom de serveur         Remarque

-------------------------------------------------------------------------------
\PC-DAVID                                                                     
\XP-DEMONN                                                                    
La commande s'est termin'e correctement.

Mais comment récuperer uniquement ce qui m'interesse
 \PC-DAVID                                                                     
\XP-DEMONN     

et mettre ça dans une listeview?

Pouriez vous m'aidez et méguiller un peu sur la marche a suivre svp?
car quand je fait une boucle comme cela:

Dim Ligne As String
Dim temp1 As String
Open "c:\hostname.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
frmHostname.ListView1.ListItems.Add(, , temp1) = Ligne
Loop
Close #1

le résultat est catastrophique j'ai 5 colone et tout est décalé.

crenaud76 · Answer

Dim Ligne As String
Dim temp1 As String
Open "c:\hostname.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
If Left(Ligne,2)="\" Then frmHostname.ListView1.ListItems.Add(, , temp1) = Ligne
Loop
Close #1

Mais si tu veux une liste des ordinateurs connecté, j'ai un module qui fait cela via API. Tu peux aller le chercher dans mes sources :

voici son URL : http://www.vbfrance.com/code.aspx?id=24614

Intéresses-toi à ma fonction nommée  GetDomainComputerNames()

Christophe R.

demonn · Answer

oké merci beaucoup je regarde ça
;)

Nom des ordi connecté dans une listView

2 réponses

Discussions similaires