lancé nslookup et récupéré résultat dans le vbscript

Version imprimable

13/06/2007, 11h51
jeanrob

lancé nslookup et récupéré résultat dans le vbscript

Bonjou,
comme je l'indique dans le titre je cherche une solution qui me permette de lancer nslookup avec un script pour pouvoir récupérer le nom de réseau de la machine dont l'ip est passé avec nslookup.

Je veux récupérer le nom de la machine dans mon script.

Merci
13/06/2007, 12h15
ced600

Inutile de passer par NSLookUp, tu pe le faire directement en VBS.
Regarde ici et ici
13/06/2007, 13h39
jeanrob

merci je vais y jeter un coup d'oeil

bon jarrive à avoir mon nom de poste mais je voudrais récupérer le nom d'un poste du réseau grâce à l'adresse ip.

code pour avoir mon nom de poste
Code:

1 2 3 4 5 6 7 8 9 strComputer = "." Set objWMIService = GetObject( _ "winmgmts:\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration " _ & "Where IPEnabled = True") For Each objNetCard in colNetCards MsgBox objNetCard.DNSHostName Next
merci

Bon voila un bout de code que j'ai réalisé il y a 6 mois :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
'Récupère l'adresse IP d'un PC à partir de son nom.
Function GetIpHostByName (Adresse_IP)
Dim ExitBoucle 'Pour sortir de la boucle une fois que l'adresse IP est trouvé
Dim IPIndex 'Index de la boucle For
 
If Not Adresse_IP = "" Then
   IPIndex = 0
   ExitBoucle = False
   'Récupération de la liste des cartes réseaux existantent sur le PC.
   Set objWMIService = GetObject("winmgmts:\\" & Adresse_IP & "\root\cimv2")
   Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where DNSHostName='" & Adresse_IP & "'")
   If Not IPConfigSet.count = 0 Then
      For Each IPConfig in IPConfigSet
         'Pour chaque carte (IPConfig), parcours de la liste des adresses IP (IPAdress, c'est un tableau).
          If Not IsNull(IPConfig.IPAddress) Then
             For IPIndex=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
                 If Not Adresse_IP = IPConfig.IPAddress(IPIndex) Then 'Sert à vérifier que Adresse_IP ne soit pas déja une Adresse_IP.
                    If UCase(IPConfig.DNSHostName) = UCase(Adresse_IP) Then 'Comme Adresse_IP est un nom, nous pouvons le comparer au DNSHostName.
                       If Not IPConfig.MACAddress = "00:00:00:00:00:00" Then 'Ainsi on s'assure que l'on à bien à faire à une carte reseau non virtuel.
                          Adresse_IP = IPConfig.IPAddress(IPIndex)
                          ExitBoucle = True 'Inutile de parcourir le reste des cartes reseau
                          Exit For
                       End If
                    End If
                 End If
             Next
          End If
          If ExitBoucle = True Then
             Exit For
          End If
      Next
   End If
   Set objWMIService = Nothing
   Set IPConfigSet = Nothing
   GetIpHostByName = Adresse_IP
Else
   GetIpHostByName = ""
End If
End Function

Cela fait l'inverse de ce que tu veux, à partire d'un nom DNS, je retrouve l'adresse IP.
Mais bon cela ne doit pas être trop compliquer de faire l'inverse en s'inspirant de code. Il faut jouer avec les attributs de Win32_NetworkAdapterConfiguration et la methode ExecQuery.

Ha oui juste une chose, ma variable contenu le nom DNS s'appelle Adresse_IP. Je sais un peu surprenant :) mais ce serais chiant si on ne se compliqué pas la vie :D

13/06/2007, 14h59
jeanrob

en fait je comprends très bien ton code mais d'abord je ne sais pas si je peux faire un "getObject avec l'adresse ip" toi tu le fais avec le nom de de la machine, moi ca ne fonctionne pas avec l'adress ip.

Sinon j'ai essayé de faire un "objWMIService.execQuery" avec "where Adress=ip"
ip c'est l'adresse ip du poste dont je veux le nom.
Quand j'essaie ca déjà il ne le bouffe, problème de guillemets je pense mais si je passe par une variable intermédiaire comme tu l'as fait il ne bouffe pas non plus et m'indique une erreur au premier caractère de la ligne suivante.
13/06/2007, 15h06
ced600

pas de problème, getobject marche avec l'adresse ip, j'ai déja essayé :)
Et ensuite, cela serais un truc du genre "where IPAddress(0) ='" & ip & "'"

Code:

1
2
3
4
5
6
7
8
9
strComputer = "10.20.1.10"
ipcomputer = "10.20.1.10"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration " _
        & "Where IPAdress(0)='" & ipcomputer & "'")
For Each objNetCard in colNetCards
    MsgBox objNetCard.DNSHostName
Next

avec ce code on me dit que le serveur distant n'est pas disponible'getOBJECT'

13/06/2007, 15h47
ced600

je suis sur que cela marche avec une adresse IP.
essayes avec le nom de ta machine local au cas ou.
13/06/2007, 16h03
jeanrob

si dans strComputer je met le nom de ma machine, j'ai une erreur au premier caractère après la ligne "where IPAdress(0)=ip
13/06/2007, 16h28
ced600

where IPAdress(0)=ip -> ça je n'etais pas sur que cela fonctionne.
As tu fait une recherche sur le forum, j'ai un vague souvenir d'un ancien sujet identique au tiens et puis t'en qu'on est dans les recherches as tu essayé google ?
13/06/2007, 16h39
jeanrob

oui j'ai fait toutes les recherches nécessaires avant de poster

Bon j'ai essayé ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 strComputer = "10.193.161.18" Set objWMIService = GetObject( _ "winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _ ("Select IPAddress from Win32_NetworkAdapterConfiguration ") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) _ to UBound(IPConfig.IPAddress) Msgbox IPConfig.IPAddress(i) Next End If Next
10.193.161.18 -> c'est l'adresse local de ma machine et cela marche.
Pareil avec 127.0.0.1.
Mais avec une adresse d'une autre de mes machines -> NADA ça marche pas.
Avec le nom dns par contre cela fonctionne toujours.
Je ne sais aps exactement comme cette fonction marche, mais en tout cas elle est prévu pour fonctionner avec des adresses IP directement.
L'erreur obtenu est certainement dut à une configuration particuliere du reseau.
Enfin, il y a 6 mois sur le meme reseau, mais avec des adresses IP différentes, cela marchais :aie: .
Je ne sais pas si cela t'aide ....
Voici un autre lien qui pourrais t'offrir une solution à ton problème :
http://msdn2.microsoft.com/en-us/library/aa389290.aspx

Si cela ne marche pas, je suis à cours d'idée, désolé. :(

13/06/2007, 17h51
jeanrob

pour ma propre de station ton code fonctionne mais pas pour une autre station du réseau.
Je vais regarder les solutions possibles sur le lien que tu m'as donné et si je trouve rien et bien tant pis pour moi.:cry:
merci kan meme
14/06/2007, 09h37
ced600

Je viens de vérifier, mais même avec un nom DNS pour une machine distante, cela ne marche pas chez moi. Je pense que c'est un problème de configuration de parefeu, ou de reseau, ou d'antivirus.
Ce doit être la même chose chez toi.
Essayes en désactivant temporairement le parfeu et l'antivirus.