Interface VBS

Signaler
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour,

Je me permet de poster ce message car je rencontre des difficultés a créer une interface en VBS réclamant a l'utilisateur de saisir adresse IP, DNS, subnet, je débute en programmation, j'ai déja réussis a créer une interface pour changer le nom d'un poste mais pour tout ce qui est réseau je n'y parviens pas..

J'aimerais si c'est possible, un exemple, afin de mieux comprendre comment m'y prendre.

Par avance merci de vos réponses.

4 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
Salut

Sujet trop vague.
Tous les exemples qu'on peut te fournir son en libre accès sur le site.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Les seuls exemples que je trouve ne font pas apparaitre d'interface, il faut au préalable renseigner l'IP dans le code..

Et moi ce que je veux c'est que ce soit l'interface qui demande a l'utilisateur de renseigner l'IP et que quand il click sur OK cette IP soit renvoyée et inscrite dans le registre correspondant..

J'ai essayé de m'appuyer sur le morceau de code qui sert a faire ça pour changer l'hostname, mais même avec les bons objets ça ne passe pas..
strIPAddress=InputBox ("Choisir une IP : ","IpConfig")
strSubnetMask=Inputbox ("Choisir le masque : ","Subnet")
strGateway=Inputbox ("Choisir la passerelle:","Gateway")
On error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")



For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next


Voici la meilleur solution a laquelle je parviens... Malheureusement elle ne change pas les paramètres de la carte, je suppose que j'ai omis de lui indiquer d'aller ecrire dans le registre..

Help please :(
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
Ah mais le problème n'est pas de saisir une adresse, mais d'utiliser dans le système les valeurs saisies.
Ce n'est pas du tout pareil.
Voilà quelques heures perdues, faute d'explication claire.

Désolé, aucune idée.