adresse de passerelle, DHCP et masque réseau en VBS

Question

Bonjour à tous !!

je dois avouer, je ne sais pas trop si je suis dans le bon thème ... mais bon, si jamais quelqu'un veut déplacer le message y a pas de problème ...

Alors voila mon problème je cherche depuis 3h comment en vbs faire 3 scripts individuels qui me donnent

1) mon adresse de passerelle (soit 192.168.1.1)
2) l'adresse du serveur DHCP auquel je suis relier (soit 192.168.1.1)
3) le masque de sous-réseau (soit 255.255.255.0)

merci d'avance à toutes pour vos réponses

Je suis un grand débutant en vbs alors ne me parler pas trop avec des termes techniques

@+
Stéph

koda29 · Answer

voila alors après de plus ample recherche sur internet .... j'ai trouvé moi même.

soit ce n'est peut-être pas un code très académique et peut-être pas le plus court mais bon, mon but était que ça affiche les ip que je voulais ....

voila un exemple du code

function GetGWIP

Set fso = CreateObject("Scripting.FileSystemObject")
strComputer = "."

Set objWMIService = GetObject("winmgmts:\"& strComputer & "\root\cimv2")

Set colAdapters = objWMIService.ExecQuery _

  ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objAdapter in colAdapters

     If Not IsNull(objAdapter.DefaultIpGateway) Then

      For i = 0 To UBound(objAdapter.DefaultIpGateway)

         gwip = objAdapter.DefaultIpGateway(0)

      Next

   End If

Next

GetGWIP= gwip

end function

après j'ai juste changer le "DefaultIpGateway" de la passerelle pour "SubnetIp" pour le masque

et "DhcpServer" pour l'adresse du serveur dhcp et pour le dhcp j'ai enlevé tout le "if not" pour garder

"dhcpip = objAdapter.DhcpServer"

A+ les gens 

Stéph

PCPT · Answer

déplacé de VB.NET vers VBS, en effet

Adresse de passerelle, DHCP et masque réseau en VBS

2 réponses

Votre réponse

Discussions similaires