Script - Rename organization name

Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, p1
p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\"
ws.RegWrite p1 & "RegisteredOwner", "PONER NOMBRE"
ws.RegWrite p1 & "RegisteredOrganization", "PONER NOMBRE"