[求助]测本机IP

zhu235007 · 发表于 2008-8-24 23:15

请问VBA可以测得使用者机器的IP吗？也就是本机IP。请高手分享下代码

zldccmx · 发表于 2008-8-25 01:15

QUOTE:

以下是引用zhu235007在2008-8-24 23:15:16的发言：
请问VBA可以测得使用者机器的IP吗？也就是本机IP。请高手分享下代码

代码很简单，操作稍稍有点复杂!

代码中使用了MSWINSOCK.OCX控件，但是一直起来，如何注册MSWINSOCK.OCX困扰了不少人。在此，老朽将自己的收藏奉献给坛友们!

Sub Zldccmx()
MsgBox CreateObject("MSWinsock.Winsock").LocalIP
End Sub

请下载附件， UkP67YWA.rar (48.99 KB, 下载次数: 223)

然后将附件中的两个文件(MSWINSCK.OCX + MSWINSCK.REG)拷贝到WINDOWS目录下的SYSTEM32子目录中，然后合并MSWINSCK.REG进行注册!

BTW：附件绝对不含病毒，MSWINSCK.REG注册表文件中的内容如下，绝对不是病毒，放心使用!

REGEDIT
HKEY_CLASSES_ROOT\Licenses = Licensing: Copying the keys may be a violation of established copyrights.

// Winsock Control 6.0 license key
HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d = mlrljgrlhltlngjlthrligklpkrhllglqlrk

zldccmx · 发表于 2008-8-25 01:21

QUOTE:

以下是引用zhu235007在2008-8-24 23:15:16的发言：
请问VBA可以测得使用者机器的IP吗？也就是本机IP。请高手分享下代码

rPWrRTlT.rar (5.66 KB, 下载次数: 527)

这是成功的例子! 就一行代码!

wudixin96 · 发表于 2008-8-25 07:43

可使用WMI搞定

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
            WScript.Echo IPConfig.IPAddress(i)
        Next
    End If
Next

zhu235007 · 发表于 2008-8-27 23:32

zldccmx真的太感谢你了，帖子过了一天都没有人回复我以为没有人回了呢，没想到zldccmx给了这么一句经典的代码，我最喜欢请回帖的高手吃饭了，你给了我最好的代码我会请你到最好的饭店！！！！

pzxwzy · 发表于 2008-9-28 16:20

三楼的好象不能运行,打开文件后就要进行调试.

zldccmx · 发表于 2008-9-28 22:08

QUOTE:

以下是引用pzxwzy在2008-9-28 16:20:42的发言：

三楼的好象不能运行,打开文件后就要进行调试.

先按二楼的步骤走一遍!

wyabcdef · 发表于 2009-4-7 11:43

支持，感谢

jxb8088 · 发表于 2009-4-7 11:56

Sub IP地址()
ComputerName = "localhost"
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//" & ComputerName).ExecQuery("SELECT index, IPAddress FROM Win32_NetworkAdapterConfiguration")
For Each OpSys In OpSysSet
If TypeName(OpSys.IPAddress) <> "Null" Then
For Each IP In OpSys.IPAddress
MsgBox IP, 64, "IP地址"
Next
End If
Next
End Sub

wolf412 · 发表于 2009-4-7 13:09

原帖由 jxb8088 于 2009-4-7 11:56 发表
Sub IP地址()
ComputerName = "localhost"
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//" & ComputerName).ExecQuery("SELECT index, IPAddress FROM Win32_NetworkAdapterConfigurati ...

运行达到我要的效果的

		自动登录	找回密码
密码			免费注册