Thay đổi lại thông tin trong hộp thoại System Properties
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.
Theo vn-zoom.com
Posted
