Pour des raisons de sécurité, j'ai besoin de couper les cartes reseau Wifi actives quand les gens sont dans la société.
 
J ai déjà trouvé le script pour couper la carte wifi, mais il me manque le "si je suis connecte sur le reseau d entreprise alors, ..."
 
Je compte mettre ce script en local dans la machine et son lancement dans le run de la base de registre.
 
Je ne peux pas tester l existence d un quelconque map reseau car ceux-ci dependent d un serveur Novell et ne sont pas toujours actifs. J aurai simplement voulu tester: si adresse ip = 10. ... alors ...  
 
Ci-dessous, le script qui permet de desactiver la connexion wireless qui bien sur n est pas de moi. (merci a son auteur)
 
Merci a vous !
 
--------------------------------------------------------
 
Const HKEY_LOCAL_MACHINE = &H80000002
 
Public WShell
 
strComputer = "."
 
Set WShell = Wscript.CreateObject("Wscript.Shell" )  
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _  
strComputer & "\root\default:StdRegProv" )
 
strKeyPath = "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
If subkey <> "Descriptions" Then
strValueName = "MediaSubType"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & subkey & "\" & "Connection" ,strValueName,dwvalue
 
strValueName = "Name"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & subkey & "\" & "Connection" ,strValueName,strValue
 
If dwvalue = 2 Then
strValueName = "Name"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & subkey & "\" & "Connection" ,strValueName,strValue
Wscript.Echo "Your wireless card will be disabled: " & strValue
 
strValueName = "PnpInstanceID"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & subkey & "\" & "Connection" ,strValueName,strValue
wShell.Run "devcon disable ""@" & strValue & """" ,2,true
End If
End If
Next
-------------------------------------------------------------------------------

Une idée ?