script deconnexion wifi

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : script deconnexion wifi

Matteu

Bonjour,

Mon objectif est de désactiver automatiquement le wifi lorsqu'on connecte le pc portable en ethernet afin d'avoir une seule connexion active.
Il va de soi que toute solutions m'incitant à ce que l'utilisateur fasse une autre manipulation que celles qu'il réalise généralement ne m'intéresse pas ni d'avoir les deux connexions actives.

j'ai trouvé un script qui fonctionne sur le modèle de pc que j'utilise, mais ne fonctionne pas sur un autre.
Les 2 postes ont bien win 7 pro 64 bits. par contre l'un est un dell e5540 et l'autre e5510.

au niveau du script :

Code :

On Error Resume Next
Dim strComputer
Dim objWMIService
Dim colLAN
Dim objWifi,objLAN
Dim state
Dim wireStatus
Dim wifiStatus
state=""
wireStatus=""
wifiStatus=""
Do While True
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2" )
Set colLAN = objWMIService.ExecQuery("Select * From Win32_NetworkAdapter Where NetConnectionID like 'Local Area Connection' and PhysicalAdapter='True'" )
Set colWiFi=objWMIService.ExecQuery ("Select * From Win32_NetworkAdapter Where NetConnectionID =" & "'" &GetWirlessName & "'" & "and PhysicalAdapter='True' " )
For Each objWifi In colWiFi
If objWifi.Netconnectionstatus=2 Then
wifiStatus=True
Else
wifiStatus=False
End If
Next
For Each objLAN in colLAN
If objLAN.Netconnectionstatus=2 Then
wireStatus=True
state=False ' this is very importnat variable to determine when to enable or disbale wireless connection
Else
wireStatus=False
End If
Next
If True Then
If state <> False Then
If wifiStatus = False Then
EnableWireless GetWirlessName
End If
Else
If wifiStatus = True Then
DisableWireless GetWirlessName
End If
End If
End If
state=""
wireStatus=""
wifiStatus=""
WScript.Sleep 60000
Loop
' Function to get wireless adapter name from the registery
Function GetWirlessName
Dim strKeyPath
Dim strComputer
Dim objReg
Dim arrSubKeys
Dim SubKey
Dim strValueName
Dim dwValue
Dim strValue
Const HKLM=&H80000002
strKeyPath="SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
strComputer="."
Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv" )
objReg.Enumkey HKLM ,strKeyPath,arrSubKeys
For Each SubKey In arrSubKeys
strValueName="MediaSubType"
objReg.GetDWORDValue HKLM,strKeyPath & "\" & subkey & "\" & "Connection" ,strValueName,dwValue
If dwValue=2 Then
strValueName = "Name"
objReg.GetStringValue HKLM,strKeyPath & "\" & subkey & "\" & "Connection" ,strValueName,strValue
Exit For
End If
Next
GetWirlessName=strValue
End Function
' Subroutine to disable wireless connection
Sub DisableWireless (strNetConn)
Dim oConnections
dim objShell
Dim objConnections,objConn
Dim strDisable
Dim objNetwork
Dim objDisable
Dim objVerb
Const NETWORK_CONNECTIONS = &H31&
strDisable = "Disa&ble"
Set objShell = CreateObject("Shell.Application" )
Set objConnections = objShell.Namespace(NETWORK_CONNECTIONS)
For Each objConn In objConnections.Items
If objConn.Name = strNetConn Then
Set objNetwork = objConn
Exit For
End If
Next
Set objDisable = Nothing
For Each objVerb in objNetwork.verbs
If objVerb.name = strDisable Then
Set objDisable = objVerb
Exit For
End If
Next
objDisable.DoIt
WScript.Sleep 1000
End Sub
'Function to enable wireless connection , you can combone these two subtoutines into one
' but I prefer to seperate them just for simplicity
Sub EnableWireless (strNetConn)
Dim oConnections
dim objShell
Dim objConnections,objConn
Dim strEnable
Dim objNetwork
Dim objEnable
Dim objVerb
Const NETWORK_CONNECTIONS = &H31&
strEnable = "En&able"
Set objShell = CreateObject("Shell.Application" )
Set objConnections = objShell.Namespace(NETWORK_CONNECTIONS)
For Each objConn In objConnections.Items
If objConn.Name = strNetConn Then
Set objNetwork = objConn
Exit For
End If
Next
Set objEnable = Nothing
' Enable NIC
For Each objVerb in objNetwork.verbs
If objVerb.name = strEnable Then
Set objEnable = objVerb
Exit For
End If
Next
objEnable.DoIt
WScript.Sleep 1000
End Sub

