根据填写的IP改计算机名

zzm0163

那位老大给提供个根据填写的IP自动修改计算机名的代码。

例如 本机IP为12号，当我填写完12后，计算机名称不用我填，自动变为pc012。我在网上找了很长时间都是填完IP后，还得手动填写计算机名称。哪位兄弟有类似的工具或代码请告诉我下。谢谢。小弟不胜感激。

masterpcc

新手！！期待中！

ferelove

来一段吧，正准备自己用的

Dim $sIP = @IPAddress1 ;取系统当前第1块网卡的IP地址
Dim $sIP_4 = StringSplit($sIP, ".") ;取IP地址中的各节
For $i = 1 To 4 ;将IP各节中不足3位的用0补足3位
        Select
                Case $sIP_4[$i] >= 0 And $sIP_4[$i] < 10
                        $sIP_4[$i] = "00" & $sIP_4[$i]
                Case $sIP_4[$i] > 10 And $sIP_4[$i] < 100
                        $sIP_4[$i] = "0" & $sIP_4[$i]
        EndSelect
Next
;Dim $NewName = "PC" & $sIP_4[1] & $sIP_4[2] & $sIP_4[3] & $sIP_4[4] ;取IP全部+PC为新名
;Dim $NewName = "PC" & $sIP_4[2] & $sIP_4[3] & $sIP_4[4] ;取IP后3节+PC为新名
Dim $NewName = "PC" & $sIP_4[3] & $sIP_4[4] ;取IP后2节+PC为新名
;Dim $NewName = "PC" & $sIP_4[4] ;取IP最后节+PC为新名
;以上4行只选用其中1行即可。建议使用后2节

;更改机器名
RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "NV Hostname", $NewName)
RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters", "Hostname", $NewName)
RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName", "ComputerName", $NewName)
RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName", $NewName)
MsgBox(0, "提示", "新名是：" & $NewName & @LF & "建议重启电脑生效！")

masterpcc

新手！！学习了

rikthhpgf2005

读了ip改reg

chenronting

不错。 学习了。

Joo

mark 学习·······

zzm0163

虽然3楼的代码不是我需要的，但在论坛中还是让我找到了。多谢各位兄弟帮忙。

afan

LZ 的意思仅仅只是自动补全？StringFormat() 即可

zzm0163

怎么编辑不到已解决的问题区啊