[VBScript] Change Computer Name

[vinay]

Change Computer Name using VBScript
Hi friends, We can change name of our computer with using the following script:

*Open notepad and type the quoted text:

Code: Select all

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, p2, n, cn, vbdefaultbutton
Dim itemtype

p1 = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"

n = ws.RegRead(p1 & "ComputerName")
t = "Change Computer Name    Ask-Vinay"
cn = InputBox("Type new Name and click OK", t, n)
If cn <> "" Then
  ws.RegWrite p1 & "ComputerName", cn
End If

*Save it as.. filename.vbs

*Double click on the file to execute this..

*Enter your desired computer name and press OK.

[rahber]

ahan.. nice info bro
but what that we manually chnge the pc name in going to system options ? is it the same procudure?

[vinay]

but what that we manually chnge the pc name in going to system options ? is it the same procudure?

Yes! Both are same procedure bro rahber !

[rahber]

ahan thnx for the clarification bro

[XMaiev]

int, thanks s s s s