Change Computer Name

Posted on By David Kittell 
Option Explicit

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

p1 = "HKLMSYSTEMCurrentControlSetControlComputerNameComputerName"

n = ws.RegRead(p1 & "ComputerName")
t = "Change Computer Name"
cn = InputBox("Type new Name and click OK", t, n)
If cn <> "" Then
  ws.RegWrite p1 & "ComputerName", cn
End If
Originally Posted on July 18, 2013
Last Updated on October 26, 2015
All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and fully understand what it is doing not just what it appears it is doing. I accept no responsibility for any damage you may do with this code.
Code Windows VBS

Related Posts

FormatDate Function

Posted on

public string FormatDate(string sDate) { string formatteddate = ""; try { //DateTime d = Convert.ToDateTime(Date); DateTime d = DateTime.Parse(sDate); string format = "MM/dd/yyyy"; formatteddate = d.ToString(format); return formatteddate; } catch { return formatteddate; } } Originally Posted on June 10, 2014Last Updated on October 26, 2015 All information on this…

Read More

PowerShell – CSV Columns and Character Count

Posted on

$data = @(Import-Csv .partialFile.csv ) $row = $data[0] # how many columns do we have? $row | gm -membertype NoteProperty | Measure-Object # columns larger than 80 chars $row | gm -membertype NoteProperty | ? { ($row."$($_.Name)").Length -gt 80 } Reference: http://stackoverflow.com/questions/8685034/error-importing-5-gig-file-into-table Originally Posted on May 12, 2015Last Updated on…

Read More