[VB.NET] Enumerare le risorse presenti in LAN

[twt106]

salve,
ho cercato parecchio ma non riesco a trovare le funzioni necessarie per creare un elenco di computer presenti in una LAN (per poi inserirli in una ComboBox).
Uso VB in Visual Studio 2008.
Ho visto la possibilià di usare WNetOpenEnum, WNetEnumResource e WNetCloseResource, ma per mia ignoranza non sono riuscito a amettere in piedi il codice senza ricevere errori ..
Qualcuno può aiutarmi ?

grazie e ciao

[oregon]

Quale codice hai scritto e che errori hai avuto?

[twt106]

metto i pezzi che dovrebbero chiarire (trovati in rete e modificati da me), sto imparando ora ad usare questi strumenti:
Public Class Form1
Private Const RESOURCETYPE_ANY = &H0
Private Const RESOURCE_CONNECTED = &H1

Public Structure NETRESOURCE
Dim dwScope As Integer
Dim dwStructure As Integer
Dim dwDisplayStructure As Integer
Dim dwUsage As Integer
Dim lpLocalName As Integer
Dim lpRemoteName As String
Dim lpComment As String
Dim lpProvider As String
End Structure

Poi nella chiamata:
nStatus = WNetOpenEnum(RESOURCE_CONNECTED, RESOURCETYPE_ANY, 0&, ByVal 0& , hEnum)
If ((nStatus = 0) And (hEnum <> 0)) Then ' Set number of entries
entries = 1024

' Enumerate the resource
nStatus = WNetEnumResource(hEnum, entries, NetInfo(0), CLng(Len(NetInfo(0))) * 1024)

If nStatus = 0 Then ' Check for success
For i = 0 To entries - 1
' Get the local name
LocalName = ""
If NetInfo(i).lpLocalName <> 0 Then
LocalName = Space(lstrlen(NetInfo(i).lpLocalName) + 1)
r = lstrcpy(LocalName, NetInfo(i).lpLocalName)
End If


viene restituito l'errore "Prevista espressione" (per [B]ByVal 0&[B])
poi viene restituito l'errore nelle altre 2 chiamate in grassetto, e mi torna anche che ci sia l'errore però non so come correggere. NON ho trovato niente che mi possa aiutare

grazie

[twt106]

.... mi interesserebbe qualcosa che estragga i nomi dei computer in rete come fa il comando: "NET VIEW"

grazie e ciao

[Vinsent]

Le API non so usarle......quindi non so dirti niente riguardo al codice che hai postato, mentre se lan ha "Active Directory" so che esiste una classe apposita.
Se non risolvi puoi aggirare il problema usando "net view", in pratica avvii cmd.exe passandogli il comando e ne ottieni l' output, da quest' ultimo puoi estrapolare i dati che ti servono.
Esempio con 1 form, 1 button, 1 textbox con 'multiline = True':

Public Class Form1
    Private Sub Button1_Click() Handles Button1.Click
        Dim pr As New Process()
        Dim args As New ProcessStartInfo("cmd.exe")
        With args
            .Arguments = "/c net view"
            .RedirectStandardOutput = True
            .UseShellExecute = False
            .CreateNoWindow = True
        End With
        pr = Process.Start(args)
        TextBox1.AppendText(pr.StandardOutput.ReadToEnd())
        pr.WaitForExit()
    End Sub
End Class

[twt106]

Vinsent ti ringrazio, però vorrei imparare ad usare lo strumento al meglio e quindi se possibile evitare di usare batch esterni.
Ho Active Directory e mi è venuto ni mente che forse una strada potrebbe essere quella di andare ad interrogare il DHCP Server e da lì estrarre tutte le info che mi servono?
Qualcuno può darmi qualche dritta?

grazie e ciao

[Vinsent]

Puoi iniziare a documentarti qui:
http://msdn.microsoft.com/it-it/library/gg145037.aspx
o il classico :
http://bit.ly/xJwgBe
ci sono molti link con esempi pratici.