The following code read registry for the local computer; How to change it to
read registry from remote computer?
Imports Microsoft.Win32
Module Module1
Sub Main()
' Open the Uninstall registry subkey.
Dim Key As RegistryKey = Registry.LocalM achine.OpenSubK ey _
("SOFTWARE\Micr osoft\Windows\C urrentVersion\U ninstall", False)
' Retrieve a list of installed software products.
' This list also includes some software products that are not valid.
Dim SubKeyNames() As String = Key.GetSubKeyNa mes()
' Declare a variable to iterate through the retrieved list of
' installed software products.
Dim Index As Integer
' Declare a variable to hold the registry subkey that correspond
' to each retrieved software product.
Dim SubKey As RegistryKey
Console.WriteLi ne("The following software products are installed on
this computer:")
Console.WriteLi ne("")
' Iterate through the retrieved software products.
For Index = 0 To Key.SubKeyCount - 1
' Open the registry subkey that corresponds to the current
software product.
' SubKeyNames(Ind ex) contains the name of the node that
corresponds to the
' current software product.
SubKey = Registry.LocalM achine.OpenSubK ey _
("SOFTWARE\Micr osoft\Windows\C urrentVersion\U ninstall" + "\"
_
+ SubKeyNames(Ind ex), False)
' Verify that the DisplayName exists. If the DisplayName does
not exist,
' return a null string. If the returned value is a null string,
the
' DisplayName does not exist, and the software product is not
valid.
If Not SubKey.GetValue ("DisplayNam e", "") Is "" Then
' The current software product is valid.
' Display the DisplayName of this valid software product.
Console.WriteLi ne(CType(SubKey .GetValue("Disp layName", ""),
String))
End If
Next
Console.WriteLi ne("Press ENTER to quit.")
Console.ReadLin e()
End Sub
End Module
"Slimo" <sa****@tiscali .be> wrote in message
news:bt******** **@news.worldon line.be...
Hello,
I'm searching some example of code (VB) for reading remote registry
subkeys and keys.
Thanks
