Script Activation carte réeau sous Seven

Fermé
gaetand62 Messages postés 8 Date d'inscription samedi 3 juillet 2010 Statut Membre Dernière intervention 23 octobre 2010 - 5 juil. 2010 à 19:24
Bonjour,

Je suis nouveau sur ce site, et j'aimerais avoir plus de renseignements sur un script VBS, en effet je suis sous Seven premium, firefox 3.6, PC EeePC T101MT ASUS et je souhaiterais modifier un script pour activer et désactiver ma carte réseau.

Voici une copie du script que j'utilise avec XP:

Const ssfCONTROLS = 3

sConnectionName = "Connexion au réseau local"

sEnableVerb = "&Activer"
sDisableVerb = "&Désactiver"

set shellApp = createobject("shell.application" )
set oControlPanel = shellApp.Namespace(ssfCONTROLS)

set oNetConnections = nothing
for each folderitem in oControlPanel.items
if folderitem.name = "Connexions réseau" then
set oNetConnections = folderitem.getfolder: exit for
end if
next

if oNetConnections is nothing then
msgbox "Couldn't find 'Connexions réseau' folder"
wscript.quit
end if

set oLanConnection = nothing
for each folderitem in oNetConnections.items
if lcase(folderitem.name) = lcase(sConnectionName) then
set oLanConnection = folderitem: exit for
end if
next

if oLanConnection is nothing then
msgbox "Couldn't find '" & sConnectionName & "' item"
wscript.quit
end if

bEnabled = true
set oEnableVerb = nothing
set oDisableVerb = nothing
s = "Verbs: " & vbcrlf
for each verb in oLanConnection.verbs
s = s & vbcrlf & verb.name
if verb.name = sEnableVerb then
set oEnableVerb = verb
bEnabled = false
end if
if verb.name = sDisableVerb then
set oDisableVerb = verb
end if
next

'debugging displays left just in case...
'
'msgbox s ': wscript.quit
'msgbox "Enabled: " & bEnabled ': wscript.quit

'not sure why, but invokeverb always seemed to work
'for enable but not disable. =20
'
'saving a reference to the appropriate verb object
'and calling the DoIt method always seems to work.
'
if bEnabled then
oLanConnection.invokeverb sDisableVerb
oDisableVerb.DoIt
else
oLanConnection.invokeverb sEnableVerb
oEnableVerb.DoIt
end if

'adjust the sleep duration below as needed...
'
'if you let the oLanConnection go out of scope
'and be destroyed too soon, the action of the verb
'may not take...
'
wscript.sleep 1000


A noter, j'ai essayé de modifier les paramètres
"sConnectionName = "Connexion au réseau local" if folderitem.name = "Connexions réseau" then msgbox "Couldn't find 'Connexions réseau' folder""

en adaptant le chemin de connexions seven mais rien ne marche. A noter, je suis débutant en ce qui concerne les scripts

Merci d'avance pour vos réponses