Thay đổi Registered win

[Mr Tuấn Anh]

Thay đổi Registered win
Mở Notepad lên, copy đoạn code này điền vào đó
Save lại với tên bất kỳ và phần mở rộng .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 = "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

Chạy nó lên, điền Tên người dùng và Tên công ty