软件方面有操作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组
等等。利用WMI可以访问上面的全部信息，但是如果向上面一样的利用分项来访问的话会很
麻烦。为此，WMI提供了一种类似SQL语句的查询语句，可以通过查询语句获得WMI对象下的子项。
下面是一个遍历系统中安装的网卡并返回网卡MAC地址的代码：
Private Function MACAddress() As String
Set objs = GetObject("winmgmts:").ExecQuery( _
"SELECT MACAddress " & _
"FROM Win32_NetworkAdapter " & _
"WHERE " & _
"((MACAddress Is Not NULL) " & _
"AND (Manufacturer <> " & _
"‘Microsoft‘))")
For Each obj In objs
MACAddress = obj.MACAddress
Exit For
Next obj
End Function
上面的代码获得WMI对象，然后运行ExecQuery执行一个WMI查询语句获得安装的网卡并返回
网卡的MAC地址。
Dim aa As String
Dim strLocalIP As String
Dim winIP As Object
aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf
aa = aa & "本机用户名称:" & Environ("username") & vbCrLf
Set winIP = CreateObject("MSWinsock.Winsock")
strLocalIP = winIP.localip
MsgBox aa & "本机IP:" & strLocalIP
End Sub本回答被提问者和网友采纳
用VB 6.0怎样获得本机IP地址?
使用Winsock控件即可获得,方法如下:Private Sub Command1_Click()MsgBox Winsock1.LocalIP End Sub 注意:Winsock控件不是标准工具箱中的控件,使用前要先在菜单"工程-部件"中选择,将"Microsoft Winsock Control 6.0"选中就可以了
用VB 6.0怎样获得本机IP地址?
aa = aa & "本机用户名称:" & Environ("username") & vbCrLf Set winIP = CreateObject("MSWinsock.Winsock")strLocalIP = winIP.localip MsgBox aa & "本机IP:" & strLocalIP End Sub
用VB 6.0怎样获得本机IP地址?
End Function 上面的代码获得WMI对象，然后运行ExecQuery执行一个WMI查询语句获得安装的网卡并返回 网卡的MAC地址。
VB6.0 怎么获得本机的IP和mac地址
gethostname 获取本机名字，gethostbyname 通过前面的名字获取主机具体信息，包括IP地址。MAC地址可以用 Netbios，以上用到的函数都是WIN32 API，具体代码请留联系方式（email或者企鹅）也可以自己百度有现成的VB代码
vb获取当前ip问题
VB6.0可使用Winsock控件读取它的LocalIP属性来获取当前本机的IP地址。Winsock 控件，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的 Winsock APIs。通过...
vb6.0 怎样获得IP?
Winsock控件是没办法做到的，可以使用WSOCK32.DLL中提供的API实现 你可以测试下，复制以下代码，窗口上画个按钮就成，理论上来说，最后一个IP地址就是你的宽带IP地址，代码来源于互联网 Private Const WS_VERSION_REQD = &H101 Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \\ &H100 And &HFF...
vb6.0如何获得局域网所有IP地址?
'===以上定义用于获得MAC=== '获得指定IP地址的MAC地址，用到全局变量hostIpStr为本机IP地址 '输入：IP为本网内的IP地址字符串，函数返回MAC地址，若出错返回空字符串 Function GetMac(IP As String) As String Dim ldest As Long, lhost As Long, Mac(5) As Byte, length As Long Dim i ...
vb6.0 如何能获得AD网域所有帐号及电脑名称 IP地址
Request.UserHostName获取客户端电脑IP: Page.Request.UserHostAddress2. 在网络编程中的通用方法:获取当前电脑名: static System.Net.Dns.GetHostName()根据电脑名取出全部IP地址: static System.Net.Dns.Resolve(电脑名).AddressList也可根据IP地址取出电脑名: static System.Net.Dns.Resolve(IP地址)....
如何用VB6.0获取ip地址并格式化?
a="192.168.0.1"b=split(a, ".")c = b(0) & "." & b(1) & "." & b(2) & "." & Right("000" & b(3), 3)msgbox c
哪个VB高手能给俺说一下在VB中如何获得本机的IP地址?_->急急急_百度...
在部件中加一个Microsoft Winsock Control 6.0控件 然后拉到窗体里 代码中用Winsock1.LocalIP就是本机IP地址比如 Private Sub Command1_Click()Print Winsock1.LocalIP End Sub
