|
发表于 2007-12-29 08:41:47| 字数 862| - 中国–广东–云浮 电信
|
显示全部楼层
Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
Dim Own,Org
Own = OperationRegistry.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")
Org = OperationRegistry.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization")
Own = InputBox ("請輸入你所希望的使用者名稱:","修改授權使用者名稱",Own)
OperationRegistry.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner",Own
Org = InputBox ("請輸入你所希望的組織名稱:","修改組織名稱",Org)
OperationRegistry.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization",Org
MsgBox "感謝你的使用" & vbNewLine & "這是結果:" & vbNewLine & "授權使用者名稱:" & vbNewLine & Own & vbNewLine & "組織:" & vbNewLine & Org,1,"處理完畢" |
|