Binaryworld - SetRegisteredUser - Modify the name of registered user and organizatio ... [ VB -> Windows ]

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

' Modify the name of the registered user and organization
'
' 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