CONNEXION DÉCONNEXION INTERNET
cs_Logan
Messages postés
99
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
9 juin 2008
-
27 avril 2003 à 21:20
toussaim Messages postés 5 Date d'inscription vendredi 11 mars 2005 Statut Membre Dernière intervention 1 octobre 2006 - 1 oct. 2006 à 09:30
toussaim Messages postés 5 Date d'inscription vendredi 11 mars 2005 Statut Membre Dernière intervention 1 octobre 2006 - 1 oct. 2006 à 09:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6864-connexion-deconnexion-internet
https://codes-sources.commentcamarche.net/source/6864-connexion-deconnexion-internet
1 oct. 2006 à 09:30
http://jc.bellamy.free.fr/fr/vbsdownload.html#connexion
@+
30 sept. 2006 à 15:52
Quelqu'un peut me dire s'il a réussi a faire fonctionner la connexion sous xp ?
Merci
22 juin 2006 à 15:56
http://groups.google.co.uk/group/microsoft.public.scripting.vbscript/msg/2b3fab1141c6c93e?dmode=source&hl=en
22 juin 2006 à 15:55
en VBS: modifier eventuellement le nom de la connexion et du repertoire.
Const ssfCONTROLS =3
sConnectionName ="Local Area Connection"
sEnableVerb ="En&able"
sDisableVerb ="Disa&ble"
set shellApp =createobject("shell.application")
set oControlPanel =shellApp.Namespace(ssfCONTROLS)
set oNetConnections =nothing
for each folderitem in oControlPanel.items
if folderitem.name ="Network Connections" then
set oNetConnections =folderitem.getfolder: exit for
end if
next
if oNetConnections is nothing then
msgbox "Couldn't find 'Network and Dial-up Connections' 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.
'
'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
28 déc. 2005 à 13:10
22 oct. 2005 à 11:52
11 janv. 2005 à 22:01
Enfin, j'ai entendu parler d'un code utilisant rasdial ou qlq chose dans le genre ...
++
22 oct. 2004 à 17:41
26 juil. 2003 à 18:16
Peu tu m'aider Arsena
Guy van der Velden
26 juil. 2003 à 18:15
Peu tu m'aider Arsena
Guy van der Velden
18 juin 2003 à 20:32
27 avril 2003 à 21:20