Script recherche d'ip sur réseau

[Danath]

Bien le bonjour,

voile je dois faire un script qui parcours le groupe de travail donné ,recherche un pc donné et me communique son adresse IP.



j'ai réussi a parcourir le groupe de travail et a rechecher le pc donné, mais je ne sais ABSOLUMENT pas comme faire pour trouver l'IP.

Il faudrait mêxcpliquer comment utilisé un objet pour rechercher une IP .

Le groupe de trvail et le nom du pc son introduit dans une input box.

Merci

voila mon script :





Option Explicit
Dim args, oWinNT, oDomain, strDomain, cNomDom, cNomMach', nNomMajMach


'*** Demande a l'utilisateur d'introduire le nom du domaine
cNomDom = InputBox ("Entrez le nom du domaine : ")
'*** Met le nom du pc/machine en majuscule
cNomDom = UCase(cNomDom)
'*** teste si le un nom a été introduit
'*** Si il n'a rien entrée alors il affiche un message et quite le script
If cNomDom = "" Then
MsgBox "Nom de domaine (ou WorkGroup) omis !"
Wscript.Quit
End If

'*** Demande a l'utilisateur d'introduire le nom du Pc/machine
cNomMach = InputBox ("Entrez le nom de la machine : ")
'*** Met le nom du pc/machine en majuscule
cNomMach = UCase(cNomMach)
'*** teste si le un nom a été introduit
'*** Si il n'a rien entrée alors il affiche un message et quite le script
If cNomMach = "" Then
MsgBox "Nom du pc/machine omis !"
Wscript.Quit
End If


'*** Commentaires qui explique quel est le domaine et le pc recherché
Wscript.Echo "Liste des machines du domaine : " & cNomDom
Wscript.Echo "Recherche du poste : " & cNomMach
Set oWinNT=GetObject("WinNT://" & cNomDom)



For Each oDomain in oWinNT
If Lcase(oDomain.class)="computer" Then
If oDomain.name = cNomMach Then
WScript.Echo oDomain.name
End If
End If
Next