Connexion déconnexion internet

Soyez le premier à donner votre avis sur cette source.

Vue 6 729 fois - Téléchargée 1 427 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
5
Date d'inscription
vendredi 11 mars 2005
Statut
Membre
Dernière intervention
1 octobre 2006

Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008

osus xp pro la deconnexion fonctionne mais pas la connexion ! Pour le fichier rnaui.dll voici un lien pour le downloader http://www.dll-files.com/dllindex/dll-files.shtml?rnaui

Quelqu'un peut me dire s'il a réussi a faire fonctionner la connexion sous xp ?

Merci
Messages postés
5
Date d'inscription
vendredi 11 mars 2005
Statut
Membre
Dernière intervention
1 octobre 2006

Messages postés
5
Date d'inscription
vendredi 11 mars 2005
Statut
Membre
Dernière intervention
1 octobre 2006

Pour une activation du reseau local (connexion internet via lan)

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
Messages postés
25
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
16 août 2006

Marche t'il sous windows 2000 ?
Afficher les 12 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.