GetRegOrg

Private Declare Function GetVersion Lib "kernel32" () As Long
Const HKEY_LOCAL_MACHINE = &H80000002

' Return the name of the registered organization

'

' Requires the GetRegistryValue function


Function 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 = "Software\Microsoft\Windows NT\CurrentVersion"
Else
' this is a Win9x system

regKey = "Software\Microsoft\Windows\CurrentVersion"
End If

GetRegisteredOrganization = GetRegistryValue(HKEY_LOCAL_MACHINE, regKey, _
"RegisteredOrganization", "")
End Function