修改电脑IP地址
来源:互联网 发布:淘宝综合排名突然下降 编辑:程序博客网 时间:2024/04/28 20:47
读取网卡信息
Option Explicit
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet As SWbemObjectSet
Dim objSWbemObject As SWbemObject
Private Type NetCard
Name As String
IPAdress As String
IpSubNets As String
IpGateWay As String
DnsString0 As String
DnsString1 As String
MacAdress As String
End Type
Dim MtNetCard() As NetCard
Private Sub Command1_Click()
Dim i As Long
For i = LBound(MtNetCard) To UBound(MtNetCard) - 1
Text1 = Text1 & "网卡: " & MtNetCard(i).Name & vbNewLine
Text1 = Text1 & "ip地址: " & MtNetCard(i).IPAdress & vbNewLine
Text1 = Text1 & "子网掩码:" & MtNetCard(i).IpSubNets & vbNewLine
Text1 = Text1 & "网关: " & MtNetCard(i).IpGateWay & vbNewLine
Text1 = Text1 & "DNS1: " & MtNetCard(i).DnsString0 & vbNewLine
Text1 = Text1 & "DNS2: " & MtNetCard(i).DnsString1 & vbNewLine
Text1 = Text1 & "MAC: " & MtNetCard(i).MacAdress & vbNewLine
Next
Erase MtNetCard
End Sub
Private Sub Form_Load()
ReDim MtNetCard(0) As NetCard
Set objSWbemServices = GetObject("winmgmts:")
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objSWbemObject In objSWbemObjectSet
On Error Resume Next
MtNetCard(UBound(MtNetCard)).Name = objSWbemObject.Description '添加本机上已经安装了TCP/IP协议的网卡
MtNetCard(UBound(MtNetCard)).IPAdress = objSWbemObject.IPAddress(0)
MtNetCard(UBound(MtNetCard)).IpSubNets = objSWbemObject.IPSubnet(0)
MtNetCard(UBound(MtNetCard)).IpGateWay = objSWbemObject.DefaultIPGateway(0)
MtNetCard(UBound(MtNetCard)).DnsString0 = objSWbemObject.DNSServerSearchOrder(0)
MtNetCard(UBound(MtNetCard)).DnsString1 = objSWbemObject.DNSServerSearchOrder(1)
MtNetCard(UBound(MtNetCard)).MacAdress = objSWbemObject.MacAddress(0)
ReDim Preserve MtNetCard(UBound(MtNetCard) + 1) As NetCard
Next
End Sub
- 修改电脑IP地址
- 电脑无法修改ip地址
- 如何修改自己电脑的IP地址
- IP代理软件 代理IP地址 IP修改器 更换IP工具 变跟电脑IP
- 批处理方式修改IP地址和电脑名
- 批处理方式修改IP地址和电脑名
- wamp修改访问地址;用手机访问电脑IP
- 电脑IP地址
- 电脑ip地址查看
- 查看电脑IP地址
- 查看电脑ip地址
- delphi修改电脑IP
- 快捷配置电脑IP地址
- java读取电脑IP地址
- 批处理文件设置电脑Ip地址
- 查看电脑的ip地址
- 查看电脑自身 IP 地址
- ifconfig修改IP地址后,重启网络服务或者重启电脑 修改后的IP无法生效!
- Windows下SVN服务端与客户端安装
- Access、Hybrid和Trunk三种模式的理解
- Nokia的如意算盘——有感于诺记发布首款温疯手机
- linux读写锁的理解
- Pre-IPL ROM Stage disassembled code
- 修改电脑IP地址
- VMware Workstation 8正式版下载+密钥序列号+汉化补丁
- kmp算法讲解和分析
- Java学习 - Thread Synchronized (一)
- kmp算法实现
- Linux 系统内核的调试
- android ListView详解
- ASP.NET MVC 3 项目练习一登陆
- 第二版 手把手教你如何建立自己的Linux系统(LFS速成手册)