devxlogo

GetRegisteredUser – Retreive the name of the registered user

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

See also  Who are the Modern GPU Cloud Providers?
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist