Computername und Netbios bei jedem Systemstart ändern

Option Explicit

On Error GoTo 0
On Error Resume Next

set args = WScript.Arguments

Set ws = WScript.CreateObject("WScript.Shell")
Dim args, ws, t, p2, p3, p4, p5, p6, n, j, h, f, k, cf
Dim itemtype,num

num=args.count
if num<>0 then cf=args.Item(0)

p2 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\"
p3 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\"
p4 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"
p5 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"
p6 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"


j = ws.RegRead(p2 & "ComputerName")
h = ws.RegRead(p3 & "NV Hostname")
f = ws.RegRead(p4 & "ComputerName")
k = ws.RegRead(p5 & "NV Hostname")


t = "Compuer Name Change Utility"
if num=0 then
 do
 Randomize
 cf = Rnd()
 loop while cf=""
end if

If cf <> "" Then
ws.RegWrite p2 & "ComputerName", cf
ws.RegWrite p3 & "NV Hostname", cf
ws.RegWrite p4 & "ComputerName", cf
ws.RegWrite p5 & "NV Hostname", cf
ws.RegWrite p6 & "ChangeComputerName", "C:\Windows\computername.vbs"
End If


dim file, destfile, objFSO, i, strscript
set file = CreateObject ("Scripting.FileSystemObject")
set destfile = file.GetFile("computername.vbs")
destfile.Copy("C:\Windows\computername.vbs")