人妻 一区 二区_午夜精品久久久久久不卡_日韩毛片av毛片黄色_夜夜看天天想人人爱

Dim Num
Num=Inputbox ("   一鍵改機(jī)器名、IP、子網(wǎng)掩碼、DNS"+chr(10)&chr(13)+"      ≡星雨電腦 QQ：4614851≡"+chr(10)&chr(13)+"        聯(lián)系電話：15850899989"+chr(10)&chr(13)+"請(qǐng)輸入機(jī)器編號(hào)【填小于255以下的整數(shù)】")
dim Name
if Num<10 then
   Name="hotel800"
else
   if Num<100 then
         Name="hotel80"
   else
             Name="hotel8"
       end if
end if
Set Sh = CreateObject("WScript.Shell")
Sh.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName",Name&Num,"REG_SZ"
Sh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname",Name&Num,"REG_SZ"
Sh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname",Name&Num,"REG_SZ"
Set sh = Nothing
Set oShell = Nothing

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1."&Num)
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.1")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway)
Dim dns
dns=Array("221.228.255.1","218.2.135.1")
err=objNetAdapter.SetDNSServerSearchOrder(dns)
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)