Hoàng Đăng Vịnh check gia
Trả lời 17 năm trước
Bạn mới mua máy tính củ về khi bạn mở System Properties bạn sẽ thấy thông tin đăng ký
(Registered to) của 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 rất dể dàng . Bạn mở Notepad của mình và chép đọan 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à đặt tên là changeinfouser.vbs