'╭──────╮
'│www.sduw.com│
'╰──────╯
'功能:更改名称和单位
'注意:立即生效,可以自己更改喜欢的名称和单位,对系统没有影响
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner","名称"
wso.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RegisteredOrganization","单位"
msgbox"修复成功!"