未取用dhc电脑连不上WIFIzm

题主是否想询问“未取用dhc电脑连不上WIFI怎么办吗？”解决方法如下：

1、右键电脑上的网络图标，然在弹出的选项中点击属性。

2、打开网络和共享中心后点击本地连接。

3、点击设置窗口下面的属性选项。

4、点击“Internet协议版本4(TCP/IPV4)”，然后点击底下的属性。

5、勾选“自动获得IP地址”和“自动获得DNS服务器地址“后点击确定即可。

桥接的路由器设置ip方法：看下面的设置桥接方法就明白了。

无线路由器桥接

主路由器设置

1、进入主路由器的设置界面，然后在左侧选项条中点击运行状态，在WAN口状态栏可以找到DNS服务器，一共有两个，主DNS和备选DNS服务器，记录下来。

2、点击网络参数---LAN口设置，把路由器的LAN地址设置为19216811保存，此时会重启重启后回到设置界面点击无线设置---基本设置。

3、设置SSID为TP_LINK_A。设置无线信道为：11。注意：必须关闭WDS或Bridge功能。

4、点击无线设置---无线安全设置，加密方式选WPA-PSK，本例以12345678为例。注意：相比旧式的WE加密，WPA/WPA2加密更安全，且桥接起来更稳定，所以推荐使用WPA/WPA2加密。

5、点击DHCP服务器---DHC服务器设置，把地址池起始地址设置为1921681100；把地址池结束地址设置为1921681149 点击保存，重启主路由器。主路由器设置完成。

设置副路由器

1、进入副路由器的设置界面。

2、点击网络参数---LAN口设置。

3、把副路由器的LAN地址设置为19216812防止与主路由器冲突，同时也便于管理主和副路由器。

4、点击无线设置---基本设置。

5、设置SSID为TP_LINK-B。设置无线信道为：11。

6、勾选开启WDS，在弹出的界面点击扫瞄，得到AP列表以后找到主路由器的SSID，即TP_LINK_A，点击右边的连接按钮，加密方式选WPA-PSK，密钥填主路由的密钥:12345678，（保持与主路由器一致即可），点击保存。

7、由于新的WDS功能于老式的Bridge有所不同,更为高级,所以仅需所有副路由器开启WDS并填入主路由的信息即可,如主路由开启WDS或Bridge功能,请关闭,否则WDS功能无法使用。

8、点击无线设置---无线安全设置 在这里设置副路由无线的密码。

9、点击DHCP服务器---DHCP服务器设置，把地址池起始地址改为1921681150，把地址池起始地址改为1921681199。网关填写主路由器的IP地址，即19216811。主选和备选DNS服务器填之前记录下来的地址保存并重启路由器。

10、设置完成，连接成功。

这个WMI是MS的例子 其实objAdapterIPAddress(i)数组里 返回是本机IP地址集合

里面的IP不管是DHCP得的 或 手动指定的都有

你可以从网段区分内外 别的方法就是读注册表

好象这个比较麻烦

得遍例HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces里的所有子项寻找你要找的

如果你的系统是XP可以使用WMI

代码如下

其中的代码是可以返回所有IP配置信息 但你要本机IP部分 所以我就注释掉了

程序取到的IP在objAdapterIPAddress(i)数组里

当然有你要的外网IP和内网IP 你只需按需要做下区分就可以了

Private Sub Command1_Click()

' Returning IP Configuration Data

' WMI script that returns configuration data similar to that returned by IpConfig

strComputer = ""

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colAdapters = objWMIServiceExecQuery _

("SELECT FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

n = 1

'WScriptEcho

For Each objAdapter In colAdapters

'WScriptEcho "Network Adapter " & n

' WScriptEcho "================="

' WScriptEcho " Description: " & objAdapterDescription

' WScriptEcho " Physical (MAC) address: " & objAdapterMACAddress

' WScriptEcho " Host name: " & objAdapterDNSHostName

If Not IsNull(objAdapterIPAddress) Then

For i = 0 To UBound(objAdapterIPAddress)

' WScriptEcho " IP address: " & objAdapterIPAddress(i)

DebugPrint objAdapterIPAddress(i)

Next

End If

If Not IsNull(objAdapterIPSubnet) Then

For i = 0 To UBound(objAdapterIPSubnet)

' WScriptEcho " Subnet: " & objAdapterIPSubnet(i)

Next

End If

If Not IsNull(objAdapterDefaultIPGateway) Then

For i = 0 To UBound(objAdapterDefaultIPGateway)

' WScriptEcho " Default gateway: " & objAdapterDefaultIPGateway(i)

Next

End If

'WScriptEcho

'WScriptEcho " DNS"

'WScriptEcho " ---"

'WScriptEcho " DNS servers in search order:"

If Not IsNull(objAdapterDNSServerSearchOrder) Then

For i = 0 To UBound(objAdapterDNSServerSearchOrder)

' WScriptEcho " " & objAdapterDNSServerSearchOrder(i)

Next

End If

' WScriptEcho " DNS domain: " & objAdapterDNSDomain

If Not IsNull(objAdapterDNSDomainSuffixSearchOrder) Then

For i = 0 To UBound(objAdapterDNSDomainSuffixSearchOrder)

WScriptEcho " DNS suffix search list: " & objAdapterDNSDomainSuffixSearchOrder(i)

Next

End If

' WScriptEcho

' WScriptEcho " DHCP"

' WScriptEcho " ----"

' WScriptEcho " DHCP enabled: " & objAdapterDHCPEnabled

' WScriptEcho " DHCP server: " & objAdapterDHCPServer

If Not IsNull(objAdapterDHCPLeaseObtained) Then

utcLeaseObtained = objAdapterDHCPLeaseObtained

strLeaseObtained = WMIDateStringToDate(utcLeaseObtained)

Else

strLeaseObtained = ""

End If

' WScriptEcho " DHCP lease obtained: " & strLeaseObtained

If Not IsNull(objAdapterDHCPLeaseExpires) Then

utcLeaseExpires = objAdapterDHCPLeaseExpires

strLeaseExpires = WMIDateStringToDate(utcLeaseExpires)

Else

strLeaseExpires = ""

End If

' WScriptEcho " DHCP lease expires: " & strLeaseExpires

' WScriptEcho

' WScriptEcho " WINS"

' WScriptEcho " ----"

' WScriptEcho " Primary WINS server: " & objAdapterWINSPrimaryServer

' WScriptEcho " Secondary WINS server: " & objAdapterWINSSecondaryServer

' WScriptEcho

n = n + 1

Next

End Sub

Function WMIDateStringToDate(utcDate)

WMIDateStringToDate = CDate(Mid(utcDate, 5, 2) & "/" & _

Mid(utcDate, 7, 2) & "/" & _

Left(utcDate, 4) & " " & _

Mid(utcDate, 9, 2) & ":" & _

Mid(utcDate, 11, 2) & ":" & _

Mid(utcDate, 13, 2))

End Function