在远程电脑上进行如下操作（非被远程电脑）
1、键盘win+R，输入regedit，打开计算机注册表，按照路径找到计算机\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System；在system下新建一个项，右键新建——项(K)，命名为CredSSP，在新建的项CredSSP右键，再新建一个项，命名为Parameters；
1、A1列输入所有IP地址；
2、按 Alt + F11键 启用键 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块 创建一个新模块。 看截图；
3、在里面 模块 脚本，将下面的代码粘贴到该脚本，然后保存代码并关闭VBA窗口；
Function IP(Txt As String) As String
'UpdatebyExtendoffice20170725
Dim xList As Variant
Dim I As Long
xList = Split(Txt, ".")
For I = LBound(xList) To UBound(xList)
xList(I) = Format(xList(I), "000")
Next
IP = Join(xList, ".")
End Function
