Adsi scruter le réseau

Commenter

Contenu du snippet

Executer le code directement

Source / Exemple : 


Private Sub Form_Load()
    Dim owinnt As Object
    Dim str As String
    Dim i, j As Integer
    Dim domaine(50) As String
    
    Form1.Visible = False
    
    Set owinnt = CreateObject("WinNT:")
    str = "DOMAINES:"
    
    i = 0
    For Each Item In owinnt
        domaine(i) = Item.Name
        i = i + 1
        str = str + Item.Name + "/"
    Next Item
    i = i - 1
    
    str = str + vbCrLf + "UTILISATEURS:"
    
    For j = 0 To i
        Set owinnt = CreateObject("WinNT://" + domaine(j))
        owinnt.Filter = Array("user")
        For Each Item In owinnt
            str = str + Item.Name + "/"
        Next Item
    Next j
    
    str = str + vbCrLf + "ORDINATEURS:"
    
    owinnt.Filter = Array("computer")
    For Each Item In owinnt
        str = str + Item.Name + "/"
    Next Item
        
    MsgBox str
    
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.