Using RegConnectRegistry() with VB.net

[Brian Patrick]

I cannot seem to get the following code to work in VB.net:

----------------------------------------------------------------------------
-------------------------
Const HKEY_LOCAL_MACHINE = &H80000002

Declare Function RegConnectRegistry Lib "advapi32.dll" Alias
"RegConnectRegistryA" _
(ByVal lpMachineName As String, ByVal hKey As Int32, ByVal phkResult As
Int32) As Int32

(the code below would be placed in a sub or function)
Dim lReturnCode as Int32
Dim lhRemoteRegistry as Int32

lReturnCode = RegConnectRegistry("\\MyMachine", HKEY_LOCAL_MACHINE,
lhRemoteRegistry)

----------------------------------------------------------------------------
-------------------------

lReturnCode always returns 1780, when it should be returning zero. If I
take this same code and copy it into a VB 6 project (changing the Int32's to
Long's of course) it works perfectly and connects to the remote registry.

Any ideas?

Thanks,
Brian

[Ken Tucker]

Brian,

Use the registry class instead of the API.
Dim rKey As Microsoft.Win32.RegistryKey

rKey =
Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(Regi stryHive.LocalMachine,
\\MyMachine)

Ken

----------------

"Brian Patrick" <bp*********@hotmail.com> wrote in message
news:%2***************@TK2MSFTNGP10.phx.gbl...

I cannot seem to get the following code to work in VB.net:

-------------------------------------------------------------------------- -- -------------------------
Const HKEY_LOCAL_MACHINE = &H80000002

Declare Function RegConnectRegistry Lib "advapi32.dll" Alias
"RegConnectRegistryA" _
(ByVal lpMachineName As String, ByVal hKey As Int32, ByVal phkResult As
Int32) As Int32

(the code below would be placed in a sub or function)
Dim lReturnCode as Int32
Dim lhRemoteRegistry as Int32

lReturnCode = RegConnectRegistry("\\MyMachine", HKEY_LOCAL_MACHINE,
lhRemoteRegistry)

-------------------------------------------------------------------------- -- -------------------------

lReturnCode always returns 1780, when it should be returning zero. If I
take this same code and copy it into a VB 6 project (changing the Int32's to Long's of course) it works perfectly and connects to the remote registry.

Any ideas?

Thanks,
Brian

[Brian Patrick]

Thanks very much!
"Ken Tucker" <vb***@bellsouth.net> wrote in message
news:#6**************@TK2MSFTNGP12.phx.gbl...

Brian,

Use the registry class instead of the API.
Dim rKey As Microsoft.Win32.RegistryKey

rKey =
Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(Regi stryHive.LocalMachine,
\\MyMachine)

Ken

----------------

"Brian Patrick" <bp*********@hotmail.com> wrote in message
news:%2***************@TK2MSFTNGP10.phx.gbl...

I cannot seem to get the following code to work in VB.net:

--------------------------------------------------------------------------
--

-------------------------
Const HKEY_LOCAL_MACHINE = &H80000002

Declare Function RegConnectRegistry Lib "advapi32.dll" Alias
"RegConnectRegistryA" _
(ByVal lpMachineName As String, ByVal hKey As Int32, ByVal phkResult As Int32) As Int32

(the code below would be placed in a sub or function)
Dim lReturnCode as Int32
Dim lhRemoteRegistry as Int32

lReturnCode = RegConnectRegistry("\\MyMachine", HKEY_LOCAL_MACHINE,
lhRemoteRegistry)

--------------------------------------------------------------------------
--

-------------------------

lReturnCode always returns 1780, when it should be returning zero. If I
take this same code and copy it into a VB 6 project (changing the Int32's to

Long's of course) it works perfectly and connects to the remote

registry.
Any ideas?

Thanks,
Brian