Je ne vois pas ce qui fait que ca marche sur l'un mais pas l'autre...

Je vous remercie par avance pour m'aider à résoudre ce problème.

Message édité par Matteu le 11-03-2015 à 18:58:23

---------------
Mon Feedback---Mes ventes

Publicité

akizan

Eye Sca Zi

t'as quoi comme erreur sur celui qui marche pas ?

bardiel

Debian powa !

Accessoirement la balise spoiler n'est pas adapté au code, tu pourrais utiliser cpp ou fixed à la place de spoiler ?
Merci

Après ta variable strKeyPath est la même sur les 2 modèles de portable ?

---------------
Grippe ? Coronavirus ? Portez votre masque correctement ! :D

Matteu

Aucune erreur quand j exécute manuellement le script il se passe rien

Bardiel tu me parles chinois pour la variable la je suis une bille en vbs et j édite demain car en effet pas joli le spoiler

Message cité 1 fois

---------------
Mon Feedback---Mes ventes

bardiel

Debian powa !

Quand je vois ton code je lis :

strKeyPath="SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"

Or tu fais appel dans la base de registre à un contrôle bien particulier.
A mon avis, ouvres ta base de registre et regardes du côté de cela si sur la machine où ça ne fonctionne pas, tu as la même clé.

A titre perso plutôt que d'aller voir dans la base de registre, j'utilise la méthode devcon (nécessite une élévation des droits par contre).
A tester, la méthode netsh [:spamatounet]

---------------
Grippe ? Coronavirus ? Portez votre masque correctement ! :D

ShonGail

En phase de calmitude ...

C'est compliqué tout ça.
Moi je passerai par du netsh.

A voir aussi si le BIOS des PCs n'a pas cette option.

Matteu

bardiel oui elle existe bien la cle sur le pc sur lequel ca ne fonctionne pas j'avais regardé aussi ca justement !

le netsh tu ferais quoi ?
parce que le but, c'est pas de faire double cliquer l'utilisateur pour qu'il se connecte en wifi ou en ethernet, c'est qu'il faut vraiment que ca se fasse de maniere transparente.

En gros, chaque fois que quelqu'un revient d'une reunion, il se retrouve en wifi + ethernet des qu'il se plug sur le dock...
donc le but est d'éviter ca.

