使用者名及び会社名の変更 WSH

Windowsをインストールする際に入力する”使用者名”と”会社名”ですが、
レジストリに書き込まれています。
WSHを使って対話式で変更するスクリプトを作成しました。

Register_name_change.vbs
----
Dim Prompt, Title, WshShell, OwnName, OrgName
set WshShell = WScript.CreateObject("WScript.Shell")

' get Owner name
Prompt = "Please input Owner name "
Title = "Change Rerister Name"
OwnName = InputBox(Prompt, Title, "Owner name")

' get Organization name
Prompt = "Please input Organization name"
OrgName = InputBox(Prompt, Title, "Organization name")

' set these in the registry
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\RegisteredOwner", OwnName, "REG_SZ"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization", OrgName, "REG_SZ"
----

←クリック一票