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

Số trang: 3 Loại file: pdf Dung lượng: 84.07 KB Lượt xem: 11 Lượt tải: 0

tailieu_vip

Hỗ trợ phí lưu trữ khi tải xuống: miễn phí

Báo xấu

Xem trước 2 trang đầu tiên của tài liệu này:

Thông tin tài liệu:

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 & "...
Nội dung trích xuất từ tài liệu:
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