Donc il faut que ce soit quelque chose qui prenne pas 1 mois a mettre en place si possible et de plus que la solution ne demande pas une réorganisation de la gestion des postes (ajout d'un compte admin ou autre).

---------------
Mon Feedback---Mes ventes

bardiel

Debian powa !

Tu regardes le nom de ton interface WiFi avec :

netsh int ip sh ip

puis tu la désactives avec :

netsh int set int name="<nom_de_la_carte>" admin=disabled

Pour la réactiver :

netsh int set int name="<nom_de_la_carte>" admin=enabled

Par contre je ne sais pas si c'est du niveau "administrateur" ou même "utilisateur avec pouvoirs" [:spamatounet]

Après vu ça, à chercher aussi si ça ne peut pas se faire en script.

---------------
Grippe ? Coronavirus ? Portez votre masque correctement ! :D

Matteu

Le lien est exactement ce que je ne veux pas
Ça ne répond pas a mon besoin car les deux cartes sont actives
Le but étant de ne pas saturer les baux wifi ainsi qu accroître la sécurité

Les commandes que tu cites ça pas de soucis j y suis tombé dessus le problème c est que ça obligerait a faire deux script et que l utilisateur clique dessus ce qui ne répond pas au besoin
Il faut que quand il se connecte en wifi ça désactive la carte mais comment surveiller justement l état de la carte ethernet car en gros c est si ethernet est en statut connecte alors désactiver wifi

---------------
Mon Feedback---Mes ventes

ShonGail

En phase de calmitude ...

As-tu lu mon message (tips : la dernière phrase) ?

Sans cela, soit tu sais scripter et avec netsh tu vas t'en sortir rapidement.
Soit tu ne sais pas et ca va être dur.

Publicité

akizan

Eye Sca Zi

Matteu a écrit :

Aucune erreur quand j exécute manuellement le script il se passe rien

Bardiel tu me parles chinois pour la variable la je suis une bille en vbs et j édite demain car en effet pas joli le spoiler

commente la première ligne sinon tu ne verras pas les erreurs s'afficher.

Matteu

oui dsl le but est aussi d'eviter de passer sur tous les postes.
Mais dans tous les cas, non ils n'ont malheureusement pas l'option tous .
Surement les derniers modeles mais pas les autres.

je ne sais pas scripter non...
mais apparement ce serait avec netsh donc ?

le principe du programme serait :

boucle
si la connexion ethernet est active, desactiver wifi.
fin boucle

parce que c'est juste ca au final, si il y a que le wifi c'est bon, mais si il y a les 2 faut desactiver le wifi.

Apres la boucle infinie, c'est pas une bonne idée ca va tout planter, mais faut quand meme que ce soit un script qui tourne en permanence et qui check au moins toutes les 5/10sec si la connexion ethernet est active.

Message édité par Matteu le 12-03-2015 à 13:08:36

---------------
Mon Feedback---Mes ventes

ShonGail

En phase de calmitude ...

Mais tu vas devoir passer sur tous tes postes.

La question est de savoir si tu vas devoir y passer physiquement ou non :
http://en.community.dell.com/techc [...] /wiki/2545

Je@nb

Modérateur
Kindly give dime

Perso à chaque fois que je l'ai fait c'est via l'option du bios présent sur les laptop qu'on achetait (entre autre spécialement pour ça).

Après le script que tu montres a les bonnes bases mais bon il est trop simpliste vu qu'il va lister toutes les connexions et prendre la dernière qu'il a détecté en wifi et donc potentiellement pas la bonne carte ...
Le netsh fait exactement pareil que le script, dans un cas c'est une commande dans l'autre c'est wmi mais c'est identique au final.

Dans tous les cas faut être admin.
Ma méthode alternative serait :
un script qui active/désactive le wifi
Une tache planifiée sur l'event connexion et déconnexion réseau qui lance le script avec le compte système

Autre solution :
un script lancé par un service ou un service qui fait tout le job lancé en compte système qui s'occuppe du job.

Après c'est souvent casse gueule dès que tu montes des cartes réseaux virtuelles pour hyper-v, vmware workstation, que tu branches un dongle wifi en plus etc.

ShonGail

En phase de calmitude ...

Perso, par script, à mon sens, il faut normaliser les noms des connexions filaire et WIFI.
Ca fait ça de moins à gérer, surtout que la détection de la bonne interface peut-être effectivement compliquée.

Je@nb

Modérateur
Kindly give dime

https://www.raymond.cc/blog/auto-di [...] connected/

Matteu

pas con du tout du tout le cou de la tache planifié en fonction d'un évènement !
c'est même quelque chose dont je regrette de pas avoir penser tout seul

je vais essayer de prendre le temps demain pour tester voir couplé à du netsh donc

---------------
Mon Feedback---Mes ventes

Matteu

bon alors au final, j'ai essayer en local avec un script basé sur les evenements de l'observateur ca marche plutot bien par contre, en GPO je n'y arrive pas...

je suis passé par les gpp :

copie du fichier de script pour desactiver le wifi sur c:\script ->OK
copie du fichier de script pour desactiver le lan sur c:\script ->OK
création de 2 taches planifié -> la ca va pas !

les taches planifiés n'apparaissent pas sur le poste client.

l'os utilisé est 2008r2
j'ai bien coché tout ce qui est autorisation maximale etc. je comprends pas pourquoi ca ne descend pas...

---------------
Mon Feedback---Mes ventes

Matteu

Up pls

---------------
Mon Feedback---Mes ventes

akizan

Eye Sca Zi

ligne 18 du VBS, il recherche une connexion réseau du type : "Local Area Connection" alors que si ton OS est en français, ta connexion sera du type "Connexion au réseau local".

Pour vérifier tes états ajoute les lignes en 38,39:
wscript.echo "WireStatus = " & wireStatus
wscript.echo "WifiStatus = " & wifiStatus

il faut que les états soient non vides (soit true, soit false)

akizan

Eye Sca Zi

et aussi en ligne 112 et 149, il faut tu remplaces par les mots français :
strDisable = "&Désactiver"
strEnable = "&Activer"

Matteu

je suis parti sur la solution des taches planifiés plutot qui me semble plus propre non ?

surtout que le script marche sur un pc et pas un autre donc il me semblait pas "non fonctionnel" car le langage est francais dans les 2 cas

Message édité par Matteu le 14-04-2015 à 22:58:35

---------------
Mon Feedback---Mes ventes

Publicité

FORUM HardWare.fr

Systèmes & Réseaux Pro

Réseaux

script deconnexion wifi

Sujets relatifs
Borne wifi Cisco	Erreur 9646 - Deconnexion aléatoire client outlook
Quel langage de script pour Windows ?	Point d'accès wifi pour invités dans PME
Logiciel survey WiFi	Pont wifi entre deux bâtiments séparés par 30m
Choix de modem-routeur-wifi adsl pour usages spécifiques
Plus de sujets relatifs à : script deconnexion wifi

Page générée en 0.079 secondes