Public Function ReadHKCUReg(ByVal strComputer As String, ByVal SubKey As String, ByVal KeyName As String) As String Dim str As String = DirectCast(Nothing, String) Dim CurrentUser As RegistryKey = RegistryKey.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.CurrentUser, strComputer) Dim Regvalue As RegistryKey = CurrentUser.OpenSubKey(SubKey) str = Regvalue.GetValue(KeyName) Return str End Function
Dim CurrentUser As RegistryKey...
Nothing
DirectCast(Nothing, String)
String
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)