Set computer name

[muhmuuh]

Hello!

I want to change the computer name but I don't know how. I've looked through the entire help file but did not find solution. Would you please help me?

Also I want to ask another thing. @Computername returns the computername so I thought that if I find where the macros get their values I'll find out how to change the computername but I couldn't find where the macros are defined. Can I see the definitions of the macros?

Thank you for your time

p.p. sorry for my english

i'm trying to improve it

[SmOke_N]

Look at the "@" symbol under "Index" in the help file for the macro names and defs.

Also... If you can't find it in help, try the Advanced Search Feature of the forum.

[muhmuuh]

thanks

when I asked about the macro defs I didn't mean their description but how they get their values (something like @Computername=something)

anyway - thank you

I've found solution

RenameComputerName($userid)

Func _RenameComputerName($sComputerName)
    If Not RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName", "ComputerName","REG_SZ", $sComputerName) Then Return(1)
    If Not RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName", "REG_SZ", $sComputerName) Then Return(1)
    If Not RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "Hostname", "REG_SZ", $sComputerName) Then Return(1)
    If Not RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $sComputerName) Then Return(1)
    Return(0)
EndFunc

by Danny35d

[SmOke_N]

thanks

when I asked about the macro defs I didn't mean their description but how they get their values (something like @Computername=something)

anyway - thank you

I've found solution

RenameComputerName($userid)

Func _RenameComputerName($sComputerName)
    If Not RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName", "ComputerName","REG_SZ", $sComputerName) Then Return(1)
    If Not RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName", "REG_SZ", $sComputerName) Then Return(1)
    If Not RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "Hostname", "REG_SZ", $sComputerName) Then Return(1)
    If Not RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $sComputerName) Then Return(1)
    Return(0)
EndFunc

by Danny35d

K, yeah... I have a list of those myself for another language.