SetRegisteredUser – Modify the name of registered user and organization

SetRegisteredUser – Modify the name of registered user and organization

Private Declare Function GetVersion Lib "kernel32" () As LongConst HKEY_LOCAL_MACHINE = &H80000002' Modify the name of the registered user and organization'' Requires the SetRegistryValue functionSub 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 = "SoftwareMicrosoftWindows NTCurrentVersion"    Else        ' this is a Win9x system        regKey = "SoftwareMicrosoftWindowsCurrentVersion"    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

See also  Comparing different methods of testing your Infrastructure-as-Code

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