RÉCUPÉRER MAC ADRESSE ET AUTRES INFO AVEC WMI (LOCAL ET DISTANT)

Commentaire de lumesh le 08/01/2004 17:13:02

J'ai fait la meme chose pour VB.net :)
C'est exelent le WMI

Commentaire de 007 le 07/02/2004 14:22:07

Alors là, c'est génial, c'est super, c'est magnifique !!
Super source, et merci encore à zmania.
Je suis vraiment super hyper épaté par tout ce qu'on qu'on voir avec les WMI

James Bond

Commentaire de MadLucas le 09/02/2004 15:20:05

Salut Dalyna,

Il y a 3 façons de se connecter avec le script WMI:

- Connection sur l'ordinateur LOCAL avec l'utilisateur en cours;
- Connection LOCAL/REMOTE avec l'utilisateur en cours;
- Connection REMOTE en utilisant un autre LOGIN/PASSWORD.

Surtout sur les systèmes NT/2K/XP, tu dois avoir des droits administrateurs sur l'ordinateur que tu veux inspecter.

Voici comment générer une liste des "Shares" en utilisant le LOCAL/CURRENT USER:

Sub ListShares()
    Dim strObject$, colShares, objWMIService, objShare
    
    Set objWMIService = GetObject("winmgmnt:")
    Set colShares = objWMIService.execquery("Select * from Win32_Share")
    For Each objShare In colShares
        text1.Text = text1.Text + objShare.Name & "[" & objShare.Path & "]" & vbNewLine
    Next
End Sub


Maintenant, voici un exemple d'une connection LOCAL/REMOTE/CURRENT USER:

Sub ListShares()
    Dim strComputer$, strObject$, colShares, objWMIService, objShare
    
    Do
        strComputer = InputBox("Entrez le nom de l'ordinateur (faites '.' pour le LOCAL HOST", "Input")
    Loop Until Not strComputer = vbNullString
    
    Set objWMIService = GetObject("winmgmnt://" & strComputer & "/root/cimv2")
    Set colShares = objWMIService.execquery("Select * from Win32_Share")
    For Each objShare In colShares
        text1.Text = text1.Text + objShare.Name & "[" & objShare.Path & "]" & vbNewLine
    Next
End Sub


Et finalement, voici comment on créer une connection REMOTE/LOGIN:

Sub ListShares()
    Dim strComputer$, strUser$, strPassword$, strObject$, colShares, objWMIService, objShare, objLocator
    
    Do
        strComputer = InputBox("Entrez le nom de l'ordinateur (faites '.' pour le LOCAL HOST", "Input")
    Loop Until Not strComputer = vbNullString
    Do
        strUser = InputBox("Entrez le nom de l'usager.", "Input")
    Loop Until Not strUser = vbNullString
    Do
        strPassword = InputBox("Entrez le mot de passe", "Input")
    Loop Until Not strPassword = vbNullString
    
    Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    Set objWMIService = objLocator.ConnectServer(strComputer, "root/cimv2", strUser, strPassword)
    objWMIService.Security_.impersonationlevel = 3
    Set colShares = objWMIService.execquery("Select * from Win32_Share")
    For Each objShare In colShares
        text1.Text = text1.Text + objShare.Name & "[" & objShare.Path & "]" & vbNewLine
    Next
End Sub

Il est important de bien régler le impersonationlevel si tu veux te connecter entre différents systèmes d'exploitations.  Une mauvaise configuration peut empêcher un server d'accepter la requête WMI, ou encore limiter l'information transmise par l'appel.  Le niveau 3 est le niveau par défaut qui est recommandé.  On peut utiliser les niveaux suivants:

1 = Anonymous
2 = Identify
3 = Impersonate
4 = Delegate

En bref, 1 permet un login anonyme.  2 te permet d'utiliser ton LOGIN sur un autre ordinateur, mais celui-ci doit avoir un account.  3 te permet d'utiliser le LOGIN d'un autre et 4 donne le pouvoir à ton LOGIN sur d'autres ordinateurs.

Pour finir, le WMI est une sorte d'enveloppe (wraper) qui facilite la manipulation des classes Win32 et des scripts CIM.  C'est un langage Script.  Pour plus de contrôle et encore plus de possibilitées, tu dois utiliser directement les appels API de Win32.


Bonne programmation !



MadLucas

Commentaire de Veribasic le 17/02/2004 18:16:34

C'est exactement ce que je cherchais, sauf que je débute dans ce domaine et ce que je veux récupérer c'est uniquement l'adresse physique de mon PC sans le reste, comment faire ? Merci.

veribasic

Commentaire de dionysos6868 le 01/03/2004 14:15:03

Merci pour ce super truc mais j'aurais une question.
Sur quel port de communication ce passe les info merci

Commentaire de 007 le 01/03/2004 23:10:13

Atendez, j'ai pas très bien suivi, mais ça voudrai dire qu'avec cette histoire de NLB et de port rule on pourrait réaliser comme un firewall en VB ???
Dites moi que je suis complètement à coté de la plaque parce que sinon j'y comprend plus rien !!

James Bond

Commentaire de zmania le 02/03/2004 08:34:05

c'est normale que sa marche pas. Sa marche qu'avec le réseau local.. Tu imagine si on pouvais faire sa sur l'extèrieur, se serait un gros danger...

Commentaire de modmenbaramej le 03/12/2007 12:14:22

Merci