' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'  Script VBS pour les problèmes de modem inaccessible lors de
' l'installation d'une connexion internet
'
' script de ~Jean-Marc~ © 2004 http://perso.wanadoo.fr/doc.jm
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

On Error Resume Next 

Dim shell, fso, key
Set shell = WScript.CreateObject("WScript.Shell")
Set fso   = WScript.CreateObject("Scripting.FileSystemObject")


'Configuration des services en manuel (config d'origine XP)

shell.Run("sc config rasauto start= demand")
shell.Run("sc config rasman start= demand")
shell.Run("sc config tapisrv start= demand")

shell.Run("sc stop rasman")


'Effacement des clés parasites (http://support.microsoft.com/default.aspx?kbid=329441)

key="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RasMan\PPP\EAP\26\"
shell.RegDelete key

key="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RasMan\PPP\EAP\25\"
shell.RegDelete key

shell.Run("sc start rasman")


'fin
wscript.echo "Fin de la réparation."

Set fso = Nothing
Set shell = Nothing

Wscript.quit