易语言改计算机名称，不知道原本名称情况下

.版本 2

.子程序 _按钮1_被单击
.局部变量 计算机名, 文本型

计算机名 ＝ “XNJ-” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “-” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “-” ＋ 到文本 (取秒 (取现行时间 ()))
.如果真 (到整数 (取文本长度 (取主机名 ())) ＞ 12)
写注册项 (#本地机器, “SYSTEM\ControlSet001\Control\ComputerName\ComputerName\ComputerName”, 计算机名)
写注册项 (#本地机器, “SYSTEM\ControlSet001\Services\Tcpip\Parameters\NV Hostname”, 计算机名)
写注册项 (#本地机器, “SYSTEM\ControlSet001\Services\Tcpip\Parameters\Hostname”, 计算机名)
写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName”, 计算机名)
写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname”, 计算机名)
写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname”, 计算机名)