Vbs Script To Change Registered Owner Or Organization Name

This Vbs script will prompt you to enter a new Registered Owner name and \ or new Registered Organization name for your Windows XP or Windows 2003 server operating system.

 

Note: If no value is added to either of the input box prompts no changes will be made.

 

Vbs Script:

 

strRegisteredOwner = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner"

strRegisteredOrganization = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization"

 

strType = "REG_SZ"

 

strRegisteredOwnerValue = InputBox("Enter New Registered Owner Value")

If strRegisteredOwnerValue <> "" Then

 

Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite strRegisteredOwner, strRegisteredOwnerValue, strType

Wscript.Echo "The Registered Owner Is: " & strRegisteredOwnerValue

 

Else

Wscript.Echo "The Registered Owner Has Not Changed"

End If

 

strRegisteredOrganizationValue = InputBox("Enter New Registered Organization Value")

If strRegisteredOrganizationValue <> "" Then

 

Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite strRegisteredOrganization, strRegisteredOrganizationValue, strType

Wscript.Echo "The Registered Organization Is: " & strRegisteredOrganizationValue

 

Else

Wscript.Echo "The Registered Organization Has Not Changed"

End If

 

Wscript.Quit
Published Sunday, September 24, 2006 7:34 AM by dhite
Filed under:

Comments

No Comments