This script will Change Owner's Name and Company. (VBScript)
| 'Change Owner Name and Company Set ws = WScript.CreateObject("WScript.Shell") Message = "This script will Change Owners Name and Company." & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then Dim ws, h, p1, p2, m, j, pm, jm, pmBox Dim itemtype p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\" m = ws.RegRead(p1 & "RegisteredOwner") j = ws.RegRead(p1 & "RegisteredOrganization") h = "Change Owner and Company Name" pm = InputBox("Type new Owner's name and click OK." , h, m) If pm <> "" Then ws.RegWrite p1 & "RegisteredOwner", pm End If jm = InputBox("Type new Company Name and click OK.", h, j) If jm <> "" Then ws.RegWrite p1 & "RegisteredOrganization", jm PmBox = MsgBox("Name has been Changed!" & vbCr & vbCr & "This script was downloaded from www.paulsxp.com", 48,"Finished!") End If End If |