Chào mừng quý vị đến với WEBSITE-Bùi Văn Tiến-thpt Buôn Ma Thuột.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Gốc > Tin học tổng hợp >
28. Thay đổi thông tin đăng ký người dùng trong System Properties
28. Thay đổi thông tin đăng ký người dùng trong System Properties
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
Bùi Văn Tiến @ 06:57 28/02/2009
Số lượt xem: 1525
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
Bùi Văn Tiến @ 06:57 28/02/2009
Số lượt xem: 1525
Số lượt thích:
0 người
- 27. Tắt Cảnh Báo Security Center trong Windows XP SP2 (28/02/09)
- 26. Đưa các khay đĩa ra bằng một cú nhấp chuột (28/02/09)
- 25. Mất chức năng Start Menu trong Taskbar Properties (28/02/09)
- 24. Mất các biểu tượng trong Programs (26/02/09)
- 23. Luôn cho phép hiện nút Hibernate trong Turn Off Computer (26/02/09)
HOA NGHỆ THUẬT
Các ý kiến mới nhất