modificar registro en visual basic

[Javierillo]

Buenas,estoy intentando crear un valor dentro de una clave del registro de windows,he utiliado este codigo:

------------------------------------------------------------------
Private Sub SetValue(sKeyName As String, sValueName As String, _
vValueSetting As Variant, lValueType As Long)
Dim lRetVal As Long
Dim hKey As Long

lRetVal = RegOpenKeyEx(HKEY_CURRENT_USER, sKeyName, 0, _
KEY_ALL_ACCESS, hKey)
lRetVal = SetValueEx(hKey, sValueName, lValueType, vValueSetting)
RegCloseKey (hKey)
SetValue "TestKey", "Nombre", "Hola", REG_SZ
End Sub
--------------------------------------------------------------

Pero no funciona...
la clave "testkey" ya la tengo creada dentro de HKEY_CURRENT_USER...
Alguien sabe como arreglarlo,o alguna otra forma de hacerlo?
Gracias!

[nazkatuta]

Te pongo como lo suelo hacer, a ver si te vale

Código:

 
Dim WSHShell, RegTemp, valor
     valor = "IP del Proxy"
     Set WSHShell = CreateObject("WScript.Shell")
     WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Empresa\proxy", valor

suerte

[Javierillo]

muchas gracias!

[manuxnxs]

Iniciado por nazkatuta

Te pongo como lo suelo hacer, a ver si te vale

Código:

 
Dim WSHShell, RegTemp, valor
     valor = "IP del Proxy"
     Set WSHShell = CreateObject("WScript.Shell")
     WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Empresa\proxy", valor

suerte

Buenas, estuve leyendo y tratando de transcribir lo posteado, pero no me funciona.
Estoy necesitando cambiar el IP y el puerto del ProxyServer pero no consigo código ejemplo para basarme en ese.
Si pueden hacerme el gran favor de pasarme el código será de muchisima utilidad.

HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Internet Server

Aprovecho, supuestamente cuando yo escriba WSHShell (luego de setearla) cuando presione el "." me debería salir como opción "RegWrite"? o debería escribirlo.

GRACIAS