devxlogo

GetRegisteredOrganization – Retreive the name of the registered organization

GetRegisteredOrganization – Retreive the name of the registered organization

Private Declare Function GetVersion Lib "kernel32" () As LongConst HKEY_LOCAL_MACHINE = &H80000002' Return the name of the registered organization'' Requires the GetRegistryValue functionFunction GetRegisteredOrganization() 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        GetRegisteredOrganization = GetRegistryValue(HKEY_LOCAL_MACHINE, regKey, _        "RegisteredOrganization", "")End Function

See also  How IoT Tech Will Transform Logistics
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