Categories
通風報信

使用VBScript修改登錄檔

因為使用無人值守作法XP光碟安裝出來的系統,授權使用者跟組織等都得預先設好,而Office 2007又是直接讀取登錄檔裡的授權使用者名稱作為作者,所以必須想辦法在一裝好系統後修改登錄檔裡的資訊。
而我第一個想到的就是可以用VBScript來做,找了找資料後總算是寫出來了!

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,"處理完畢"

把上面的程式碼用記事本之類的純文字處理軟體存成change.vbs然後再執行就可以了!

參考:
http://blog.csdn.net/kingwkb/archive/2005/09/02/470389.aspx
http://www.alan888.com/winxp/Misc.html#ChgRegNamOrg

發表迴響