Set WShell = WScript.CreateObject("WScript.Shell")
Set WshEnv = WShell.Environment("Process")
EnvOS = WshEnv("OS")
If EnvOS = "Windows_NT" then
 wintype = "Windows NT"
else
 wintype = "Windows"
End if

CurrentOwner = Wshell.RegRead("HKLM\Software\Microsoft\"+wintype+"\CurrentVersion\RegisteredOwner")
CurrentOrg = Wshell.RegRead("HKLM\Software\Microsoft\"+wintype+"\CurrentVersion\RegisteredOrganization")


NewOwner = InputBox("新しいユーザー名を入力してください。"+Chr(10)+"現在のユーザー名："+CurrentOwner+Chr(10)+"(何も入力しない場合は変更されません。)","登録名の変更")
if NewOwner = "" then
  WScript.Echo "ユーザー名は変更されませんでした。"
else
  Wshell.RegWrite "HKLM\Software\Microsoft\"+wintype+"\CurrentVersion\RegisteredOwner",NewOwner
  WScript.Echo "新しいユーザー名は "+NewOwner+" に変更されました。"
end if

NewOrg = InputBox("新しい組織名を入力してください。"+Chr(10)+"現在の組織名："+CurrentOrg+Chr(10)+"(何も入力しない場合は変更されません。)","登録名の変更")
if NewOrg = "" then
  WScript.Echo "組織名は変更されませんでした。"
else
  Wshell.RegWrite "HKLM\Software\Microsoft\"+wintype+"\CurrentVersion\RegisteredOrganization",NewOrg
  WScript.Echo "新しい組織名は "+NewOrg+" に変更されました。"
end if