zunia.vn

Tuyển sinh 2024 dành cho Gen-Z

zunia.vn

» 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

Chia sẻ: Tranthi Kimuyen | Ngày: | Loại File: PDF | Số trang:3

Báo xấu

99
lượt xem 5
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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 & "...

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Thủ thuật Windows XP: Thay đổi thông tin người dùng trong Windows

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 & "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 p1 & "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, 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 = "*¤*•,¤*•,¸.¸,•*¤*•_Thông Báo_•*¤*•,¸., •*¤*" cn = InputBox("Điền tên người sử dụng mới tại đây :", t, n) If cn "" Then ws.RegWrite p1 & "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 If

CÓ THỂ BẠN MUỐN DOWNLOAD

THÔNG TIN

TRỢ GIÚP

HỖ TRỢ KHÁCH HÀNG

Theo dõi chúng tôi

Chịu trách nhiệm nội dung:

Nguyễn Công Hà - Giám đốc Công ty TNHH TÀI LIỆU TRỰC TUYẾN VI NA

LIÊN HỆ

Địa chỉ: P402, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM

Hotline: 093 303 0098

Email: support@tailieu.vn

Giấy phép Mạng Xã Hội số: 670/GP-BTTTT cấp ngày 30/11/2015 Copyright © 2022-2032 TaiLieu.VN. All rights reserved.