Kinh doanh - Marketing
Kinh tế quản lý
Biểu mẫu - Văn bản
Tài chính - Ngân hàng
Công nghệ thông tin
Tiếng anh ngoại ngữ
Kĩ thuật công nghệ
Khoa học tự nhiên
Khoa học xã hội
Văn hóa nghệ thuật
Sức khỏe - Y tế
Văn bản luật
Nông Lâm Ngư
Kỹ năng mềm
Luận văn - Báo cáo
Giải trí - Thư giãn
Tài liệu phổ thông
Văn mẫu
Giới thiệu
Đăng ký
Đăng nhập
Tìm
Danh mục
Kinh doanh - Marketing
Kinh tế quản lý
Biểu mẫu - Văn bản
Tài chính - Ngân hàng
Công nghệ thông tin
Tiếng anh ngoại ngữ
Kĩ thuật công nghệ
Khoa học tự nhiên
Khoa học xã hội
Văn hóa nghệ thuật
Y tế sức khỏe
Văn bản luật
Nông lâm ngư
Kĩ năng mềm
Luận văn - Báo cáo
Giải trí - Thư giãn
Tài liệu phổ thông
Văn mẫu
Thông tin
Điều khoản sử dụng
Quy định bảo mật
Quy chế hoạt động
Chính sách bản quyền
Giới thiệu
Đăng ký
Đăng nhập
0
Trang chủ
Công Nghệ Thông Tin
Hệ điều hành
Thủ thuật Windows XP: Thay đổi thông tin người dùng trong Windows
Đang chuẩn bị liên kết để tải về tài liệu:
Thủ thuật Windows XP: Thay đổi thông tin người dùng trong Windows
Ðình Nguyên
53
3
pdf
Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Thay đổi thông tin người dùng trong Windows Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs ( VD: Change Account.vbs ) 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 = "*¤*•,¤*•,.,•*¤*•_Thong Bao_•*¤*•,., •*¤*" cn = InputBox("Dien ten nguoi su dung moi tai day:", t, n) If cn "" Then ws.RegWrite p1 & ". | Thay đổi thông tin người dùng trong Windows Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs VD Change Account.vbs Option Explicit Set ws WScript.CreateObject WScript.Sheir 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 n n j.j n _Thong Bao_ n J. cn InputBox Dien ten nguoi su dung moi tai day t n If cn Then ws.RegWrite pl RegisteredOwner cn End If cg InputBox Dien ten dia chi nghe nghiep hoac cong ty moi tai day. t g If cg Then ws.RegWrite pl RegisteredOrganization cg End If Sau đó tiến hành thực thi file vừa tạo và làm theo hướng dẫn. Ngoài ra ta cũng có thể sử dụng đoạn mã sau nhưng khi lưu thành file .vbs thì chọn File - Save as. và chọn Unicode tại trường Encoding để hiển thị đúng phông Unicode. Option Explicit Set ws WScript.CreateObject WScript.Shell Dim ws t pl p2 n g cn cg Dim itemtype pl HKLM Software Microsoft Windows NT CurrentVersion n ws.RegRead p1 RegisteredOwner g ws.RegRead p1 RegisteredOrganization t n . n . j j . n ._Thông Báo_ a . . cn InputBox Điền tên người sử dụng mới tại đây t n If cn Then ws.RegWrite pl RegisteredOwner cn End If cg InputBox Điền tên địa chỉ nghề nghiệp hoặc công ty mới tại đây t g If cg Then ws.RegWrite p1 RegisteredOrganization cg End .
TÀI LIỆU LIÊN QUAN
10 thủ thuật thay đổi registry trong Windows XP và Vista
Cách thay đổi ký tự của các ổ dĩa trong Windows XP
Thay đổi giao diện của Windows XP
Thủ thuật Windows XP: Thay đổi CD Key đăng kí cho Windows XP
Tự động thay đổi hình nền Desktop trong Windows 7
Microsoft tiết lộ 36 thay đổi mới về Windows 7
Những thay đổi sẽ xuất hiện trong bản RC của Windows 7
Windows 8 và những thay đổi mới
'Hô biến' Windows XP/Vista/7 thành Windows 8
Tự động thay đổi máy in mặc định trên từng mạng
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.