获取IP地址，如何修改后存放窗体列表框内？

qrfljh5131024 · 发表于 2018-7-13 10:18

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

魂断蓝桥 · 发表于 2018-7-13 10:55

TEXT3=ip 如果多个网卡会有多个ip地址呢

qrfljh5131024 · 发表于 2018-7-13 11:20

魂断蓝桥发表于 2018-7-13 10:55
TEXT3=ip 如果多个网卡会有多个ip地址呢

磁盘呢？能把代码写一下吗？不知道TEXT3=ip，或者磁盘型号怎么写

向東 · 发表于 2018-7-13 11:41

qrfljh5131024 发表于 2018-7-13 11:20
磁盘呢？能把代码写一下吗？不知道TEXT3=ip，或者磁盘型号怎么写

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地址"
         UserForm1.TextBox3=IP
         Exit Sub
      Next
   End If
Next
End Sub

qrfljh5131024 · 发表于 2018-7-13 12:21

向東发表于 2018-7-13 11:41
Sub IP地址()
ComputerName = "localhost"
Set OpSysSet = GetObject("winmgmts:{impersonatio ...

Private Sub CommandButton2_Click()
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地址"
         UserForm1.ListBox1 = IP
         Exit Sub
      Next
   End If
Next
End Sub
我对应的列表框是listbox1，但是没反应呢，也不提示错误

qrfljh5131024 · 发表于 2018-7-13 12:27

向東发表于 2018-7-13 11:41
Sub IP地址()
ComputerName = "localhost"
Set OpSysSet = GetObject("winmgmts:{impersonatio ...

可以了，但是，怎么获取的ip是图片这样，都是0

向東 · 发表于 2018-7-13 13:22

qrfljh5131024 发表于 2018-7-13 12:27
可以了，但是，怎么获取的ip是图片这样，都是0

你把代码发上来看看

x007file · 发表于 2018-7-13 13:50

Sub aa()
'CPU的序列号:
'---CPUID.vbs---
' 程序代码
Dim cpuInfo
cpuInfo = ""
Set moc = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
For Each mo In moc
cpuInfo = CStr(mo.ProcessorId)
MsgBox "CPU SerialNumber is : " & cpuInfo
Next
'硬盘型号:
'---HDID.vbs---
' 程序代码
Dim HDid ', moc
Set moc = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
For Each mo In moc
HDid = mo.Model
MsgBox "硬盘型号为:" & HDid
Next
'网卡MAC物理地址:
'---MACAddress.vbs---
' 程序代码
Dim mc
Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled = True Then
For i = LBound(mo.IPAddress) To UBound(mo.IPAddress)
MsgBox "网卡MAC地址是: " & mo.MacAddress & "," & mo.IPAddress(i)
Next
Exit For
End If
Next
'测试你的显卡:
' 程序代码
On Error Resume Next
Dim ye
Dim yexj00
Set yexj00 = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
For Each ye In yexj00
MsgBox " 型号: " & ye.VideoProcessor & vbCrLf & " 厂商: " & ye.AdapterCompatibility & vbCrLf & " 名称: " & ye.Name & vbCrLf & " 状态: " & ye.Status & vbCrLf & " 显存: " & (ye.AdapterRAM \ 1024000) & "MB" & vbCrLf & "驱动 (dll): " & ye.InstalledDisplayDrivers & vbCrLf & "驱动 (inf): " & ye.infFilename & vbCrLf & " 版本: " & ye.DriverVersion
Next
End Sub

复制代码

qrfljh5131024 · 发表于 2018-7-13 14:05

向東发表于 2018-7-13 13:22
你把代码发上来看看

修改了一下，可以了！非常感谢啊。谢谢谢谢谢谢

lsdongjh · 发表于 2018-7-13 14:10

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地址"
strIp = strIp & "," & IP
Next
End If
Next
strIp = Mid(strIp, 2)
UserForm1.TextBox3 = strIp
'MsgBox strIp
End Sub

复制代码

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

[讨论] 获取IP地址，如何修改后存放窗体列表框内？