'***************************************************************************
'
' Windows NT Registration Changer v1.0
' This script can changes the Registration Owner and Organization.
'
'***************************************************************************

'-> Check for administrative rights.
Set reg = GetObject("winmgmts://./root/default:StdRegProv")
rc = reg.GetStringValue(&h80000003, "S-1-5-19\Environment", "TEMP", val)
If rc = 5 Then
  If WScript.Arguments.Count = 0 Then
    CreateObject("Shell.Application").ShellExecute "wscript.exe" _
      , Chr(34) & WScript.ScriptFullName & Chr(34) & " /relaunch", "", "runas", 1
    WScript.Quit 0
  Else
    WScript.Echo "Cannot acquire admin privileges.",4128,"Admin Access denied."
    WScript.Quit 1
  End If
Else
'-> Run code here when administrative rights.
Set ws = WScript.CreateObject("WScript.Shell")
st = "Windows NT Registration Changer"
rk1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\"
rvu = ws.RegRead(rk1 & "RegisteredOwner")
rvo = ws.RegRead(rk1 & "RegisteredOrganization")

ivu = InputBox("Type in the new Owner name and then click OK.", st, rvu)
If ivu <> "" Then
 ws.RegWrite rk1 & "RegisteredOwner", ivu
End If

ivo = InputBox("Type in the new Organization name and click OK.", st, rvo)
If ivo <> "" Then
 ws.RegWrite rk1 & "RegisteredOrganization", ivo
End If

WScript.Quit

End If