Paramétrage IP réseau

**jbarreau-mainson** · 03/03/2008, 08h13

Bonjour à tous,
J'ai fait cela pour pouvoir configuré mon réseau en fonction de mon ip mais ca bug un peu ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
<HTML><HEAD>
<TITLE>Configuration d un poste informatique</TITLE>
<HTA:APPLICATION
	ID="oApp" 
	APPLICATIONNAME="wpi" 
	ICON="./wpi.ico"
	CAPTION="no"
	CONTEXTMENU = "yes"
	INNERBORDER = "no"
	MAXIMIZEBUTTON = "yes"
	MINIMIZEBUTTON = "yes"
	NAVIGABLE = "yes"
	SCROLL = "no"
	SCROLLFLAT = "no"
	SELECTION="no"
	SHOWINTASKBAR="no"
	SINGLEINSTANCE="no"
	SYSMENU="yes"
	VERSION = "3.5.1"
	BORDER="yes"
	BORDERSTYLE = "thin"
	WINDOWSTATE="maximize">
 
<SCRIPT LANGUAGE="VBScript">
 
 
Sub btnCommandez_Click
   'msgbox "Pour confirmer votre commande: " & vbCrLf & "Nom: " & Document.frmCommandes.txtCodeUsager.Value
 
 
 
Dim IP				'Adresse IP de l'utilisateur pour le site
Dim MasqueR			'Masque de l'adresse IP du site
Dim Passerelle			'Passerelle pour l'ip
 
Dim sChaine
Dim bLancerCmdeNetSet		'boolean
Dim bEcritureDeParamsMS_TCPIP	'bool
Dim RepScript
 
Dim tableau
Dim P		'p -(p mod 4)
Dim S_chaine1
Dim S_chaine2
Dim S_chaine3
Dim S_chaine4
Dim scmde1
Dim DNS1
Dim DNS2
Dim DNS3
Dim DNS4
Dim WINS1
Dim WINS2
 
sChaine = ""
MasqueR="255.255.252.0"
Passerelle=""
 
'Affichage de "parametrage en cours"
wscript.echo "Paramétrage IP en cours"
 
IP = Document.frmCommandes.txtCodeUsager.Value
'msgbox IP
Dim WShShell
Set WshShell=CreateObject("WScript.Shell")
'extraction de la partie n03 de l adresse IP et calcul de la passerelle correspondante
tableau=Split(IP,".")
S_chaine1=tableau(0)
S_chaine2=tableau(1)
S_chaine3=tableau(2)
S_chaine4=tableau(3)
P = S_chaine3 - (S_chaine3 mod 4)
Passerelle = S_chaine1 & "." & S_chaine2 & "." &  P & ".1"
'msgbox Passerelle
 
scmde1 = "Netsh interface ip set address ""Connexion au réseau local"" static " & IP & " " & MasqueR & " " & Passerelle & " 1"
'msgbox scmde1
DNS1 = "Netsh interface ip set dns ""Connexion au réseau local"" static " & " " & "10.6.93.72"
'msgbox DNS1
DNS2 = "Netsh interface ip add dns ""Connexion au réseau local""" & " 10.6.93.76"
'msgbox DNS2
DNS3 = "Netsh interface ip add dns ""Connexion au réseau local""" & " 10.23.254.245"
'msgbox DNS3
DNS4 = "Netsh interface ip add dns ""Connexion au réseau local""" & " 10.23.251.208"
'msgbox DNS4
WINS1 = "Netsh interface ip add wins ""Connexion au réseau local""" & " 10.6.95.248"
'msgbox WINS1
WINS2 = "Netsh interface ip add wins ""Connexion au réseau local""" & " 10.6.95.80"
'msgbox WINS2
 
WshShell.run scmde1,0,true
WshShell.run DNS1,0,true
WshShell.run DNS2,0,true
WshShell.run DNS3,0,true
WshShell.run DNS4,0,true
WshShell.run WINS1,0,true
WshShell.run WINS2,0,true
 
wscript.echo "Paramètres réseau configurés"
 
'WshShell.run scmde1,4,false
'WshShell.run DNS1,4,false
'WshShell.run DNS2,4,false
'WshShell.run DNS3,4,false
'WshShell.run WINS1,4,false
'WshShell.run WINS2,4,false
 
set WshShell = nothing
 
End Sub
 
</SCRIPT>
</HEAD>
<BODY LANGUAGE="VBScript" BGCOLOR="#fffff0">
 
<FORM NAME = "frmCommandes" METHOD = "Post">
<div align="center">
<PRE><u><i><font face="Tahoma" size="6">CONFIGURATION DES PARAMETRES RÉSEAU</font></i></u></PRE>
</div>
<div align="center">
<PRE>&nbsp;</PRE>
</div>
<div align="center">
<PRE><INPUT NAME="txtCodeUsager" size="27" tabindex="0" ></PRE>
</div>
<div align="center">
<PRE><font face="Tahoma"><INPUT TYPE="Button" VALUE="Configurer" Name ="btnCommandez" Onclick="btnCommandez_Click"></font></PRE>
</div>
<div align="center">
<PRE>&nbsp;</PRE>
</div>
<div align="center">
</div>
<div align="center">
<div align="center">
<PRE>&nbsp;</PRE>
</div>
<div align="center">
<PRE>&nbsp;</PRE>
</div>
<div align="center">
<PRE>&nbsp;</PRE>
</div>
<div align="center">
<PRE><font face="Tahoma"><INPUT TYPE="button" VALUE="Quitter" Name ="btnQuitter" Onclick="window.close()";></font></PRE>
</div>
<div align="center">
<PRE>&nbsp;</PRE>
</div>
<div align="center">
<PRE></PRE>
</div>
&nbsp;</FORM>
</P></BODY></HTML>