'更改Windows XP註冊使用者及公司名稱'
'changeownerorg.vbs
' 2004/11/02 , 03:55:23
' jim@mywindow.cx

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 = "註冊使用者及公司名變更程式"
cn = InputBox("請輸入註冊使用者，然後再按OK", t, n)
If cn <> "" Then
ws.RegWrite p1 & "RegisteredOwner", cn
End If

cg = InputBox("請輸入新的公司/機構名稱，然後再按OK.", t, g)
If cg <> "" Then
ws.RegWrite p1 & "RegisteredOrganization", cg
End If