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

Signaler
Messages postés
40
Date d'inscription
vendredi 24 avril 2009
Statut
Membre
Dernière intervention
31 août 2013
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
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

2 réponses

Messages postés
40
Date d'inscription
vendredi 24 avril 2009
Statut
Membre
Dernière intervention
31 août 2013

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
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
39
déplacé de VB.NET vers VBS, en effet