Ændre computernavn ved first boot

Hov, jeg glemte at sige at man selv skal kunne angive navnet!

Ih, jeg mener indtaste navnet, når den kører scriptet.

b4r0n3n (10.545 point. Point ude: 1.190)

Du har uafsluttede spørgsmål tilbage i 2004 så det er ikke sikkert at der er nogen der vil hjælpe dig.

Jeg har ikke været logget ind siden 2005. Jeg aner ikke hvor de resterende point ligger henne.

http://www.eksperten.dk/list/spoergsmaal/b4r0n3n

alle dem der ikke er grønne bør du kigge på.



m.v.h

Så er der ryddet op :)

Denne script gjorde det meget nemt. Men jeg vil advare om, at det at lægge en pejler til filen i HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce gav mig store problemer med genstart, fejl besked og meldinger om korrumperet reg database og systemet skulle reparere sig selv et par gange før den kørte igen. Men det er Windows 7 jeg kørte den på - det kan godt være den er mere hysterisk end XP. Her er scriptet:



with Wscript.CreateObject("Wscript.Network")     
    sNewName = inputbox("Enter New Computer Name","Change Computer Name", .Computername)
end with

Set oShell = CreateObject ("WSCript.shell")

sCCS = "HKLM\SYSTEM\CurrentControlSet\"
sTcpipParamsRegPath = sCCS & "Services\Tcpip\Parameters\"
sCompNameRegPath = sCCS & "Control\ComputerName\"

With oShell
.RegDelete sTcpipParamsRegPath & "Hostname"
.RegDelete sTcpipParamsRegPath & "NV Hostname"
.RegWrite sCompNameRegPath & "ComputerName\ComputerName", sNewName
.RegWrite sCompNameRegPath & "ActiveComputerName\ComputerName", sNewName
.RegWrite sTcpipParamsRegPath & "Hostname", sNewName
.RegWrite sTcpipParamsRegPath & "NV Hostname", sNewName
End With ' oShell

MsgBox "Computer name changed, please reboot your computer"




Held og lykke.