ChgOwnOrg.vbs - Changes the Register Owner/Organization in Win95/98

  Bill James

ChgOwnOrg.vbs is a Visual Basic Script file which will check your System Registry
and retrieve the Registered Owner and Registered Organization information, and
allow you to change it.

To use: Download the ChgOwnOrg.vbs file and save it to your hard drive.
Double-click the ChgOwnOrg.vbs file and enter the information as you desire.

Note: I assume no responsibility at all for your use of these VBS files. You should
always ensure that you have a good working backup of your System Registry before
tampering with it.

Regards,
Doug Knox
*************
'ChgOwnOrg.vbs - Change Win9x Registered Owner/Organization.
'© Bill James - billjames.geo@yahoo.com - rev 29 Oct 1999.

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")

Dim ws, t, p1, p2, n, g, cn, cg

Dim itemtype

p1 = "HKLM\Software\Microsoft\Windows\CurrentVersion\"

p2 = "HKCU\Software\Microsoft\MS Setup (ACME)\User Info\"

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

  ws.RegWrite p2 & "DefName", cn

End If

cg = InputBox("Type new Organization and click OK.", t, g)

If cg <> "" Then

  ws.RegWrite p1 & "RegisteredOrganization", cg

  ws.RegWrite p2 & "DefCompany", cg

End If