devxlogo

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

devx-admin

Share the Post: