'=========================================================
'
' DESC: Modify Registry Entries
'
'
' AUTHOR: Todd Woolums (twoolums@toddwoolums.com)
' DATE : 05/29/2004
' VERSION: 1.0
'=========================================================

Dim oShell
Dim regActiveComputerName, regComputerName, regHostname
Dim regNewActiveComputerName, regNewComputerName
Dim regNewHostname

regActiveComputerName = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\ComputerName"
regComputerName = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
regHostname = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname"

regNewActiveComputerName = "todd"
regNewComputerName = "todd"
regNewHostname = "todd"

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

oShell.RegWrite regActiveComputerName, regNewActiveComputerName
oShell.RegWrite regComputerName, regNewComputerName
oShell.RegWrite regHostname, regNewHostname