如何获得计算机网络信息

by_guo 2008-01-22 01:59:03
网络编程我不懂,如何获取本机IP,主机名,MAC地址,哪些端口开放哪些端口关闭等问题,就是本机相关网络信息,怎么获得呢?谢谢大家帮忙。应该使用winsock控件么?还有,有个网友给了我以下程序,也能获得IP和MAC,但是好像没有用到WINSOCK网络编程,是什么原理呢?


Private Sub Command1_Click()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer

strComputer = "."
Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")


For Each IP In colIP
If Not IsNull(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox "IP 地址:" & IP.IPAddress(I) & Chr(10) & _
"網卡類型:" & IP.Description(I) & Chr(10) & _
"網卡地址:" & IP.Macaddress(I)
Next
End If
Next
End Sub
...全文
41 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
naixian1983 2008-01-24
gethostname() //获取主机名
inet_ntoa() //IP
回复
东方之珠 2008-01-22
Visual Basic编程访问WMI对象:
http://www.bdstudio.cn/showart.asp?id=505&showpage=1
回复
东方之珠 2008-01-22
用WMI
回复
by_guo 2008-01-22
谁能回答一下呢
回复
ZOU_SEAFARER 2008-01-22
Winsock1.LocalIP 'IP
Winsock1.LocalHostName'机器名
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告