Discussion :

[rjl]

Bonjour,

Je donne des cours de micro en bénévolat dans les clubs des communes de mon département ; je me promène avec 8 portables (sans compter le vidéoprojecteur, l'écran, le hub,..).

Lorsque je fais la "journée Internet" (9h à 17h mais on a droit de manger ), j'ai le choix entre l'ADSL s'il est disponible dans le local ou une malheureuse clé 3G+ (c'est plutôt moi qui suis malheureux pour partager un débit parfois lamentable entre 8 micros) ! Une fois, je crois que je n'étais couvert pas même en EDGE mais en GSM et j'ai du interrompre provisoirement l'usage d'Internet sur les micros éléves pour une présentation vidéo sur écran !

Problème, je dois modifier mes configuration réseau et paramètres Internet via le panneau de configuration et parfois les options Firefox ou IE.

Je le fais en général au préalable et me suis fait mes topos pour ne rien rater (déjà qu'il n'est pas toujours immédiat (pour moi) de me connecter sur un ADSL inconnu et je fais souvent un essai lors d'un cours précédent.

Ma difficulté est que je ne me suis jamais soucié des profils et n'ai rien trouvé de bien intéressant pour m'exposer comment faire pour m'en sortir.

Merci d'avance de vos indications.
@bientôt RJL9826

[Luc1an0]

Le mieux que je vois est de te constituer un sous réseaux propre à ton matériel.

Tu prends un de tes portables que tu transformes en serveur. Ce serveur aura les fonctions suivantes :
- DHCP (pour l'attribution automatique des paramètres réseaux)
- AD (Active Directory) pour la gestion des droits utilisateurs sur leur machine (à savoir que tu peux très bien ne créer qu'un seul compte et tout le monde utilise ce même compte
- Routage : Tu vas brancher ton "arrivée internet" (quelle qu'elle soit) sur ce "serveur" et il redistribuera "l'internet" dans ton sous réseaux.

Si tu es un tant soit peu "bricoleur" software tu peux faire le tout sous Linux (attention toutefois au modem adsl USB, et carte 3g+).

Sinon tu fais des scripts de configuration en VBS pré-fait et tu renseignes juste les informations que tu as besoin à chaque session ...

[rjl]

Bonjour Luc1an0,

J'ai le sentiment que tu as bien perçu mon problème sauf que de mon côté, non seulement je ne suis pas "bricoleur" software, à fortiori sous Linux, mais, même, je ne suis pas à la hauteur pour réaliser ce que tu préconises que ce soit pour me considérer comme serveur sur un des micros ou travailler en VBScribt ou JavaScript ; finalement, j'étais naïf, pensant qu'on pouvait choisir un profil de l'extérieur et se trouver ainsi dans une "configuration déclarée" préférentielle.

Merci de ton appui mais, je crains de continuer à modifier les adresse IP (et autres options réseau ou Internet) de mes micros.
Tant pis, connaître les limites (ou ses limites), c'est aussi apprendre !
@+ RJL9827

[Luc1an0]

Même en ayant fait des études d'informatique, le plus pratique (à l'instar de "Théorique") de mes connaissances, je l'ai faite grâce à Google...

Si tu as au moins les bases de l'algorithmie, et un peu de réflexion (pour les bons mots clés chez notre ami Google) , le VBS n'est vraiment pas très dur à manipuler.

Après, si tu fais les bons efforts, et si tu as besoin d'aide pour des corrections sur un script de configuration IP, ce n'est vraiment pas un souci, le Forum est là pour ça.

Bon courage, et bonne continuation.

[rjl]

OK, j'ai cherché (via Google )
J'ai trouvé du vbs mais surtout des procédures à mettre en .bat (basées sur Netsh).
Je ne pense pas pouvoir mettre ces procédures (quasi Dos en Script !)
Par ailleurs, j'ai trouvé 3 exemples de script mais ne les comprends guère car ce n'est pas documenté ; pour le premier, j'ai :

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
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

strIPAddress = Array("192.168.1.69")
strSubnetMask = Array("255.255.255.0")
strPasserelle = Array("192.168.1.100")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strPasserelle, 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

et, pour le second

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

on error resume next 
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE") 
If Err.Number<>0 Then 
wscript.echo " - non accessible -" 
Else 
for each IPConfig in IPConfigSet 
wscript.echo " Configuration réseau de l'ordinateur " & computer & vbcrlf & vbcrlf & _ 
" Carte " & vbtab & vbtab & " : " & IPConfig.Description & vbcrlf & _ 
" adresse MAC " & vbtab & " : " & IPConfig.MACAddress & vbcrlf & _ 
" adresse IP " & vbtab & " : " & IPConfig.IPAddress(0) & vbcrlf & _ 
" DNSHostName " & vbtab & " : " & IPConfig.DNSHostName 
Next 
End If

Et même un 3ème :

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
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & 
"\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where 
IPEnabled=TRUE")
strIPAddress = Array("192.168.5.188")
strSubnetMask = Array("255.255.255.224")
strGateway = Array("192.168.5.190")
strDNSServers = Array("97.20.255.254")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, 
strGatewaymetric)
    errDOM = objNetAdapter.SetDNSServerSearchOrder(strDNSServers)
    If errEnable = 0 Then
        WScript.Echo "L'addresse IP a été changée correctement."
    Else
        WScript.Echo "L'addresse n'a pas été changée il y a un Pb."
    End If
Next

Lequel serait le moins difficile à appréhender et que dois-je y faire ?

Seconde question, je modifierai ainsi les paramètres de mon réseau mais, manuellement, j'avais à changer dans le panneau de Config les Options Internet et en particulier dans l'onglet Connexions, au Paramètres du Réseau local, dire si j'utilisais un script automatique et/ou un Proxy, ce qui variait selon que je sois en ADSL ou avec ma clé 3G pour alimenter un Proxy destiné aux 6/7 autres micros !
Pondérons tout cela, ce sera déjà un premier pas d'avoir modifié les adresses IP

Merci de l'appui du Forum et à bientôt RJL9827

[rjl]

Bonsoir,
Finalement, j'ai opté pour celui que je comprenais le moins mal (je ne peux pas dire le mieux) donc

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
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

strIPAddress = Array("192.168.1.11")
strSubnetMask = Array("255.255.255.0")
strPasserelle = Array("192.168.1.1")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strPasserelle, 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

Ca fonctionne : comme indiqué pour un des script, je l'ai enregistré avec .vsb en extension et l'ai mis sur le bureau: c'est cool.
Il me suffira d'en prévoir pour cahcune des configurations différentes.

Reste la seconde partie de ma question : manuellement, j'avais à changer dans le panneau de Config les Options Internet et en particulier dans l'onglet Connexions, au Paramètres du Réseau local, dire si j'utilisais un script automatique et/ou un Proxy, ce qui variait selon que je sois en ADSL ou avec ma clé 3G pour alimenter un Proxy destiné aux 6/7 autres micros !
J'ai mis ci-dessous les paramètres des options Internet où je peux avoir à modifier les paramètres du proxy dont son port mais aussi dire si je dois utiliser un script ?


Merci de vos indications sur ces aspects utiles mais bien nébuleux pour moi.
@bientôt RJL9829

[rjl]

Bonjour,

Je clos ce sujet car j'ai relancé d'une manière plus nette sur le sujet : http://www.developpez.net/forums/d80...t/#post4604776

Auparavant, je voulais remercier Luc1an0 qui m'indiquait

Si tu as au moins les bases de l'algorithmie, et un peu de réflexion (pour les bons mots clés chez notre ami Google) , le VBS n'est vraiment pas très dur à manipuler

Finalement, j'ai été convaincu, même s'il m'a fallu faire mon cheminement.
Hier, j'ai descendu le tuto "INTRODUCTION AU LANGAGE VBSCRIPT" de Serge Tahé qui me semble assez digeste
Je vais donc m'y mettre quitte à patiner un certain temps !
Alors, merci pour m'avoir transmis ce virus tout à fait salutaire.
A bientôt sur le nouveau fil. RJL9830

[Luc1an0]

J'avais commencé à bricoler quelques lignes afin que tu ais de quoi réfléchir.

En ayant un peu réfléchis à ton problème, le mieux que tu ais à faire (selon moi) :
- Créer une configuration :
Le but d'une automatisation est d'en faire le minimum. Pour que ton script gère toutes tes machines, commences par définir un tableau où tu vas renseigner les adresses MAC de tous tes portables.

Code :

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

1
2
3
4
MesAdressesMAC = Array("AdresseMAC_1", _
			"AdresseMAC_2", _
			"AdresseMAC_3", _
			"AdresseMAC_4")

Ensuite tu vas définir la plage d'IP que tu peux avoir. Mais vu qu'un bon informaticien est un informaticien fainéant, tu vas récupérer les 3 premiers octets de l'IP réseau qui t'intéresse et le mettre dans ta config.

Code :

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

1
2
3
4
5
6
7
AdressePasserelle="192.168.1.1"
MasqueReseau="255.255.255.0"
AdresseReseau="192.168.1."
ServeurDNS = "192.168.1.1"
DebutPlage = 20
NumeroAttribue = 0

- Définir tes adresses : C'est pas anodin le fait que je te dise de travailler par @ MAC. La simple et bonne raison est que sur un portable (à peu près récent), tu as du Wifi et de la connexion filaire. Le fait de faire des tests sur l'@ MAC est que tu n'auras pas à te demander si c'est bien la bonne interface réseau que tu configures.

On Continue

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
on error resume next 
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE") 
If Err.Number<>0 Then 
wscript.echo " - non accessible -" 
Else 
for each IPConfig in IPConfigSet 
	'On regarde si l'@ MAC fait partie des tiennes
	NumeroAttribue = ChercherAddrMAC(MesAdressesMAC  , IPConfig.MACAddress)
	If  NumeroAttribue <> - 1 Then
		'On l'ajoute au début de ta plage
		'Tu seras sur que personne d'autres dans le groupe ne possèdera la même
		NumeroAttribue = NumeroAttribue + DebutPlage
AssignerConfigurationReseau AdresseReseau & NumeroAttribue, MasqueReseau, AdressePasserelle, ServeurDNS 
	End If
Next 
End If

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
'Cette fonction te renverra la position de ton adresse MAC dans le tableau
'-1 si l'adresse MAC n'est pas dans le tableau
Function ChercherAddrMAC(MonTableau as Variant, MonAdrrMac as String) as Integer
	Compteur = 0
	Trouve = False
	While Not Trouve And Compteur <= UBound(MonTableau)
		If MonTableau(Compteur) = MonAddrMac Then 
			Trouve = True
		End If
		Compteur = Compteur + 1
	WEnd
	If Trouve Then 
		ChercherAddrMAC = Compteur
	Else
		ChercherAddrMAC = -1
	End If
End Function

'Cette procédure te permettra d'assigner une IP à une carte réseau
Sub AssignerConfigurationReseau(strAddrIP as String, strMasque as String, strPasserelle as String, strDns as String)
	'Ici tu mets ton code d'attribution d'adresse IP

End Sub

Pour ce qui est du proxy, tout est faisable

http://www.developpez.net/forums/d32...igne-commande/

A toi de voir comment l'interpreter en VBS, et de mettre le code de modification dans une procédure (Sub). C'est plus propre de "factoriser" le code.

Bon courage.

[rjl]

Bonjour Luc1an0

Juste une réponse d'attente ; le piste que tu donnes me parait bien intéressante ; malheureusement je suis tout de suite sur un autre sujet et verrai ce soir si j'ai un peu de temps pour approfondir.

RJL9831