gaetand62
Messages postés8Date d'inscriptionsamedi 3 juillet 2010StatutMembreDernière intervention23 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.
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