GetRegisteredUser – Retreive the name of the registered user

Private Declare Function GetVersion Lib "kernel32" () As LongConst HKEY_LOCAL_MACHINE = &H80000002' Return the name of the registered user'' Requires the GetRegistryValue functionFunction GetRegisteredUser() As String    Dim regKey As String        ' this information is held in a Registry key whose path    ' depends on the operating system installed        If GetVersion() >= 0 Then        ' this is a Windows NT system        regKey = "SoftwareMicrosoftWindows NTCurrentVersion"    Else        ' this is a Win9x system        regKey = "SoftwareMicrosoftWindowsCurrentVersion"    End If        GetRegisteredUser = GetRegistryValue(HKEY_LOCAL_MACHINE, regKey, _        "RegisteredOwner", "")End Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: