Как узнать сетевое имя данного компьютера?

[Suppir]

Как узнать сетевое имя компьютера, на котором запущен скрипт?

 

[kaster]

@ComputerName

 

[Suppir]

Спасибо!

Мне просто казалось, что сетевое имя и имя компьютера - это разные вещи, но оказалось, что одно и то же.

 

[Ganibal95]

Встречный вопрос:
Как его изменить средствами AutoIT?

 

[BIOS]

RegWrite('HKLM\System\ControlSet001\Control\ComputerNameActiveComputerName','ComputerName','REG_SZ','НовоеИмя')
RegWrite('HKLM\System\ControlSet001\Control\ComputerName\ComputerName','ComputerName','REG_SZ','НовоеИмя')
RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters','Hostname','REG_SZ','НовоеИмя')
RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters','NV Hostname','REG_SZ','НовоеИмя')

Только, ИМХО нужна перезагрузка потом, чтоб наверняка

 

[ns6k]

А нет ли способа чтоб рандомно менял?

 

[All2khoff]

рандомно менял

$a=StringSplit('PC_01,PC_02,PC_03,PC_04,PC_05',',')
$b = $a[Random(1,5,1)]

RegWrite('HKLM\System\ControlSet001\Control\ComputerNameActiveComputerName','ComputerName','REG_SZ',$b)
RegWrite('HKLM\System\ControlSet001\Control\ComputerName\ComputerName','ComputerName','REG_SZ',$b)
RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters','Hostname','REG_SZ',$b)
RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters','NV Hostname','REG_SZ',$b)

Как вариант использовать генератор имен отсюда