Hostnaam/Computernaam wijzigen met VBscript

[ar1990nold]

Hallo Allemaal,
Ik ben bezig met het wijzigen van de Hostnaam met VBscript.
Ik heb op het internet een VBscript gevonden:

sNewName = "Computernaam"

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"

Ik wil dit script graag aanpassen en ervoor zorgen dat bovenaan sNewName = "Computernaam"
dan de naam gelezen word uit een ander bestand. (een text bestand bijvoorbeeld op een andere locatie)

Zou iemand mij misschien hiermee kunnen helpen?

Alvast bedankt

 

[ar1990nold]

Ik heb al een andere oplossing gevonden.
Ieder1 bedankt voor het meedenken. :thumb:

 

[Haaren101]

Graag gedaan hoor

Ron