Thay đổi thông tin đăng ký trong System Properties, của Windows XP một cách nhanh nhất

[bsbdonganh]

Bạn mới mua máy tính về, khi mở System Properties, bạn sẽ thấy thông tin đăng ký (Registered to) là một người dùng nào đó. Thủ thuật sau sẽ giúp bạn điều chỉnh thông tin đăng ký này thành tên của bạn rất dễ dàng. Bạn mở Notepad và nhập đoạn mã sau vào.

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

Lưu lại với tên là changeinfouser.vbs và chạy nó. Một hộp thoại sẽ yêu cầu bạn nhập tên mới cho máy tính. Nhập xong, bạn có thể vào lại System Properties để kiểm tra những thay đổi.


Đây hình ảnh test xong

(flex)