I try read remote registry but GetStringValue  method never return 0 (all ok), it returns 161.
Please, can you help me????

Thanks a lot
OMG

===========================================================
   Const HKEY_LOCAL_MACHINE As Integer = &H80000002
   Dim strResult As String = ""
   Dim SWServices As SWbemServices
   Dim SWObject As SWbemObject
   Dim oProp As SWbemProperty
   Dim oLocator As SWbemLocator
   oLocator = New SWbemLocator()
   SWServices = oLocator.ConnectServer("hostname", "root\default", "username", "password")
   SWObject = SWServices.Get("StdRegProv")
   Dim strPath As String = "\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName"
   Dim strValue As String = "ComputerName"
   Try
     Dim intErr As Integer
     intErr = SWObject.GetStringValue(HKEY_LOCAL_MACHINE, strPath, strValue)
     Console.WriteLine(intErr)
   Catch ex As Exception
     Console.WriteLine("Error: " & ex.ToString())
   End Try
===========================================================