Disclaimer: This script is provided as is, it may work or will not work on your windows installation depending on your level of system access. The author and this blog will not be held liable for any loss that this script may caused, proceed at your own risk.

Save the file with .vbs extension and run.

‘ChgOwnOrg.vbs - Change Win9x Registered Owner/Organization.
‘© Bill James - billjames.geo@yahoo.com
‘Modified for Windows XP

Option Explicit

Set ws = WScript.CreateObject(”WScript.Shell”)
Dim ws, t, p1, p2, n, g, cn, cg
Dim itemtype

p1 = “HKLM\Software\Microsoft\Windows NT\CurrentVersion\”

n = ws.RegRead(p1 & “RegisteredOwner”)
g = ws.RegRead(p1 & “RegisteredOrganization”)
t = “Change Owner and Organization Utility”
cn = InputBox(”Type new Owner and click OK”, t, n)
If cn <> “” Then
ws.RegWrite p1 & “RegisteredOwner”, cn
End If

cg = InputBox(”Type new Organization and click OK.”, t, g)
If cg <> “” Then
ws.RegWrite p1 & “RegisteredOrganization”, cg
End If

‘Tested to work