Bonjour a tous, :)
Comment sa va?
Moi sa pourrait allez mieux.
Je vous explique
J'essaye de faire un script en VBS (ou a la rigueur en .bat mais le VBS est plus joli) mais je n'y connais absolument rien.
Et j'aurai donc besoin de votre aide.
Ce script sert a faire des operation sur un serveur DHCP. Moi je connais les commande dos a executer mais c'est tout.
Voici a peu prés l'algo.
Bonjour
Que veut tu faire?
1 Demarrer le service dhcp (net start dhcpserver)
2 Arreter le service dhcp (net stop dhcpserver)
3 Supprimer une étendu
Veuillez rentrer l'adresse de l'etendu a supprimer
c:\netsh (se connecter au netsh)
netsh>dhcp (connecter au service dhcp)
netsh dhcp>server (se connecter au serveur DHCP)
nettsh dhcp server>delete scope "ladresse qu'il a rentrer" dhcpfullforce (supprime l'etendue)
4 Crée une étendue
c:\netsh (se connecter au netsh)
netsh>dhcp (connecter au service dhcp)
netsh dhcp>server (se connecter au serveur DHCP)
Veuillez rentrer l'adresse réseau de la nouveau étendue (ex: 192.168.1.0)
Veuillez rentrer le masque du réseau (ex: 255.255.255.0)
Veuillez rentrer un nom pour votre étendue (ex: Mon etendue)
Une fois qu'il a remplie ces 3 champ la commande qui doit s'executer est add scope "adresse réseau" "masque" "nom"
Veuillez rentrez le debut de la plage d'adresse ip (ex: 192.168.1.1)
Veuillez rentrez la fin de la plage d'adresse ip (ex: 192.168.1.254
Une fois remplie la commande s'executer est add iprange "adresse de debut" "adresse de fin"
Voulez vous mettre une plage d'exclusion? "Oui" ou "Non"
Si "Oui"
Veuillez rentrer l'adresse de debut d'exlusion (ex: 192.168.1.1)
Veuillez rentrer l'adresse de fin d'exlusion (ex: 192.168.11.50)
add excluderange "adressedebut" "adresse fin"
Si "Non" alors "retour menu générale.
5 Sortie
en rouge Ce que j'aimerai qui soit ecrit
en bleu Les commandes qui correspondent
en orange L'uilisateur doit renseigné un champ
Vous pouvez m'aidez ?:?
D'aprés ce que je sais sa commencerai comme sa:
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23Dim ret ret = InputBox("Bonjour" & vbCrLf & vbCrLf & _ "Que veut tu faire?" & vbCrLf & vbCrLf & _ "1 - Demarrer le service dhcp " & vbCrLf & _ "2 - Arreter le service dhcp " & vbCrLf & _ "3 - Supprimer une étendue" & vbCrLf & _ "4 - Crée une étendue" & vbCrLf & _ "5 - Sortie", _ "Titre de l'inputbox", _ "") Select Case ret Case "1": 'Menu 1 Case "2": 'Menu 2 Default: 'Tous les autres choix End Select
