strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress = Array("192.168.1.2") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.1.1") strDNS = Array("192.168.1.1","192.168.5.1") strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway,strGatewaymetric) errDns = objNetAdapter.SetDNSServerSearchOrder(strDNS) If errEnable = 0 Then msgbox "IP地址设置成功." Else msgbox "IP地址设置失败." End If Next
不过大多数是进行动态分配的,所以断开宽带重新登陆试试。
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.2")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.1")
strDNS = Array("192.168.1.1","192.168.5.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway,strGatewaymetric)
errDns = objNetAdapter.SetDNSServerSearchOrder(strDNS)
If errEnable = 0 Then
msgbox "IP地址设置成功."
Else
msgbox "IP地址设置失败."
End If
Next
真要碰上这种网站,你可以在 FlashGet 的站点管理中设置该站点最多允许一个连接、每个文件只创建一个连接。
http://www.onlinedown.net/soft/63443.htm
的是不是限制一个IP只能下载几次的