CONNEXION DÉCONNEXION INTERNET

Commentaire de Logan le 27/04/2003 21:20:07

marche pas ( WINXP )

Commentaire de guyvdv le 26/07/2003 18:15:38

Dommage, Win2000 marche presque, Le dll rnaui.dll que j'ai telecharge n'est pas le meme que celui de Arsena, L'error est que la function n'est pas trouvé
Peu tu m'aider Arsena

Guy van der Velden

Commentaire de Unreal le 22/10/2004 17:41:47

Il manque rnaui.dll ...

Commentaire de milo2009 le 22/10/2005 11:52:58

sais tu comment faire pour activé une connection au reseau local ?

Commentaire de toussaim le 22/06/2006 15:55:56

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

Commentaire de Jackboy le 30/09/2006 15:52:37

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