Vbs et html problème de création d'objet

Bonjour à tous,

j'ai un souci avec une page html contenant du code vbs. A l'execution une erreur apparait "can't create objet..." relatif à la ligne "Set objRegistry = GetObject..."

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
<SCRIPT LANGUAGE="vbscript">
 
function proxy()
  'On Error Resume Next
  const HKEY_CURRENT_USER = &H80000001
  strComputer = "."
  Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
  strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
  strValueName = "ProxyEnable"
  dwValue = 0
  objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
  strValueName = "ProxyServer"
  strValue = "server:port"
  objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
  strValueName = "ProxyOverride"
  strValue = "<local>"
 objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
end function
</SCRIPT>

Le code seul dans un fichier vbs fonctionne correctement.

Si quelqu'un peut me mettre sur une piste. Merci d'avance