超强的自动填IP脚本

了本本之后在寝室里上网真是爽，，

可是没爽几天就发现了一个很麻烦的事情。。。

在寝室里上网的时候，是用华为拨号软件上网的。。

所以在本地连接那里是自动获得IP，，

但是到了办公室里之后，

所以机子在寝室里上完之后回到办公室里又要重新填IP地址。。

这虽然不是很累的事情，但是每天这样设置来设置去真是非常的麻烦。

后来去网上找了一下这方面的东西。。

发现了一个超强的自动填IP脚本

只要双击一下，填写一下机器码（就是四格空中的最后一空）。

一切问题都轻松搞定。。真是开心。。


附上这段脚本：ulj.vbs

程序代码

Dim Num
Num=Inputbox ("请输入机器号" )
dim Name
if Num<10 then
Name="XD00"
else
if Num<100 then
Name="XD0"
else
Name="XD"
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("10.132.253."&Num)
strSubnetMask = Array("255.255.255.0")
strGateway = Array("10.132.253.254")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway)

Dim dns
dns=Array("192.168.0.1","192.168.1.1")
err=objNetAdapter.SetDNSServerSearchOrder(dns)
'msgbox(err)

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)