2189244ip.vbs

来自「一键修改本机IP地址及计算机名IPX内部网络号」· VBS 代码 · 共 54 行

Dim Num
Dim Num1

Call SIP()

Sub Ok()
   Dim ReadComputerName 
   Set ReadComputerName=WScript.CreateObject("WScript.Shell") 
   Dim ComputerName,RegPath 
   RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName" 
   ComputerName=ReadComputerName.RegRead(RegPath) 
   intAnswer = Msgbox("计算机名:GAME"&Num&"、IPX:00000"&num&"、IP:192.168.0."&num1&"、Netmask:255.255.255.0。修改完成，重启生效！",vbOKonly,"IP、IPX、计算机名生成器                        By:AC")
End Sub

Sub SIP()
     Num=Inputbox ("请输入计算机号                         如：122号则输入122 ，52 号则输入52    大于244请用另一生成器  否则会出错！不适用于多块网卡！","乐天网吧IP、IPX、计算机生成器   By:AC")
   If Num < 100 Then
     IF Num < 10 Then
        Num = "00" & Num
     Elseif Num >10 Then
        Num = "0" & Num
     End if
   Elseif Num > 244 Then
      intAnswer = Msgbox("计算机名不能大于244，请修改！！！"&now&"",vbOKonly,"IP、IPX、计算机名生成器                        By:AC")
      Call SIP()
   Elseif Num = "0" Then
      intAnswer = Msgbox("请重新输入修改！！！"&now&"",vbOKonly,"IP、IPX、计算机名生成器                        By:AC")
      Call SIP()
   End If
   Call Start()
   Call OK()
End Sub

Sub Start()
   Num1 = Num + 10
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
   Set colNetAdapters = objWMIService.ExecQuery _
     ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
   strIPAddress = Array("192.168.0."&Num1)
   strSubnetMask = Array("255.255.255.0")
   For Each objNetAdapter in colNetAdapters
       errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
   Next
   Set objWMIService = GetObject("winmgmts:" _
       & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   Set colComputers = objWMIService.ExecQuery _
       ("Select * from Win32_ComputerSystem")
   For Each objComputer in colComputers
   ObjComputer.Rename("GAME" &Num)
   Next
   Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
   objNetworkSettings.SetIPXVirtualNetworkNumber(Num)
End Sub