Private Declare Function GetVersion Lib "kernel32" () As Long
Const HKEY_LOCAL_MACHINE = &H80000002 ' Requires the SetRegistryValue function Sub SetRegisteredUser(ByVal UserName As String, Optional ByVal Organization 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 If Len(UserName) Then SetRegistryValue HKEY_LOCAL_MACHINE, regKey, "RegisteredOwner", UserName End If If Len(Organization) Then SetRegistryValue HKEY_LOCAL_MACHINE, regKey, "RegisteredOrganization", _ Organization End If End Sub |